通达信锅底突破回踩主图指标(源码)

N:=5;
MA5:MA(C,5),COLORMAGENTA;
角度:ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*57.3,NODRAW,COLORYELLOW;
去掉:=IF(NAMELIKE("*ST"),0,1) AND IF(NAMELIKE("S"),0,1) AND IF(DYNAINFO(9)=0,0,1) AND IF(BARSCOUNT(V)<150,0,1);
涨停:=C>REF(C,1)*1.0988 AND C=H;
STICKLINE(涨停=1,O,C,2,0),COLORMAGENTA,LINETHICK2,DRAWABOVE;
LT:=LLVBARS(L,60);
LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
HT:=FINDHIGHBARS(H,LT+1,60,1);
高压线:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORYELLOW,LINETHICK2;
TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);
T:=BARSLAST(CROSS(C,REF(H,TT)));
GL:=C/REF(H,TT);
TA:=BARSLAST(GL=HHV(GL,T+1));
DF:=(C-REF(C,TA+1))/REF(C,TA+1)*100;
JL:=L/REF(H,TT);
XG:=DF<-7 AND JL<1.075{ AND MIN(C,O)*1.005>=REF(H,TT)}AND H>REF(H,TT);
XGT:=BARSLAST(COUNT(XG,T+1)=1 AND XG);
QF:=BACKSET(XGT=0,TA+1);
QFT:=BARSLAST(CROSS(QF=1,0.5));
XZF:=REFX(DF,BARSNEXT(XGT=0));
DRAWICON(CROSS(XGT=0,0.5),L*0.95,1);
DRAWLINE(T=0,REF(H,TT),QFT=0,REF(H,QFT),0),DOTLINE,COLORYELLOW;
DRAWLINE(QFT=0,REF(H,QFT),XGT=0,REF(H,TT),0),DOTLINE,COLORYELLOW;
DRAWTEXT(TT=0,REF(H,TT)*1.05,VARCAT(VARCAT("高压支撑价 : ",VAR2STR(REF(H,TT),2)),"元"))COLORYELLOW;
DRAWLINE(QFT=0,REF(H,QFT)*1.05,QFT=10,REF(H,QFT)*1.05,0),COLORBLUE,LINETHICK3;
DRAWTEXT(QFT=0,REF(H,QFT)*1.1,VARCAT(VARCAT("跌幅：",VAR2STR(XZF,2)),"%"))COLORYELLOW;
突破:=CROSS(MA5,高压线) AND 去掉;
DRAWTEXT(突破=1,H,"突破"),COLORYELLOW;
回踩:=COUNT(XG,T+1)=1 AND XG AND 去掉;
DRAWTEXT(回踩=1,L-L*0.03,"回踩"),COLORYELLOW;
DRAWLINE(TT=0,H,LTT=0,L,0),COLORYELLOW,LINETHICK2;
DRAWTEXT(LTT=0,L*0.98,"锅底"),COLORYELLOW;
坑:=((L-高压线)/高压线)*100,COLORYELLOW,NODRAW;
金坑:=EXIST(突破=1,34) AND REF(O>C,2) AND REF(O>C,1) AND O<C AND C>高压线 AND 坑<15 AND 去掉;
DRAWTEXT(金坑=1,H+H*0.03,"金坑"),COLORYELLOW;
DRAWNUMBER(金坑=1,L-L*0.03,坑),COLORRED;
NOTEXT突破锅底:EXIST(突破 OR LTT=0,N),COLORRED,NODRAW;
NOTEXT回踩金坑:EXIST(回踩 OR 金坑,N),COLORRED,NODRAW;
LT3:=LLVBARS(L,100);
HT3:=HHVBARS(H,60);
LT13:=FINDLOWBARS(L,HT3+1,30,1);
LTT3:=BARSLAST(CURRBARSCOUNT=CONST(LT3)+1);
LTT13:=BARSLAST(CURRBARSCOUNT=CONST(LT13)+1);
HT13:=FINDHIGHBARS(H,LTT13,LTT3+1,1);
HT1T3:=BARSLAST(CURRBARSCOUNT=CONST(HT13)+1);
HT2T3:=BARSLAST(CURRBARSCOUNT=CONST(HT3)+1);
TJ3:=L>REF(L,LTT3);
TJ13:=H>REF(H,HT1T3);
下轨:DRAWLINE(LTT3=0,L,LTT13=0 AND TJ3,L,1),COLORRED,LINETHICK2;
上轨:DRAWLINE(HT1T3=0,H,HT2T3=0 AND TJ13,H,1),COLORRED,LINETHICK2;
XLT3:=FINDLOWBARS(H,0,HT2T3+1,1);
XLT13:=BARSLAST(CURRBARSCOUNT=CONST(XLT3)+1);
XH1T3:=FINDHIGHBARS(H,XLT13,10,1);
XH1TT3:=BARSLAST(CURRBARSCOUNT=CONST(XH1T3)+1);
DF3:=(C-REF(C,HT2T3+1))/REF(C,HT2T3+1)*100;
XL2TT3:=BARSSINCEN(DF3<-15,HT2T3+1);
TJ23:=H<REF(H,HT2T3);
TJ33:=L<REF(L,XL2TT3);
上:DRAWLINE(HT2T3=0,H,XH1TT3=0 AND TJ23,H,1),COLORGREEN,LINETHICK3;
下:DRAWLINE(XL2TT3=0,L,XLT13=0 AND TJ33,L,1),COLORGREEN,LINETHICK3;