通达信REVRSI主图指标

源码

VALUE:=50;
WILDPER:=14;
M:=13;
EXPPER:=2*WILDPER-1;

AUC:=EMA( IF(C>REF(C,1),C-REF(C,1),0),EXPPER);
ADC:=EMA( IF(REF(C,1)>C,REF(C,1)-C,0),EXPPER);

X:=(WILDPER-1)*(ADC*VALUE/(100-VALUE)-AUC);
REVENGRSI0:=IF(X>=0,C+X,C+X*(100-VALUE)/VALUE);
REVRSI:MA(REVENGRSI0,M), COLORYELLOW LINETHICK1;
PR:=REVRSI;
MARSI:MA(PR,5) COLORWHITE LINETHICK1;
N:=20;
MB:MA(CLOSE,N) COLORMAGENTA LINETHICK2;
SS:=SQRT(SUM(POW(CLOSE-MB,2),20)/20);
上轨:MB+SS COLORBROWN  CIRCLEDOT,LINETHICK3;
下轨:MB-SS COLORBROWN  CIRCLEDOT,LINETHICK3;
上极:MB+1.7*SS COLORGREEN LINETHICK2;
下极:MB-1.7*SS COLORGREEN LINETHICK2;