Fave This

Saturday 12 March 2011

[Komunitas AmiBroker] gannalyst fibo projection.afl

Change = 5;
GannIncrement = 0.0625;

procedure PlotShapeAt (x,y,shape,shift)
{ PlotShapes(IIf(BarIndex()==x,shape,0),colorRed,0,y,shift);
}
procedure PlotBlueDot(x,y)
{ PlotShapes(IIf(BarIndex()==x,shapeSmallCircle,0),colorBlue,0,y,0);
for (i=-2;i<=2;i++)
{if(i != 0)
{ yGann=(sqrt(y)+i*GannIncrement)^2;
PlotShapes(IIf(BarIndex()==x,shapeSmallCircle,0),
colorOrange,0,yGann,0);
}
}
}
bi = BarIndex();
sbi = SelectedValue(bi);
GraphXSpace = 2;
Plot(Zig(C,Change),"Zigzag",colorGreen,styleThick);
Plot(C,"Price",IIf(bi>sbi,colorLightGrey,colorBlack),styleBar);

upshift=15;
if(SelectedValue(PeakBars(C,Change)<TroughBars(C,Change)))
{ pt1 = PeakBars(C,Change,1) == 0;
pt2 = TroughBars(C,Change,1) == 0;
}
else
{ pt1 = TroughBars(C,Change,1) == 0;
pt2 = PeakBars(C,Change,1) == 0;
upshift = -upshift;
}

bpt1 = SelectedValue(ValueWhen(pt1,bi));
bpt2 = SelectedValue(ValueWhen(pt2,bi));
bpt3 = SelectedValue(ValueWhen(pt1,bi,2));
bpt4 = SelectedValue(ValueWhen(pt2,bi,2));
bpt5 = SelectedValue(ValueWhen(pt1,bi,3));
bpt6 = SelectedValue(ValueWhen(pt2,bi,3));

PlotShapeAt(bpt1,C,shapeDigit1,upshift);
PlotShapeAt(bpt2,C,shapeDigit2,-upshift);
PlotShapeAt(bpt3,C,shapeDigit3,upshift);
PlotShapeAt(bpt4,C,shapeDigit4,-upshift);
PlotShapeAt(bpt5,C,shapeDigit5,upshift);
PlotShapeAt(bpt6,C,shapeDigit6,-upshift);

Level = SelectedValue(ValueWhen(pt1,C));
PlotBlueDot(round(bpt1 + 1.618*(bpt1-bpt2)),Level);
PlotBlueDot(round(bpt1 + 0.382*(bpt1-bpt2)),Level);

PlotBlueDot(round(bpt1 + 0.5*(bpt2-bpt3)),Level);
PlotBlueDot(round(bpt1 + 1.732*(bpt2-bpt3)),Level);

PlotBlueDot(round(bpt1 + 0.618*(bpt4-bpt5)),Level);
PlotBlueDot(round(bpt1 + 2*(bpt4-bpt5)),Level);

PlotBlueDot(round(bpt2 + 0.6707*(bpt4-bpt2)),Level);
PlotBlueDot(round(bpt2 + 2.618*(bpt4-bpt2)),Level);

PlotBlueDot(round(bpt2 + 1*(bpt6-bpt2)),Level);
PlotBlueDot(round(bpt2 + 3*(bpt6-bpt2)),Level);

6,4,2 di atas maka 5,3,1 akan bergerak ke bawah

6 ke 5 short
5 ke 4 long
4 ke 3 short
3 ke 2 long
2 ke 1 short

1,3,5 di atas maka 2,4,6 akan bergerak ke bawah

1 ke 6 short
6 ke 5 long
5 ke 4 short
4 ke 3 long
3 ke 2 short
2 ke 1 long

cukup reliable, jika mampu membaca arah gerakan garis...


------------------------------------

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

Yahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker-4-bei/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/amibroker-4-bei/join
(Yahoo! ID required)

<*> To change settings via email:
amibroker-4-bei-digest@yahoogroups.com
amibroker-4-bei-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
amibroker-4-bei-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

No comments:

Post a Comment