Re: [Komunitas AmiBroker] AFL Pivot

_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",styleThick | styleDashed,maskAll) | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("MA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 100, 2, 200, 1, 10 );
Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorWhite ), ParamStyle("Style"));
_SECTION_END();


_SECTION_BEGIN(" Pivot Point");
per1=Param("#1 S/R %", .25,.05,5,.05);
LB1=Param("#1 Lookback Period",2,2,30,1);
per2=Param("#2 S/R %", .5 ,.05,5,.05);
LB2=Param("#2 Lookback Period",2,2,30,1);
per3=Param("#3 S/R %", 2,.05,5,.05);
LB3=Param("#3 Lookback Period",2,2,30,1);
color=ParamColor("S/R Color",colorTurquoise);


//////////////////////////S?R LINES 1/////////////////////////////////////
procedure SRlines(per,Lb)
{
ys0=LastValue(Trough(L,per,Lb));
ys1=LastValue(Trough(L,per,Lb-1));
xs0=BarCount - 1 - LastValue(TroughBars(L,per,Lb));
xs1=BarCount - 1 - LastValue(TroughBars(L,per,Lb-1));
yr0=LastValue(Peak(H,per,Lb));
yr1=LastValue(Peak(H,per,Lb-1));
xr0=BarCount - 1 - LastValue(PeakBars(H,per,Lb));
xr1=BarCount - 1 - LastValue(PeakBars(H,per,Lb-1));
sl = LineArray( xs0, ys0, xs1, ys1,1 );
rL = LineArray( xr0, yr0, xr1, yr1,1 );
Plot( sl, "S line", color,1 );
Plot( rl, "R line", color,1 );
}
//////////////////////////S?R LINES 2/////////////////////////////////////

SRlines(per1,Lb1);
SRlines(per2,Lb2);
SRlines(per3,Lb3);


_SECTION_BEGIN("PiVoT StyLe");

//warna pivot di parameter
PivotStyle = ParamStyle("Pivot",styleStaircase,maskAll);

//ambil data harian
DH = Ref(H,-1);
DL = Ref(L,-1);
DC = Ref(C,-1);

//ambil data mingguan
WH = TimeFrameGetPrice( "H", inWeekly, -1 );
WL = TimeFrameGetPrice( "L", inWeekly, -1 );
WC = TimeFrameGetPrice( "C", inWeekly, -1 );

//pivot harian
pd = ( DH + DL + DC ) / 3;
r1d = (Pd * 2) - DL;
s1d = (Pd * 2) - DH;
r2d = pd + (r1d - s1d);
s2d = pd - (r1d - s1d);
r3d = DH + 2 * (pd - DL);
s3d = DL - 2 * (DH - pd);



//pivot mingguan
pw = ( WH + WL + WC ) / 3;
r1w = (Pw * 2) - WL;
s1w = (Pw * 2) - WH;
r2w = pw + (r1w - s1w);
s2w = pw - (r1w - s1w);
r3w = WH + 2 * (pw - WL);
s3w = WL - 2 * (WH - pw);



//area sinyal
ASd = s1d + (( pd - s1d ) / 2);
ASw = s1w + (( pw - s1w ) / 2);


//scan sinyal beli
Buy = (C >= pd)
AND (C >= pw)
AND (C > O);
// AND (C >= H);

//scan untuk yang mendekati beli
Sell = (C >= ASd)
AND ( C >= pw )
AND ( Buy != 1 )
AND ( C > O )
// AND (C >= H)
OR

(C >= ASw)
AND ( C >= pd )
AND ( Buy != 1 )
AND ( C > O );
// AND (C >= H);


//cetak nilai S, R, dan pivot daily
Plot(r3d,"\n\n R3 daily ",colorRed,styleNoDraw);
Plot(r3w," R3 weekly ",colorRed,styleNoDraw);
Plot(r2d,"\n R2 daily ",colorRed,styleNoDraw);
Plot(r2w," R2 weekly ",colorRed,styleNoDraw);
Plot(r1d,"\n R1 daily ",colorRed,styleNoDraw);
Plot(r1w," R1 weekly ",colorRed,styleNoDraw);
Plot(pd,"\n Pivot daily ",IIf( Ref(pd,0)>Ref(pd,-1), ParamColor("Up Color Daily", colorGreen ), ParamColor("Down Color Daily", colorRed ) ), styleStaircase|styleDots);
Plot(pw," Pivot weekly ",IIf( Ref(pw,-5)<Ref(pw,0), ParamColor("Up Color Weekly", colorGold ), ParamColor("Down Color Weekly", colorPink ) ), styleStaircase|styleDots);
Plot(s1d,"\n S1 daily ",colorGreen,styleNoDraw);
Plot(s1w," S1 weekly ",colorGreen,styleNoDraw);
Plot(s2d,"\n S2 daily ",colorGreen,styleNoDraw);
Plot(s2w," S2 weekly ",colorGreen,styleNoDraw);
Plot(s3d,"\n S3 daily ",colorGreen,styleNoDraw);
Plot(s3w," S3 weekly ",colorGreen,styleNoDraw);


_SECTION_END();

yang pertama buat back ground hitam
kalau ini buat background putih

On Mon, Jun 25, 2012 at 1:27 PM, alex xander <mrbreakout99@gmail.com> wrote:

pivot daily and weekly
coba ini  semoga berguna
GBU

On Mon, Jun 25, 2012 at 12:03 PM, Investor_Saham <trader.junior01@gmail.com> wrote:

 

Tinggal cari rumus pivotnya pak, trus rumus suport resistnya , tinggal di plot aja ..

On 25 June 2012 11:54, Adi Noe <adinoe.mail@gmail.com> wrote:

 

Blm bisa coding pak.

 

From: amibroker-4-bei@yahoogroups.com [mailto:amibroker-4-bei@yahoogroups.com] On Behalf Of Investor_Saham
Sent: Monday, June 25, 2012 10:50 AM
To: amibroker-4-bei@yahoogroups.com
Subject: Re: [Komunitas AmiBroker] AFL Pivot

 

 

Napa ga bikin sendiri aja pak ?
Tinggal rumus pivotnya aja gimana ?

2012/6/25 Adi Noe <adinoe.mail@gmail.com>

 

Rekan2 apa ada yg punya afl pivot point seperti gbr terlampir.

TQ

 

Regards,

Adi Noe

089 7478 2125

 

 

__._,_.___

Apabila membutuhkan software AmiBroker, Realtime Intraday Data & Pelatihan silahkan kontak : Dendo Valentino | Cell : 08159304868 | e-mail: amibrokerfreak{at}yahoo.co.id | YM id : dendov | http://www.facebook.com/dendo.amibrokerfreak | http://www.amibroker-4-bei.org

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___