Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;
DRAWKLINE(H,O,L,C);
STICKLINE(C>O,C,O,-1,0),COLORRED;
TS:=BARSCOUNT(CLOSE)>=10;
MM:EMA((3*CLOSE+HIGH+LOW+OPEN)/6,20),COLORGRAY,LINETHICK1;
FL:HHV(MM,5),LINETHICK1,COLORYELLOW;
FS:MM-(FL-MM),LINETHICK1;
DRAWICON(FL=FS AND REF(FL,1)>REF(FS,1) AND TS ,L,1);
DRAWICON(FL>FS AND REF(FL,1)=REF(FS,1) AND TS,H*1.008,2);
{顶底}
TCZ1:=IF(H=HHV(H,48),H,DRAWNULL);
TCZ2:=CONST(BARSLAST(TCZ1=H))+1;
UPPER01:=CONST(IF(TCZ2=1,H,REF(H,TCZ2-1)));
BCZ1:=IF(L=LLV(L,48),L,DRAWNULL);
BCZ2:=CONST(BARSLAST(BCZ1=L))+1;
LOWER01:=CONST(IF(BCZ2=1,L,REF(L,BCZ2-1)));
LP01:=CURRBARSCOUNT<=BCZ2 AND L=LOWER01;
HP01:=CURRBARSCOUNT<=TCZ2 AND H=UPPER01;
DRAWTEXT(LP01,L*0.98,'底'),COLOR00FFFF;
DRAWTEXT(HP01,H*1.02,'顶'),COLOR00FF80;
高阳顶:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)),1)+1)+1,CONST(REF(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(BARSLAST(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1)),1)+1)),DRAWNULL),COLOR000099,LINETHICK1;
高阳底:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)),1)+1)+1,CONST(REF(REF(L,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(BARSLAST(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1)),1)+1)),DRAWNULL),COLOR000099,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=3,高阳顶,STRCAT('',CON2STR(高阳顶,2))),COLOR000099;
DRAWTEXT(CURRBARSCOUNT=3,高阳底,STRCAT('',CON2STR(高阳底,2))),COLOR000099;
高阴顶:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)+1,CONST(REF(REF(H,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)),DRAWNULL),COLORLICYAN ,LINETHICK1;
高阴底:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)+1,CONST(REF(REF(L,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)),DRAWNULL),COLORLICYAN ,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,高阴顶,STRCAT('',CON2STR(高阴顶,2))),COLORLICYAN;
DRAWTEXT(CURRBARSCOUNT=8,高阴底,STRCAT('',CON2STR(高阴底,2))),COLORLICYAN;
