// Downloaded From https://www.WiseStockTrader.com
// Inverse Fisher Transform Stochastic Oscillator 
stochper = Param( "Stochastic Period?", 30, 2, 100 ); 
slowing = Param( "Stochastic Slowing?", 5, 1, 10 ); 
mav = WMA( C, 2 ); 
RBW = 5 * mav; 
mav = WMA( mav, 2 ); 
RBW += 4 * mav; 
mav = WMA( mav, 2 ); 
RBW += 3 * mav; 
mav = WMA( mav, 2 ); 
RBW += 2 * mav; 
for( i = 0; i < 6; i++ ) 
{ 
 mav = WMA( mav, 2 ); 
 RBW += mav; 
} 

RBW /= 20; 
RBWStoch = 100 * Sum( RBW - LLV( RBW, stochper ), slowing ) / 
( Sum( HHV( RBW, stochper ) - LLV( RbW, stochper ), slowing ) + 0.0001 ); 

x = 0.1 * ( RBWStoch - 50 ); 
IFTStoch = ( ( exp( 2 * x ) - 1 ) / ( exp( 2 * x ) + 1 ) + 1 ) * 50; 

Plot( StochK(stochper, slowing), "StochK" + _PARAM_VALUES(), colorBlue ); 
Plot( IFTStoch, "IFT" + _PARAM_VALUES(), colorRed ); 

Buy = IFTStoch > 30; 
Sell = IFTStoch < 60; 

Short = IFTStoch < 60 AND Close < MA( Close, 165 ); 
Cover = IFTStoch > 30;