Oscillator RSI - Stochastic - Normalized by Jose Silva

RSI - Stochastic - Normalized

{ Stochastic-normalized RSI v1.0 }
{ http://www.metastocktools.com }

pds1:=Input("RSI periods",2,252,21);
pds2:=Input("Stochastic periods",2,252,63);
x:=Input("use Open=1 High=2 Low=3 Close=4 Volume=5 P=6",1,6,4);
plot:=Input("plot Stoch-RSI=1, RSI=2, both=3",1,3,1);

x:=If(x=1,O,If(x=2,H,If(x=3,L,If(x=5,V,If(x=6,P,C)))));

Rs:=RSI(x,pds1);
{MetaStock versions earlier than v7.2, use:}
{Rs:=RSI(pds1);}

StochRsi:=(Rs-LLV(Rs,pds2))/
(HHV(Rs,pds2)-LLV(Rs,pds2)+.000001)*100;

If(plot=3,Rs,50);
If(plot=2,Rs,StochRsi)