通达信百日地量选股指标公式源码

通达信百日地量选股指标公式源码

源码正文：

VAR2:=ema(SLOPE(Ema(CLOSE,20),10)*34+CLOSE,30){XG51};
VAR3:=EMA(VAR2,3){XG51};
VAR4:=EMA(VAR3,3){XG51};
VAR5:=EMA(VAR4,3){XG51};
VAR6:=EMA(VAR5,3){XG51};
VA7:=EMA(VAR6,3){XG51};
VAR7:=EMA(VA7,3){XG51};
VA8:=EMA(VAR7,3){XG51};
VAR8:=EMA(VA8,3){XG51};
VAR9:=EMA(VAR8,3){XG51};
VARA:=BArslAst(crOSS(CLOSE,VAR9)){XG51};
VARB:=BARSLAST(CROSS(VAR9,CLOSE)){XG51};
卷帘操作:IF(CLOSE>VAR9 AND CLOSE>REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA)),COLORFFC8FF,POINTDOT{XG51};
STICKLINE(CLOSE>VAR9 AND CLOSE>REF(CLOSE,VARA),REF(CLOSE,VARA),LOW*1,00,1),COLORWHITE,LINETHICK2{XG51};
强:IF(CLOSE<VAR9 AND CLOSE<REF(CLOSE,VARB),REF(CLOSE,VARB),REF(CLOSE,VARB)),COLOR0099FF,POINTDOT{XG51};
STICKLINE(CLOSE<VAR9 AND CLOSE<REF(CLOSE,VARB),REF(CLOSE,VARB),HIGH*1,0,1),COLORCYAN,LINETHICK2{XG51};
势:IF(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA)),COLORBLUE,POINTDOT{XG51};
STICKLINE(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),LOW*1.02,0,1),COLORBLUE{XG51};
垂帘休息:IF(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA)),COLORFFCCCC,POINTDOT{XG51};
STICKLINE(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA),6,1),COLORRED,LINETHICK2{XG51};
沉:IF(CLOSE<VAR9,REF(CLOSE,VARB),REF(CLOSE,VARB)),COLORB3B3B3,POINTDOT{XG51};
STICKLINE(CLOSE<VAR9,REF(CLOSE,VARB),REF(CLOSE,VARB),16,0),COLORB3B3B3,LINETHICK2{XG51};
STICKLINE(CLOSE>VAR9,REF(CLOSE,VARA),REF(CLOSE,VARA),16,0),COLORYELLOW,LINETHICK2{XG51};
STICKLINE(C>=O,H,L,0,0),COLORWHITE,LINETHICK2{XG51};
X5:HHV((REF(CLOSE,1)+REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4))/4,5),LINETHICK3,COLOR00FF00{XG51};
X10:HHV((REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5))/4,10),LINETHICK3,COLORBLUE{XG51};
X20:HHV((REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6))/4,20),LINETHICK3,COLORFF00FF{XG51};
BY:=CROSS(C,X5) AND CROSS(C,X10) AND CROSS(C,X20) AND C/REF(C,1)>1.015{XG51};
BH:=CROSS(X5,X10) AND C>O{XG51};
DRAWTEXT(BY OR BH,L-0.12,'●操作'),COLORBLUE{XG51};
VAR2:=0.1*AMOUNT{XG51};
MA1:=0.1*MA(AMOUNT,5){XG51};
MA2:=0.1*MA(AMOUNT,10){XG51};
百日地量:LLV(VAR2,25)=VAR2,STICK,COLORWHITE,LINETHICK4{XG51};
DRAWTEXT(百日地量,0.3,'地量'),COLORWHITE{X=G!5*1=C=N={};