DRAWGBK(C>0, RGB(0,0,20),RGB(00,0,0),0,0,1);
DRAWKLINE(H,O,L,C);
{HD LD zig}
HD:=FILTER(BacKSET(FILTER(REF(H,5)=HHV(H,13),5),5+1),6);{高点}
LD:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,21),6),6),5);{低点}
DRAWLINE(LD,L,HD,H,0),COLORRED,LINETHICK2;
DRAWLINE(HD,H,LD,L,0),COLORGREEN;
{----------------------------------------------}
{A B C}
J1:=BACKSET(CURRBARSCOUNT=2 ,MIN(BArslAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),CURRBARSCOUNT=2 ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),DOTLINE,COLORWHITE;
C点:=BARSLAST(LD);
DRAWTEXT(LD AND BARSLAST(HD) DRAWTEXT(HD,H+0.1,'Ｂ'),COLORGREEN;
{25T高 100T低}
波1:=12;
PLZ:=CONST(BARSLAST(CONST(FINDHIGH(H,0,25,1))=H))+1;
高25:CONST(IF(PLZ=1,H,REF(H,PLZ-1))),COLORGREEN,DOTLINE;
PLL:=CONST(BARSLAST(CONST(FINDLOW(L,0,100,1))=L))+1;
低100:CONST(IF(PLL=1,L,REF(L,PLL-1))),COLORGREEN,DOTLINE;
波动速率:=100*((高25-低100)/(IF(PLL>PLZ,低100,高25)))/(PLL-PLZ);
BPURC:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ BPLZ:=CONST(BARSLAST(BPURC=H))+1;
BQQT:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ BPLL:=CONST(BARSLAST(BQQT=L))+1;
BLC顶X:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));
BLC低X:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));
BASE:=IF(波动速率<0,BLC顶X,BLC低X);
BLCZ:=(高25-低100)*(IF(PLL>PLZ,1,-1));
B12:=BASE+(BLCZ*1.382);
B14:=BASE+(BLCZ*1.618);
B200:=BASE+(BLCZ*2);
XZDD:=IF(PLL>PLZ,BPLL,BPLZ);
STICKLINE(CURRBARSCOUNT=XZDD ,BASE,B200,0,0),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=XZDD,B12,'-------------------------------------------------------