Sabtu, 29 Oktober 2011

Belajar AFL = Amibroker Formula Language … 2

AFL “ MA5 cross MA50 “

Pada AFL sebelumnya … pada bagian Title meimagemiliki info …sederhana

 

yaitu …id saham … hanya ditampilkan Kode saham … sekarang kita tambahkan … nama lengkapnya …ya ….

Perhatikan …section “Price”

_N(Title = FullName() + StrFormat(" : {{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

Hanya menambahkan ….FullName() … maka …didapatkan … hasil sebagai berikut

image

Nampak..kan ... dimunculkan nama lengkap ... kemudian ..kode sahamnya ...

Coba dipahami dulu ...ya ....

Ok, ... gimana ...? Bila bingung .... tuliskan pertanyaannya ...di shoutbox ..ya

Sekarang ...kita ...lanjut dikit ...dengan menambahkan ... info tentang volumenya ...

_N(Title = FullName() + StrFormat(" : {{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%){{VALUES}}, Volume %g ", O, H, L, C,SelectedValue( ROC( C, 1 ) ),V ));

Perhatikan huruf yang saya berikan ...warna merah .... dimana Volume merupakan label yang ditampilkan ... %g merupakan ...format tampilan ... dan V merupakan ...data yang ditampilkan

Sehingga ...Title yang dihasilkan ...

image

Untuk …post kali ini … kita menyempurnakan … bagian Title ..dari AFL kita, sehingga list program detailnya …menjadi ….

_SECTION_BEGIN(" Price");
  SetChartOptions(0,chartShowArrows|chartShowDates);

  _N(Title = FullName() + StrFormat(" : {{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%){{VALUES}}, Volume %g ", O, H, L, C,SelectedValue( ROC( C, 1 ) ),V));

  Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN(" MA5 Cross MA50");
  Plot(MA(Close,50),"MA-50",colorYellow,style=styleThick);
  Plot(MA(Close,5),"MA-5",colorGreen,style=styleThick);

  Sell = Cross(MA(C,50),MA(C,5));
  PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=8);
  PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0,H,Offset=18);
  PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H,Offset=-13);

  Buy  = Cross(MA(C,5),MA(C,50));
  PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorBlue, 0, L, Offset=-8);
  PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorBlue, 0,L, Offset=-18);
  PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-13);
_SECTION_END();

Sangat dianjurkan untuk membaca kembali …post sebelumnya ..yaitu

Saya cukupkan dulu … post kali ini … semoga ada manfaatnya … makasih