通达信公式V型反转主图及选股源码

以下是通达信公式V型反转主图及选股源码

HT:=HHVBARS(H,15);
LT:=LLVBARS(L,15);
DF1:=(REF(C,LT)-REF(C,HT+1))/REF(C,HT+1)*100;
DF2:=(C-REF(C,LT+1))/REF(C,LT+1)*100;
TJ:=C>=REF(C,HT);
XG:=HT>LT AND DF1<-5 AND COUNT(TJ,HT+1)=1 AND TJ;
XGT:=BARSLAST(XG);
HQF:=BACKSET(XG,HT+1);
LQF:=BACKSET(XG,LT+1);
HQFT:=BARSLAST(CROSS(HQF=1,0.5));
LQFT:=BARSLAST(CROSS(LQF=1,0.5));
DRAWLINE(HQFT=0,H,LQFT=0,L,0),COLORRED,LINETHICK2;
DRAWLINE(LQFT=0,L,XG,L,0),COLORRED,LINETHICK2;
DRAWTEXT(LQFT=0,L*0.95,VARCAT(VARCAT('跌幅:',VAR2STR(REFX(DF1,BARSNEXT(XGT=0)),2)),'%'))COLORYELLOW;
DRAWTEXT(XGT=0,H*1.02,VARCAT(VARCAT('涨幅:',VAR2STR(REF(DF2,XGT),2)),'%'))COLORYELLOW;
STICKLINE(XG,C,O,2,0),COLORMAGENTA;
STICKLINE(XG,H,L,0,0),COLORMAGENTA;

选股公式:

HT:=HHVBARS(H,15);
LT:=LLVBARS(L,15);
DF1:=(REF(C,LT)-REF(C,HT+1))/REF(C,HT+1)*100;
DF2:=(C-REF(C,LT+1))/REF(C,LT+1)*100;
TJ:=C>=REF(C,HT);
HT>LT AND DF1<-5 AND COUNT(TJ,HT+1)=1 AND TJ;