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

T:=HHVBARS(VOL,200);
TJ:=REF(COUNT(H REF(MAX(C,O),T),T) 2,1) AND VOL REF(VOL,T)AND T
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
XG:COUNT(CROSS(C,REF(MAX(C,O),T)),T)=1 AND CROSS(C,REF(MAX(C,O),T)) AND TJ;
}