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;
