// Downloaded From https://www.WiseStockTrader.com
stochlen = Param("Stoch Length", 8, 3, 30 );
smoothlen = Param("Smooth Period", 25, 5, 100 );
sk = StochK(stochlen, 1 );
len = sqrt( smoothlen );
nsk = 0.1 * (sk - 50 );
ss = EMA( EMA( nsk, len ), len);
expSS = exp( ss );
pso = ( expSS - 1 )/( expSS + 1 );
Plot( pso, "pso", colorBlack, styleThick );
Plot( pso, "", IIf( pso < 0, colorRed, colorBlue ), styleHistogram );
Plot( 0.2, "", colorBlue );
Plot( 0.9, "", colorBlue );
Plot( -0.2, "", colorRed );
Plot( -0.9, "", colorRed );