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 -------------------------------------
