通达信牧童遁庄未加密选股指标公式源码

源码正文：

VAR1:=(CLOSE*2+HIGH+LOW)/4{XG51};
VAR2:=ema(VAR1,21)-Ema(VAR1,34){XG51};
VAR3:=EMA(VAR2,10){XG51};
多方控盘:2*(VAR2-VAR3)*3.81,COLORWHITE{XG51};
空方控盘:(-2)*(VAR2-VAR3)*3.81,COLORCYAN{XG51};
stICKLINE(多方控盘>0,0,多方控盘,0,0),COLORWHITE{XG51};
STICKLINE(空方控盘<0,0,空方控盘,0,0),COLORCYAN{XG51};
STICKLINE(多方控盘<0,0,多方控盘,0,0),COLORWHITE{XG51};
STICKLINE(空方控盘>0,0,空方控盘,0,0),COLORCYAN{XG51};
DRAWTEXT(crOSS(空方控盘,多方控盘),空方控盘,'始'){XG51};
DRAWTEXT(CROSS(多方控盘,空方控盘),多方控盘,'终'){X!G+5_1!C!N!{};

源码正文：

ZT:=CLOSE/REF(C,1)>=1.099 AND CLOSE/REF(C,1)<=1.13 AND H==C{XG51};
A1:=BArslAst(ZT);{XG51};
GK:=(REF(MIN(MIN(C,O),L),A1-1)-REF(C,A1))>=0.01 AND NOT(ZT){XG51};
QKJ:=L<=REF(C,A1)+(REF(MIN(C,O),A1-1)-REF(C,A1)) AND (L-REF(C,A1))>=0.01{XG51};
XG1:FILTER(QKJ AND GK AND RANGE(A1,1,10) AND EVERY(((L-REF(C,A1))>=0.01)=1,A1),10){X+G*5*1+C+N+{};