通达信动能评分指标公式副图源码

RSI_P:=14;
LC:=REF(C,1);
RSI_UP:=SMA(MAX(C-LC,0),RSI_P,1);
RSI_DN:=SMA(ABS(C-LC),RSI_P,1);
RSI_VAL:=IF(RSI_DN=0,50,RSI_UP/RSI_DN*100);
RSI_SC:=IF(RSI_VAL>70,10,IF(RSI_VAL>50,7,IF(RSI_VAL>30,4,IF(RSI_VAL>20,1,0))));
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
KD_SC:=IF(J>80,0,IF(J>50,5,IF(J>20,3,0)));
DIF:=EMA(C,12)-EMA(C,2:=EMA(DIF,9);DEA

MACD:=2*(DIF-DEA);
MD_SC:=IF(DIF>DEA,IF(MACD>0,5,3),0);
MO_RAW:=RSI_SC+KD_SC+MD_SC;
N_TR:=9;
M1_TR:=13;
M2_TR:=34;
EMA_S:=EMA(C,N_TR);
EMA_M:=EMA(C,M1_TR);
EMA_L:=EMA(C,M2_TR);
EM_DUO:=EMA_S>EMA_M AND EMA_M>EMA_L;
MO_FIN:=IF(EM_DUO,MO_RAW,MO_RAW*0.5);
MO_SC:=MAX(0,MIN(20,MO_FIN));
动能分:MO_SC;
强:IF(MO_SC>=15,MO_SC,DRAWNULL),COLORRED,LINETHICK2;
中:IF(MO_SC>=8 AND MO_SC< 15,MO_SC,DRAWNULL),COLORYELLOW,LINETHICK2;
弱:IF(MO_SC< 8,MO_SC,DRAWNULL),COLORGREEN,LINETHICK2;
15;
8;