通达信〖箱体波浪高低点〗箱体颈线及突破回踩信号主图指标公式源码

GD:=FILTER(BACKSET(FILTER(REF(H,10)=HHV(H,21),10),11),10);
DD:=FILTER(BACKSET(FILTER(REF(H,10)=LLV(H,21),10),11),10);
A:=REF(H,BARSLAST(GD));
B:=REF(H,BARSLAST(DD));
T1:=BARSLAST(GD);
T2:=T1>BARSLAST(DD) AND NOT(DD);
BLD:IF(T1,A,A),COLORGREEN,POINTDOT,LINETHICK1;
DRAWNUMBER(BLD!=REF(BLD,1),H,BLD),COLORF00FF0;
STICKLINE(T1,A,A,9,0),COLORF00FF0,LINETHICK1;
BLB:IF(T2,B,B),COLORGREEN,POINTDOT,LINETHICK1;
STICKLINE(T2,B,B,9,0),COLORCYAN,LINETHICK1;
VAR1D:=FILTER(BACKSET(FILTER(REF(C,6)=LLV(C,13),6),7),6) AND C=LLV(C,7);
VAR1J:=BARSLAST(VAR1D);
VAR1B:=IF(VAR1D,CURRBARSCOUNT,0);
VAR1Y:=IF(VAR1J,REF(VAR1B,VAR1J),VAR1B);
VAR1W:=CONST(VAR1Y);
VAR1:DRAWLINE(CURRBARSCOUNT=VAR1W,C,CURRBARSCOUNT=1,REF(C,VAR1W-1),1),COLOR00FF00,LINETHICK1;
DRAWNUMBER(VAR1!=REF(VAR1,1),C,VAR1),COLOR00FF00;
DRAWNUMBER(CURRBARSCOUNT=1,VAR1,VAR1),COLOR00FF00;
VAR2D:=FILTER(BACKSET(FILTER(REF(C,3)=LLV(C,7),3),4),3) AND C=LLV(C,4);
VAR2J:=BARSLAST(VAR2D);
VAR2B:=IF(VAR2D,CURRBARSCOUNT,0);
VAR2Y:=IF(VAR2J,REF(VAR2B,VAR2J),VAR2B);
VAR2W:=CONST(VAR2Y);
VAR2:DRAWLINE(CURRBARSCOUNT=VAR2W,C,CURRBARSCOUNT=1,REF(C,VAR2W-1),1),COLOR00FF00,LINETHICK1;
JX2D:=FILTER(BACKSET(FILTER(REF(C,6)=HHV(C,13),6),7),6) AND C=HHV(C,7);
JX2J:=BARSLAST(JX2D);
JX2B:=IF(JX2D,CURRBARSCOUNT,0);
JX2Y:=IF(JX2J,REF(JX2B,JX2J),JX2B);
JX2W:=CONST(JX2Y);
JX2:DRAWLINE(CURRBARSCOUNT=JX2W,C,CURRBARSCOUNT=1,REF(C,JX2W-1),1),COLORFFDD00,LINETHICK1;
DRAWNUMBER(JX2!=REF(JX2,1),C,JX2),COLOR00FF00;
T1B:=CONST(LLVBARS(L,10));
T1G:=CONST(REF(H,T1B));
CCC:=CONST(CURRBARSCOUNT);
T2B:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T1B AND H>T1G));
T2G:=CONST(REF(H,T2B));
T3B:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T2B AND H>T2G));
T3G:=CONST(REF(H,T3B));
QQ10:DRAWLINE(CURRBARSCOUNT=T3B+1,T3G,CURRBARSCOUNT=1,T3G,1),COLORYELLOW,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=1,T3G,'过线'),COLORYELLOW;
DRAWNUMBER(QQ10!=REF(QQ10,1),H,QQ10),COLORYELLOW;
STICKLINE(C>VAR1,VAR1,BLD,15,1),COLOR005599,LINETHICK2;
STICKLINE(C>VAR2,VAR2,BLD,5,1),COLOR005599,LINETHICK2;
STICKLINE(C>VAR1,VAR1,(BLD+VAR1)/2,15,1),COLOR005599,LINETHICK2;
STICKLINE(C>VAR1,VAR1,JX2,5,1),COLORFFAA33;
STICKLINE(C>VAR1,VAR1,(JX2+VAR1)/2,5,1),COLORFFAA33;
STICKLINE(C>VAR1,(QQ10+VAR1)/2,(QQ10+VAR1)/2,5,1),COLORYELLOW;
MA5:MA(C,5);
MA13:MA(C,13);
FL:=V>MA(V,20)*1.5;
TPJX:=crOSS(C,JX2) AND FL;
DRAWTEXT(TPJX AND COUNT(TPJX,15)=1,H*1.02,'★突破颈线'),COLORRED;
HCVAR:=L<=VAR1*1.01 AND C>VAR1 AND C>O AND JX2>VAR1;
DRAWTEXT(HCVAR AND COUNT(HCVAR,15)=1,L*0.98,'★回踩支撑'),COLOR00FF00;
FLQR:=C>JX2 AND C>O AND FL AND BARSLAST(TPJX)<=5 AND BARSLAST(TPJX)>0;
DRAWTEXT(FLQR AND COUNT(FLQR,15)=1,H*1.02,'★放量确认'),COLORYELLOW;
DPVAR:=CROSS(VAR1,C) AND BARSLAST(TPJX)>0;
DRAWTEXT(DPVAR AND COUNT(DPVAR,10)=1,H*1.02,'跌破支撑'),COLORGREEN;
XTGZ:=C>JX2 AND C>QQ10 AND JX2>VAR1 AND FL;
DRAWTEXT(XTGZ AND COUNT(XTGZ,20)=1,H*1.02,'★箱体共振'),COLORMAGENTA;
DRAWKLINE(H,O,L,C);