// Downloaded From https://www.WiseStockTrader.com
stochper = Param( "Stochastic Period?", 30, 2, 100 ); 
slowing = Param( "Stochastic Slowing?", 5, 1, 10 ); 
MA1 = WMA(C,2); RBW=5*MA1;
MA1 = WMA(MA1,2); RBW=RBW+4*MA1;
MA1= WMA(MA1,2); RBW=RBW+3*MA1;
MA1=WMA(MA1,2); RBW=RBW+2*MA1;
MA1=WMA(MA1,2); RBW=RBW+MA1;
MA1=WMA(MA1,2); RBW=RBW+MA1;
MA1=WMA(MA1,2); RBW=RBW+MA1;
MA1=WMA(MA1,2); RBW=RBW+MA1;
MA1=WMA(MA1,2); RBW=RBW+MA1;
MA1=WMA(MA1,2); RBW=(RBW+MA1)/20;
RBWStoch=(Sum(RBW-LLV(RBW,stochper),slowing)/(Sum(HHV(RBW,stochper)- LLV(RbW,stochper),slowing)+0.0001)*100);
x= 0.1*(RBWStoch-50);
IFTStoch=((Exp(2*x)-1)/(Exp(2*x)+1)+1)*50;
Plot(IFTStoch, _DEFAULT_NAME(), colorRed);