通达信愚公超短线选股指标公式源码

通达信愚公超短线选股指标公式源码

源码正文：

VAR1:=1{XG51};
VAR2:=(2*CLOSE+HIGH+LOW)/4;
天: 80, POINTDOT;
人: 20;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
散户: ema((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3*VAR1;
庄家: Ema(0.667*REF(散户,1)+0.333*散户,2)*VAR3*VAR1;
VAR6:=(HHV(HIGH,4)-VAR2)/(HHV(HIGH,4)-LLV(LOW,4))*100-72;
VAR7:=(VAR2-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
倒影: SMA(VAR6,4,1)*VAR1;
VAR8:=SMA(VAR7,2,1);
黄山: SMA(VAR8,2,1)*VAR1;
地平线: 12{XG51};
DRAWTEXT(crOSS(庄家,散户) AND 散户>40 AND 71>散户,55, '短快出'),COLOR00FFFF{XG51};
DRAWICON(CROSS(庄家,散户) AND 散户>40 AND 71>散户,45,2){XG51};
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,80,'逢高减'),COLORFFFF33{XG51};
DRAWICON(CROSS(庄家,散户) AND 散户>70,70,2){XG51};
VAR9:=CLOSE-REF(CLOSE,5){XG51};
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(Abs(VAR9),5),5)*100;
VARB:=EMA(EMA(VAR9,10),10)/EMA(EMA(ABS(VAR9),10),10)*100;
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20)*100;
卖出: IF(VARA>0 AND CROSS(VARC,VARA),-40,0);
DRAWTEXT(卖出,-10,'中线逃'),COLOR0033FF{XG51};
DRAWICON(卖出<0,-25,2){XG51};
DRAWTEXT(CROSS(散户,庄家) AND 庄家<30,30,'逢低吸'),COLORRED{XG51};
逢低吸:CROSS(散户,庄家) AND 庄家<30{X.G-5_1.C.N.{};