can anybody share the prime system afl

hmsanil · Jun 20, 2011

hello,

can anybody share the afl shown in the chart.
The afl name is prime system

rsuresh13 · Jun 21, 2011

_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();

rakeshkrohilla · Jun 21, 2011

Dear rsuresh13

I think there is some problem with formula. it is not working. If have have working AFL please attach it or copy & past from working afl.

hmsanil · Jun 21, 2011

thanks for the afl, but i am looking for the afl that is present in the image

suvashish_das · Jun 23, 2011

thanks for the afl

jrajnikant · Mar 16, 2012

Not have signal

XRAY27 · Mar 18, 2012

Dear members, now it will be error free

_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();

when there is word Nifty1 change it to NIFTY-1 for nifty future

XRAY27 · Mar 18, 2012

Dear members, now it will be error free

_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();

Change the Word Nifty-1 for Nifty future

XRAY27 · Mar 20, 2012

Can any body adjust the price part to this mode --- trigger price candle to blue

johnnypareek · Mar 20, 2012

XRAY27 said:

post afl. will try

Thread starter	Similar threads	Forum	Replies	Date
R	ninjatrader data from shareguru-problems can anybody help please	Intraday	4	Aug 25, 2015
S	can anybody share instant fibonacci afl	AmiBroker	3	Jul 26, 2015
V	need volume V-spiker afl , anybody can share ?	AmiBroker	4	Jun 13, 2015
P	can anybody share this MT4	Advanced GET	15	Feb 23, 2014
A	pls pls pls if anybody have share this afl	AmiBroker	12	Oct 8, 2013

can anybody share the prime system afl

hmsanil

Active Member

rsuresh13

New Member

rakeshkrohilla

Member

hmsanil

Active Member

suvashish_das

New Member

jrajnikant

New Member

XRAY27

Well-Known Member

XRAY27

Well-Known Member

XRAY27

Well-Known Member

johnnypareek

Well-Known Member

Similar threads