通达信箱体K突破主图指标公式源码主图

　　通达信箱体K突破主图指标公式源码主图

　　VAR1:=MAX(C,O)=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;

　　VAR4:=MAX(C,O)=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

　　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;