Text Islami

Sudahkan Anda Memikirkan & Mempersiapkan Kematian Anda ?

Muslim wajib menjaga lima perkara:

Agama, Akal, Kehormatan, Harta dan Jiwa

Percaya Hanya Pada Analisa Anda ... USAHA maksimal, SABAR dan DISIPLIN... lalu serahkan hasilnya pada Allah subhanahu wa ta'ala...

Friday, April 08, 2011

AFL TD Sequential - Replace Coding for TD Count Number

Berhubung banyak yang menanyakan mengenai TD Count Numbering pada AFL TD Sequential, baik melalui jalum maupun japri... maka berikut coding yang berwarna merah (coding AFL TD Sequential aslinya yang ada di AFL Library) di-off-kan dan diganti dengan bagian oprek di bawahnya yang berwarna hitam.

Copy semua bagian ini kemudian paste di AFL TD Sequential sesuai pada tempatnya semula.

Notes: ada yang memberitahu bahwa di bawah sepertinya ada missing code, tapi sebenarnya tidak, saya sudah coba perbaiki tapi belum bisa... jadi khusus pada baris yang seolah-olah missing tsb dilengkapi menjadi spt berikut:

for (i=0; i < barcount ; i++) seharusnya ditulis: for dalam kurung i=0 titik koma i lebih kecil dari BarCount titik koma i plus plus kurung tutup

atau lihat contoh PlotText dimenu Help Amibroker.

Semoga berhasil.

/*
if(ShowNumbers)
PlotShapes(IIf(Buy9Bars==1, shapeDigit1,
              IIf(Buy9Bars==2, shapeDigit2,
               IIf(Buy9Bars==3, shapeDigit3,
               IIf(Buy9Bars==4, shapeDigit4,
               IIf(Buy9Bars==5, shapeDigit5,
               IIf(Buy9Bars==6, shapeDigit6,
               IIf(Buy9Bars==7, shapeDigit7,
               IIf(Buy9Bars==8, shapeDigit8,
             IIf(Buy9Bars >9, shapeStar,shapeNone))))))))),colorDarkRed, 0, L, -12);//L*.01);
/*
if(ShowNumbers)
PlotShapes(
             IIf(Sell9Bars==1, shapeDigit1+shapePositionAbove,
             IIf(Sell9Bars==2, shapeDigit2+shapePositionAbove,
              IIf(Sell9Bars==3, shapeDigit3+shapePositionAbove,
              IIf(Sell9Bars==4, shapeDigit4+shapePositionAbove,
              IIf(Sell9Bars==5, shapeDigit5+shapePositionAbove,
              IIf(Sell9Bars==6, shapeDigit6+shapePositionAbove,
              IIf(Sell9Bars==7, shapeDigit7+shapePositionAbove,
              IIf(Sell9Bars==8, shapeDigit8+shapePositionAbove,
            IIf(sell9bars>9, shapeStar+shapePositionAbove,shapeNone))))))))),colorGreen, 0, H, -10); //H*.002);
*/

//Ganti dengan code berikut:

Buy9barsku = IIf(Buy9bars==1, 1, IIf(Buy9bars==2, 2, IIf(Buy9bars==3,3, IIf(Buy9bars==4,4, IIf(Buy9bars==5,5,
IIf(Buy9bars==6,6, IIf(Buy9bars==7,7, IIf(Buy9bars==8,8, IIf(Buy9bars==9, 9, Null)))))))));

Sell9barsku = IIf(Sell9bars==1, 1, IIf(Sell9bars==2, 2, IIf(Sell9bars==3,3, IIf(Sell9bars==4,4, IIf(Sell9bars==5,5,
IIf(Sell9bars==6,6, IIf(Sell9bars==7,7, IIf(Sell9bars==8,8, IIf(Sell9bars==9, 9, Null)))))))));

distS=Param("Lime_Multiplier", -0.2,0,-9,0.25,0);
distB=Param("Orange_multiplier",0.5,19,19,0.25,0);
distance=ATR(5);
distanceH=ATR(6);

if(ShowNumbers)
for (i=0; i
{
  distB[i] = distB[i]*distanceH[i];
  if (Buy9barsku[i]>0) PlotText( " " + NumToStr(Buy9barsku[ i ],1.0), i, L[ i ]-distB[i], colorPaleGreen );
}


if(ShowNumbers)

for (i=0; i
{
  distS[i] = distS[i]*distance[i];
  if (Sell9barsku[i]>0) PlotText( " " + NumToStr(Sell9barsku[ i ],1.0), i, H[ i ]-distS[i], colorOrange );
}

//end

Semoga bermanfaat.
Eco Syariah
Share

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.