通达信RSI WR DMI三合一 副图指标

源码

STICKLINE(C>0,72,96,10,0),COLORBLUE;
 STICKLINE(C>0,48,72,10,0),COLORBROWN;
 STICKLINE(C>0,24,48,10,0),COLORBLUE;
 STICKLINE(C>0,6,24,10,0),COLORBROWN;
 {RSI}
 LC := REF(C,1);
 DRSI:=EMA(MAX(C-LC,0),48)/EMA(ABS(C-LC),48)*100;
趋势:EMA(Drsi,6),COLOR00bb00,LINETHICK2;
 RSI:EMA(MAX(C-LC,0),24)/EMA(ABS(C-LC),24)*100,COLOR00CCCC,LINETHICK1;
 MRSI:EMA(rsi,6),COLORMAGENTA;
 KRSI:EMA(MAX(C-LC,0),12)/EMA(ABS(C-LC),12)*100,COLORFAABEC,LINEDOT;
 {WR}
 WR1:=100*((REF(HHV(H,5),1)-EMA(C,2))/(REF(HHV(H,5),1)-REF(LLV(L,5),1))+(REF(HHV(H,8),1)-EMA(C,3))/(REF(HHV(H,8),1)-ref(LLV(L,8),1)))/2;
 WR2:=100*((REF(HHV(H,13),1)-EMA(C,5))/(REF(HHV(H,13),1)-REF(LLV(L,13),1))+(REF(HHV(H,15),1)-EMA(C,6))/(REF(HHV(H,15),1)-ref(LLV(L,15),1)))/2;
 WR3:=100*(REF(HHV(H,31),1)-EMA(C,12))/(REF(HHV(H,31),1)-REF(LLV(L,31),1));
 WR4:=100*(REF(HHV(H,67),1)-EMA(C,26))/(REF(HHV(H,67),1)-REF(LLV(L,67),1));
 WR5:=100*(REF(HHV(H,144),1)-EMA(C,56))/(REF(HHV(H,144),1)-REF(LLV(L,144),1));
空:(WR1+WR2+WR3+WR4+wr5)/5,COLORAAAA00,LINETHICK2;
 {DMI}
 KC1:=MAX(MAX((H-L),ABS(H-REF(C,1))),ABS(REF(C,1)-L));
 KC2:=MAX(MAX(abs(c-o),ABS(H-MIN(c,o))),ABS(MAX(c,o)-L));
 KC:=(KC1+KC2)/2;
 MTR:=SUM(KC,12);
 HD :=H-REF(H,1);
 LD :=REF(L,1)-L;
 DMP:=SUM(IF(HD>0 AND HD>LD,HD,0),12);
 DMM:=SUM(IF(LD>0 AND LD>HD,LD,0),12);
多:DMP*100/MTR,LINETHICK2,COLORWHITE;
 STICKLINE(多>48,多,48,1,0),COLORFAABEC;