In the following thread, columbus has given ema-strip-bolingerbands system, which seems interesting.
http://www.traderji.com/day-trading/63416-ema-strip-bb.html
afl for above is given below
_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() );
a=EMA(C,3) ;
b=EMA(C,9) ;
d=EMA(C,15) ;
e=EMA(C,4) ;
f=EMA(C,5) ;
g=EMA(C,6) ;
i=EMA(C,7) ;
j=EMA(C,8) ;
k=EMA(C,10) ;
L=EMA(C,11) ;
m=EMA(C,12) ;
n=EMA(C,13) ;
p=EMA(C,14) ;
Plot(a,"",colorWhite,styleLine + styleThick) ;
//Plot(b,"",colorWhite,styleLine + styleThick) ;
//Plot(d,"",colorWhite,styleLine + styleThick) ;
Plot(e,"",colorBrightGreen,styleLine) ;
Plot(f,"",colorBrightGreen,styleLine) ;
Plot(g,"",colorBrightGreen,styleLine) ;
Plot(i,"",colorBrightGreen,styleLine) ;
Plot(j,"",colorBrightGreen,styleLine) ;
Plot(b,"",colorWhite,styleLine + styleThick) ;
Plot(k,"",colorRed,styleLine) ;
Plot(L,"",colorRed,styleLine) ;
Plot(m,"",colorRed,styleLine) ;
Plot(n,"",colorRed,styleLine) ;
Plot(p,"",colorRed,styleLine) ;
Plot(d,"",colorWhite,styleLine + styleThick) ;
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
//_SECTION_END();
//_SECTION_BEGIN("Bollinger Bands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorCycle );
Style = ParamStyle("Style");
Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), colorRed, styleLine );
Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), colorRed, styleLine );
_SECTION_END();
_SECTION_BEGIN("Magnified Market Price");
//by Vidyasagar,
[email protected]//
FS=Param("Font Size",30,30,100,1);
GfxSelectFont("Arial", FS, 900, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorYellow) );
//Hor=Param("Horizontal Position",800,800,800,800);
Hor=Param("Horizontal Position",500,500,200,20);
Ver=Param("Vertical Position",50,50,250,50);
GfxTextOut(""+C,Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Arial", 12, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor("Color",colorYellow) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor+5, Ver+45 );
_SECTION_END();
_SECTION_BEGIN("Price Line");
PriceLineColor=ParamColor("PriceLineColor",ColorRGB(82,82,82));
PriceLevel = ParamField("PriceField", field = 3 );
Daysback = Param("Bars Back",100,10,500,1);
FirstBar = BarCount - DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);
Plot(YY,"Current Price",PriceLineColor,ParamStyle("LineStyle",styleLine|styleDashed|styleNoTitle|styleNoLabel|styleThick,maskAll));
side = Param("side",1,0,1000,1);
dist = 0;
for( i = 0; i < BarCount; i++ )
{
if(i+side== BarCount) PlotText( "\n " + PriceLevel[ i ], i, YY[ i ]-dist
, colorLightBlue );
}
_SECTION_END();