通达信箱体K突破主图指标 源码 贴图
VAR1:=MAX(C,O)<REF(MAX(C,O),1) AND H>=REF(MAX(C,O),1) AND REF(H>MAX(C,O),1);
VAR2:=MAX(C,O)>REF(MAX(C,O),1) AND MAX(C,O)<=REF(H,1) AND H>MAX(C,O);
VAR3:=VAR1 OR VAR2;{公式指标WWW.GSZB.TOP}
VAR4:=MAX(C,O)<REF(MAX(C,O),2) AND H>=REF(MAX(C,O),2);
VAR5:=MAX(C,O)>REF(MAX(C,O),2) AND MAX(C,O)<=REF(H,2) AND H>MAX(C,O);
VAR6:=(VAR4 OT VAR5) AND VAR3;
VAR7:=BARSLAST(REF(VAR3,1) AND VAR6);
VAR8:=BACKSET(VAR7=0,3);
VAR9:=BARSLAST(CROSS(VAR8=1,0.5));
VAR10:=REF(HHV(H,VAR9+1),VAR7);
VAR11:=H<VAR10 AND (HHV(H,VAR9+1)-LLV(L,VAR9+1))/LLV(L,VAR9+1)*100<5;
VAR16:=FILTERX(VAR11=1,VAR9+1);
VAR18:=BARSLAST(VAR16);
箱顶:DRAWLINE(VAR9=0,REFX(HHV(H,VAR9+1),BARSNEXT(VAR18=0)),VAR18=0 AND EVERY(VAR11=1,VAR7+1) AND VAR9>2,HHV(H,VAR9+1),0),COLORYELLOW;
箱底:DRAWLINE(VAR9=0,REFX(LLV(L,VAR9+1),BARSNEXT(VAR18=0)),VAR18=0 AND EVERY(VAR11=1,VAR7+1)AND VAR9>2,LLV(L,VAR9+1),0),COLORYELLOW;
STICKLINE(VAR9=0,箱顶,箱底,0,0),COLORYELLOW;
STICKLINE(VAR18=0,箱顶,箱底,0,0),COLORYELLOW;
DRAWTEXT(VAR7=0,箱顶*1.02,'箱体'),COLORYELLOW;
