// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("DoubleStochasticAmibroker");
// Double Stochastic Exp Amibroker
Pricefield = ParamField( "Price field", -1 );
Periods = Param( "Periods double Stochastic", 14, 2, 250, 1 );
Smooth = Param( "Smoothing double Stochastic", 7, 1, 125, 1);
LevelHi = Param("Hi Line", 80, 0, 100, 1);
LevelLO = Param("Low Line", 20, 0, 100, 1);
ap=IIf(HHV( H, Periods) - LLV( L, Periods)==0,.0001,HHV( H, Periods) - LLV( L, Periods));
A = EMA(( C-LLV( L, Periods))/ap, Smooth)*100;
//Plot(HHV( H, Periods),"A", colorWhite);
B = IIf((HHV( A, periods) - LLV(A, periods))!=0,(HHV( A, periods) - LLV(A, periods)),.001);
DStoc = EMA((A-LLV( A, periods))/B, Smooth)*100 ; 
Plot(LevelHi, "Hi Line", colorBlueGrey, styleLine);
Plot(LevelLo, "Low Line", colorBlueGrey, styleLine);
Plot( DStoc, "Double Stochastic Exp", ParamColor( "Color", colorCycle ), ParamStyle("Style")  );
_SECTION_END();