通达信天量洗缩量突主图及选股指标(源码)

T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H>REF(MAX(C,O),T),T)<2,1) AND VOL<REF(VOL,T)AND T>20;
XG:=COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
STICKLINE(T>=0,REF(MAX(C,O),T),REF(MAX(C,O),T),4,0),COLOR0066CC;
DRAWTEXT(T=0,H*1.02,VARCAT(VARCAT("天量价：",VAR2STR(REF(MAX(C,O),T),2)),"元"))COLORYELLOW;
STICKLINE(XG,H,L,0,0),COLORFF00FF;
STICKLINE(XG,C,O,3,0),COLOR990099;
STICKLINE(XG,C,O,2,0),COLORBB00BB;
STICKLINE(XG,C,O,1,0),COLORDD00DD;
STICKLINE(XG,C,O,0.3,0),COLORFF00FF;
DRAWICON(XG,L*0.93,38);

{
选股公式:

T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H>REF(MAX(C,O),T),T)<2,1) AND VOL<REF(VOL,T)AND T>20;
XG:COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
}