通达信RSI WR DMI三合一 副图指标
通达信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;
