通达信突破锅顶回踩主图及选股指标公式源码

通达信突破锅顶回踩主图及选股指标公式源码

源码正文：

LT:=LLVBARS(L,60){XG51};
LTT:=BArslAst(CURRBARSCOUNT=CONST(LT)+1){XG51};
HT:=FINDHIGHBARS(H,LT+1,60,1){XG51};
EXT1:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORBLUE,LINETHICK2{XG51};
TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1){XG51};
T:=BARSLAST(crOSS(C,REF(H,TT))){XG51};
GL:=C/REF(H,TT){XG51};
TA:=BARSLAST(GL=HHV(GL,T+1)){XG51};
DF:=(C-REF(C,TA+1))/REF(C,TA+1)*100{XG51};
JL:=L/REF(H,TT){XG51};
XG:=DF<-8 AND JL<1.075 AND MIN(C,O)*1.005>=REF(H,TT){XG51};
XGT:=BARSLAST(COUNT(XG,T+1)=1 AND XG){XG51};
QF:=BacKSET(XGT=0,TA+1){XG51};
QFT:=BARSLAST(CROSS(QF=1,0.5)){XG51};
XZF:=REFX(DF,BARSNEXT(XGT=0)){XG51};
DRAWICON(CROSS(XGT=0,0.5),L*0.95,1){XG51};
DRAWLINE(T=0,REF(H,TT),QFT=0,REF(H,QFT),0),DOTLINE,COLORBLUE{XG51};
DRAWLINE(QFT=0,REF(H,QFT),XGT=0,REF(H,TT),0),DOTLINE,COLORBLUE{XG51};
DRAWTEXT(TT=0,REF(H,TT)*1.05,VARCAT(VARCAT('支撑价：',VAR2STR(REF(H,TT),2)),'元'))COLORBLUE{XG51};
DRAWLINE(QFT=0,REF(H,QFT)*1.05,QFT=10,REF(H,QFT)*1.05,0),COLORRED,LINETHICK3{XG51};
DRAWTEXT(QFT=0,REF(H,QFT)*1.1,VARCAT(VARCAT('信号处跌幅：',VAR2STR(XZF,2)),'%'))COLORBLUE{X_G*5*1_C_N_{};