Modified Format Heikin Ashi Envelope System - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

_SECTION_BEGIN("D_Opt HaDiffCO");
/* HaDiffCo for use with Heikin-Ashi Modified Candlestick Chart */
HaClose=(O+H+L+C)/4;
HaOpen=AMA(Ref(HaClose,-1),0.5);
HaHigh=Max(H,Max(HaClose,HaOpen));
HaLow=Min(L,Min(HaClose,HaOpen));
HaDiffCO = HaClose-HaOpen;
Per = Param("MA Periods",8,3,50,1);
Plot(HaDiffCO,"HaDiffCO",colorWhite);
Plot(WMA(HaDiffCO,5),"HaDiffCO",colorRed, styleDots);
Plot(MA(HaDiffCO,per),"MA("+per+")",colorBlue,styleDots);
// Plot Arrows
Buy = Cross(WMA(HaDiffCO,5),MA(HaDiffCO,per));
Short = Cross(MA(HaDiffCO,per),WMA(HaDiffCO,5));
Title = "HaDiffCO";
_SECTION_END();
_SECTION_BEGIN("Bollinger Bands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorCycle );
Style = ParamStyle("Style");
Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); 
Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style ); 
_SECTION_END();