For those of you who found the Colored Bollinger Bands
useful, I have made a slight change to make it a bit more eye appealing, by
coloring area between Bands.
Below find the code.
Enjoy,
Don Lindberg
-------------------- Cut Here
-------------------------------------
//Colored Bollinger Bands with Price
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g,
Close %g (%.1f%%) {{VALUES}}", O, H, L,
C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack
), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("Colored
Bollinger Bands");
pr=Param( "Period",20,0,100,1);
P = ParamField("Price field",-1);
Style = ParamStyle("Style") | styleNoRescale | styleNoLabel
|styleDashed;
BBT=BBandTop(P,pr,2);
BBB=BBandBot(P,pr,2);
topcond = (Cross(BBT,C)OR
C>BBT)AND Ref(C, -1)> BBT;
botcond = ( Cross(C,BBB))AND
Ref(C, -1 <
BBB);
bbtcolor = IIf( BBT>
Ref (BBT, -1), colorDarkGreen,colorRed );
bbbcolor = IIf( BBB
> Ref (BBB, -1), colorDarkGreen,colorRed );
Plot( BBT, "BBTop" + _PARAM_VALUES(), bbtcolor, styleLine|styleThick);
Plot( BBB, "BBBot" + _PARAM_VALUES(), bbbcolor, styleLine|styleThick
);
PlotOHLC( BBT,BBT,BBB,BBB, "", colorRose,styleCloud );
Buy=botcond;
Sell=topcond ;
// If you feel there are too many arrows you can un-comment the
next two lines.
//Buy=ExRem(Buy,Sell);
//Sell=ExRem(Sell,Buy);
PlotShapes(shapeUpArrow * Buy, colorGreen,
0, L, - 10);
PlotShapes(shapeDownArrow * Sell, colorRed,
0, H, - 10);
_SECTION_END();
-------------------- Cut Here
-------------------------------------