// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("DoubleStochastic");
pds = 10; /*Periods */
/*pds = Optimize("pds",13,2,20,1); */
slw = 3; /*Slowing for Full Stoch%K*/
/*slw = Optimize("slw",3,1,14,1); */
slwd = 3; /*Slowing for Full Stoch%D*/
/*slwd = Optimize("slwd",3,1,14,1); */
ob = 85; /*Overbought */
/*ob = Optimize("ob",83,65,88,1); */
os = 15; /*Oversold */
/*os = Optimize("os",24,20,50,1); */

FSK = 100*(C-LLV(L,pds))/(HHV(H,pds)-LLV(L,pds)); // FASTSTOCHK

FLSK = EMA( FSK, slw ); // FULLSTOCHK

DSK = ((FLSK-LLV(FLSK,pds))/(HHV(FLSK,pds)-LLV(FLSK,pds))) * 100;

DLSK = EMA( DSK, slwd ); // FULLSTOCHD

Plot( MA( DLSK, 3 ), "MA-3"+_PARAM_VALUES(), ParamColor( "ColorD", colorRed ), styleDashed);
Plot( DLSK, "Stochastic %D"+_PARAM_VALUES(), ParamColor( "ColorK", colorBlue ));
Plot(Ob,"Overbought Level",colorRed, styleDashed);
Plot(Os,"Oversold Level",colorGreen, styleDashed); 
_SECTION_END();