{飞狐画线主图}
drawtext(sysparam(2)=barpos,c,'板块:'+blkname),colorccffff,align4;
z:=zig(4,n);p:=SYSPARAM(1);
dd:="xh-z.dd"(n);  wd:=barslast(dd); 
sd:=sum(dd,0);  di:=sd[p]-sd+1;    id:=(di<ref(di,1))*di;
gg:="xh-z.gg"(n);  wg:=barslast(gg); 
sg:=sum(gg,0);  gi:=sg[p]-sg+1;    ig:=(gi<ref(gi,1))*gi;
td0:=barslast(di[p]=id);
td1:=barslast(1+di[p]=id);
td2:=barslast(2+di[p]=id);
x:ref(z,td0),POINTDOT;
k1:(x-ref(z,td1))/ref(td1,td0)*100,LINETHICK0,COLORGREEN;
k3:(ref(z,td1)-ref(z,td2))/ref(td2,td1)*100,LINETHICK0,Color5E7159;
x1:x+td0*k1/100,LINETHICK0,COLORGREEN;
x2:ref(z,td1)+td1*k3/100,LINETHICK0,Color5E7159;
DRAWLINE(1+di[p]=id,z,di[p]=id,z,1),COLORGREEN;
DRAWLINE(2+di[p]=id,z,1+di[p]=id,z,1),Color5E7159,POINTDOT;
tg0:=barslast(gi[p]=ig);
tg1:=barslast(1+gi[p]=ig);
tg2:=barslast(2+gi[p]=ig);
s:ref(z,tg0),POINTDOT;
k2:(s-ref(z,tg1))/ref(tg1,tg0)*100,LINETHICK0,COLORMAGENTA;
k4:(ref(z,tg1)-ref(z,tg2))/ref(tg2,tg1)*100,LINETHICK0,Color546C82;
s1:s+tg0*k2/100,LINETHICK0,COLORMAGENTA;
s2:ref(z,tg1)+tg1*k4/100,LINETHICK0,Color546C82;
DRAWLINE(1+gi[p]=ig,z,gi[p]=ig,z,1),COLORMAGENTA;
DRAWLINE(2+gi[p]=ig,z,1+gi[p]=ig,z,1),Color546C82,POINTDOT;
DRAWICON((dd and di<5) or (gg and gi<5),z,12);
DRAWICON(di[p]=id or gi[p]=ig,z,10);



引用的公式是：
{公称名称: XH-Z}

input:N(20,1,100);
Z:=ZIG(4,N);
F:=(Z - REF(Z,1));
D:=FILTER((REFX(((F > 0) AND (REF(F,1) < 0)),1) OR (BARPOS = 1)),2);
WD:=BARSLAST(D);
G:=FILTER((REFX(((F < 0) AND (REF(F,1) > 0)),1) OR (BARPOS = 1)),2);
WG:=BARSLAST(G);
XWD:=IF((SUM((WD = 0),2) > 1),1,WD);
XWG:=IF((SUM((WG = 0),2) > 1),1,WG);
FD:=(((HHV(HIGH,XWD) / REF(LOW,XWD)) - 1) > (N / 100));
FG:=((1 - (LLV(LOW,XWG) / REF(HIGH,XWG))) > (N / 100));
DQZ:=(BACKSET(((ISLASTBAR AND (WD < WG)) AND (FD = 0)),(XWD + 1)) = 0);
GQZ:=(BACKSET(((ISLASTBAR AND (WG < WD)) AND (FG = 0)),(XWD + 1)) = 0);
DD:((DQZ * D) OR (BARPOS = 1));
GG:((GQZ * G) OR (BARPOS = 1));