BSonSto for Amibroker (AFL)

SetChartBkGradientFill( colorLightBlue, colorBlack);


_SECTION_BEGIN("buy-sell on sto");
periods = Param( "Periods", 15, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Dsmooth = Param( "%D avg", 3, 1, 200, 1 );
std=StochD( periods , Ksmooth, DSmooth );
stk=StochK( periods , Ksmooth);
Ob=70;
Os=30;
Buy = Cross(stk,std );
Sell = Cross(std,stk );
Plot( std, "StoD"+_PARAM_VALUES(), ParamColor( "ColD", colorPink ), ParamStyle("StD") );
Plot( stk, "StoK", ParamColor( "ColK", colorBlue ), ParamStyle("StK") );
PlotShapes(IIf(Sell, shapeHollowDownArrow , shapeNone), colorGold);
PlotShapes(IIf(Buy, shapeHollowUpArrow , shapeNone), colorBrightGreen);
Plot(Ob,"oversold",colorPink);
Plot(Os,"overbought",colorBrightGreen); 
_SECTION_END();