Anybody has this AFL

I found this picture on internet. This looks much useful. If anyone has this, please share.

take it

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

TimeFrameSet(inDaily);
DayHigh = LastValue(H);
DayLow = LastValue(L);
TimeFrameRestore();

Title = Name() + " " + Date() + ", Op=" + Open + ", Hi=" + High + ", Lo=" + Low + ", Close=" + Close + ", Change= " + SelectedValue( ROC( C, 1 ) ) + "%" + "\n Today`s High=" + DayHigh + ", Today`s Low=" + DayLow + ", " ;


_SECTION_BEGIN("Volume");
Plot( Volume, _DEFAULT_NAME(), ParamColor("Color", colorLavender ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 2 );
_SECTION_END();


_SECTION_BEGIN("EMA34");
P = ParamField("Price field",-1);
Plot( EMA( P, 34 ), _DEFAULT_NAME(), ParamColor( "Color", colorBlue ), ParamStyle("Style",styleLine|styleNoLabel) );
_SECTION_END();

_SECTION_BEGIN("Nifty_compare");
PlotForeign("NIFTY","NIFTY",ParamColor("Color", colorPink ), styleNoTitle | ParamStyle("Style", styleOwnScale | styleThick|styleNoLabel) );
_SECTION_END();

_SECTION_BEGIN("Nifty_compare1");
PlotForeign("^NSEI","NIFTY1",ParamColor("Color", colorPink ), styleNoTitle | ParamStyle("Style", styleOwnScale | styleThick|styleNoLabel) );
_SECTION_END();


_SECTION_BEGIN("Arrow_marks");
periods = Param( "Periods", 20, 1, 200, 1 );
Ksmooth = Param( "%K avg", 12, 1, 200, 1 );
DSmooth = Param( "%D avg", 10, 1, 200, 1 );

y0=LastValue(Trough(StochD(periods , Ksmooth, DSmooth ),1,2));
y1=LastValue(Trough(StochD(periods , Ksmooth, DSmooth ),1,1));
x0=BarCount - 1 - LastValue(TroughBars(StochD(periods , Ksmooth, DSmooth ),1,2));
price_start=Close[x0];
x1=BarCount - 1 - LastValue(TroughBars(StochD(periods , Ksmooth, DSmooth ),1,1));
price_end=Close[x1];
Line = LineArray( x0, y0, x1, y1, 0 );
Buy = y1>y0 AND price_end<price_start;
LastPointBuy = LineArray(x1-1,Close[x1-1],x1,Close[x1],0);
PlotShapes(shapeUpTriangle * Buy, colorGreen,0,LastPointBuy);
AlertIf(Buy,"","",1);

y00=LastValue(Peak(StochD(periods , Ksmooth, DSmooth ),1,2));
y11=LastValue(Peak(StochD(periods , Ksmooth, DSmooth ),1,1));
x00=BarCount - 1 - LastValue(PeakBars(StochD(periods , Ksmooth, DSmooth ),1,2));
price_start1=Close[x00];
x11=BarCount - 1 - LastValue(PeakBars(StochD(periods , Ksmooth, DSmooth ),1,1));
price_end1=Close[x11];
Line = LineArray( x00, y00, x11, y11, 0 );
LastPointSell = LineArray(x11-1,Close[x11-1],x11,Close[x11],0);
Sell = y11<y00 AND price_end1>price_start1;
PlotShapes(shapeDownTriangle * Sell, colorRed,0,LastPointSell);
AlertIf(Sell,"","",2);

dist = 0.8*ATR(10);
if( Buy )
{
PlotText( "\n@ " + Close[x1],x1, L[x1] - dist[x1], colorGreen ,colorYellow);
targetValue = (Close[x1])*(1.01);
stopValue = (Close[x1])*(0.99);

LastBar = BarCount - 1 - LastValue(x1);
target = LineArray(x1,targetValue, LastBar,targetValue,1,False);
stop = LineArray(x1,stopValue, LastBar,stopValue,1,False);
Plot(target,"BuyTgt",colorGreen,styleLine|styleThick);
Plot(stop,"BuyStop",colorRed,styleLine|styleThick);
}
if( Sell )
{
PlotText( "@ " + Close[x11],x11, H[x11] + dist[x11], colorRed ,colorYellow);
targetValue = (Close[x11])*(0.99);
stopValue = (Close[x11])*(1.01);
LastBar = BarCount - 1 - LastValue(x11);
target = LineArray(x11,targetValue, LastBar,targetValue,1,False);
stop = LineArray(x11,stopValue, LastBar,stopValue,1,False);
Plot(target,"SellTgt",colorGreen,styleLine|styleThick);
Plot(stop,"SellStop",colorRed,styleLine|styleThick);
}
_SECTION_END();

Suresh thanks for your efforts.. can you mention in plain English hat the AFL is doing? As I do not use Amibroker hence the request!!

Dear RSuresh

Please check the AFL Code. It is not working. showing Errors.

Suresh can you please explain how this AFL will be loaded in AmiBroker? I am new to use this. Thanks.

Copy the code, open amibroker go to view>charts.Then right click on custom.

Select New>Formula.Paste the code and save it.

Then select the formula,right click then insert

thats it

Thanks hmsanil. But my problem not yet solved. When I go to View and click to chart then one tick-mark is appearing and going off in next click. Please advice. Thanks.

copy the formula and paste it in a text document. while saving save it as "gsn.afl". then copy the file and paste it inside

C:\Program Files\AmiBroker\Formulas\Custom

check it out

Dear hmsanil

Still this formula not working. I think there is some mistake in formula. If you have working gsn.afl, kindly attach the afl for download or again copy the formula from working gsn.afl.

check it out in this link

i have attached the working text document

http://www.traderji.com/amibroker/55248-anybody-has-afl-2.html