通达信看主力指标公式源码副图

MA5:=MA(CLOSE,5);
涨幅:=(C/REF(C,1)-1)*100;
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR21:=SMA(Abs(HIGH-VAR1),13,1)/SMA(MIN(HIGH-VAR1,0),10,1);
VAR31:=EMA(VAR21,10);
VAR41:=HHV(HIGH,33);
VAR51:=EMA(IF(HIGH>=VAR41,VAR31,0),3)/2;
主力拉高:IF(VAR51<REF(VAR51,1),-VAR51,0),COLORYELLOW,NODRAW;
RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
K1:=SMA(RSV,10,1);
D1:=SMA(K1,5,1);
KK:=INTPART(K1);
DD:=INTPART(D1);
TFXXS:=KK+DD;{//变异kd风险系数}
TGLD:=MOD(TFXXS,10);{//踏浪涨停概率点}
TGLXS:=(TFXXS-REF(TFXXS,1))*10;{//变异KD乖离系数}
TYCFX:=TFXXS+TGLXS;{//变异KD预测风险}
DRAWTEXT(TGLXS>0 AND 80+TGLXS<TYCFX AND MA(CLOSE,34)>REF(MA(CLOSE,34),1) AND 80+REF(TGLXS,1)>=REF(TYCFX,1),25,'主力流入'),COLORYELLOW;
JH:=vol*CLOSE;
JHO:=SUM(JH,2)/SUM(VOL,2);
JH0:=EMA(JHO,10);
 

源码末粘贴完,请下载附件.........