Teknik Analiz Dünyasına Hoşgeldiniz. Paylaşmak Güzeldir.

Yayından kaldırmak istediğiniz formüller için algoritmabul@gmail.com ile iletişime geçebilirsiniz... 

  • DİKKAT: Formüller, Sistemler sadece eğitim amaçlıdır. Alım satım, olası anapara kaybı ve diğer kayıplar dahil olmak üzere "YÜKSEK RİSK" içerir.

Amibroker Go wherever the money goes ... for Amibroker (AFL)

Amibroker

algoritma

eiπ + 1 = 0
Algorithmist
Algoritma
Katılım
23 Eki 2020
Mesajlar
1,797

Go wherever the money goes ... for Amibroker (AFL)

This indicator is used simply to see price movements or smart money movements to follow them. This indicator uses volume up or down, price up or down and volume to buy or sell (price). This indicator can be used for all trends, for safe use the indicator uses average down or up which I have included, complete with the calculation of initial capital, final capital and securities fees as controls for safe trading and exploration.
accumulation = buy
distribution = selling more than take profit
take profit = partially sell
full distribution = cut loss
upthrust = don’t do anything
this indicator is far from perfect please help to make it better.
note = use average down by entering the number of shares instead of lots and prices, if there is a sentence that doesn’t suit you, this indicator is according to my current abilities and understanding, thank you
Kod:
// Downloaded From https://www.WiseStockTrader.com
// Go wherever the money goes
// MALANG, INDONESIA 6 APRIL 2021
//ARIES CAHYO BUWONO



//SELISIH VOLUME
_SECTION_BEGIN(" SELISIH VOLUME");
selisihVOL = V - Ref(V,-1);
volumenaik = V > Ref(V,-1);
volumeturun= V < Ref(V,-1);
volumestop  = V == Ref(V,-1);
ROCSELISIHVOL = (ROC(V,1));
color=IIf(volumenaik,colorDarkOliveGreen,IIf(volumeturun,colorDarkRed,colorViolet));

_SECTION_END();

//SELISIh HARGA
_SECTION_BEGIN("SELISIH HARGA");
selisih = C - Ref(C,-1);//RESULT
hargaup = C > Ref(C,-1);
hargadown=C < Ref(C ,-1);
hargatidakberubah = C  == Ref(C ,-1);
color12=IIf(hargaup,colorBrightGreen,IIf(hargadown,colorRed,colorViolet));

_SECTION_END();



_SECTION_BEGIN("ROC VOLUME");
 // AVERAGE VOLUME
hargadown=C < Ref(C ,-1);
hargaup = C > Ref(C,-1);
resultvol = V-Ref(V,1);//RESULT
up = V > Ref(V,-1);
down = V < Ref(V,-1);
avevol = TEMA(C,60);
pervol = (ROC(avevol,60));
up12 = pervol > 0 ;
down12 = pervol < 0 ;
colpervol = IIf(up12 ,colorBrightGreen,IIf(down12,colorRed,colorViolet));

_SECTION_END();




_SECTION_BEGIN("rata rata VOLUME");
hari = Param("rata rata day",1,1, 1000000, 1);
rataharga60 = MA(V,60);
hargaratarata60 = C / rataharga60;
warnaup =  hargaratarata60 > 0 ;
warnadown = hargaratarata60 < 0 ;
kelir =IIf( warnaup,colorBrightGreen,IIf( warnadown,colorRed,colorViolet));
kelir1=
IIf(hargaratarata60 >= 0 AND hargaratarata60 <= 1,colorRed,
IIf(hargaratarata60 >=1.01 AND hargaratarata60<=2,colorBrightGreen ,
IIf(hargaratarata60 >=2.01 AND hargaratarata60<=3 ,colorGold,
IIf(hargaratarata60 >= 3.01 AND hargaratarata60 <=4 ,colorBlue,
IIf(hargaratarata60 >= 4.01 AND hargaratarata60 <=5 ,colorAqua,
 IIf(hargaratarata60 >5.01 ,colorWhite,colorWhite))))));

_SECTION_END();



//MY FOLLOW WHERE THE MONEY GOES
_SECTION_BEGIN("MY FOLLOW WHERE THE MONEY GOES");
volumebeli = IIf( (H==L), 0, C*(C-L)/(H-L) );
volumejual= IIf( (H==L), 0, C*(H-C)/(H-L) );
persentasebeli = 100 * volumebeli/(volumebeli+volumejual) ;
persentasejual = 100 * volumejual/(volumebeli+volumejual) ;
volumebersih = volumebeli - volumejual;
volumebeliA = IIf( (H==L), 0, V*(C-L)/(H-L) );
volumejualB= IIf( (H==L), 0, V*(H-C)/(H-L) );
volumebersihAB = volumebeliA - Ref( volumejualB,-1);
persenbeli = (ROC(volumebeliA,1));
persenjual = (ROC(volumejualB ,1));
selisihnetprice = volumebersih - Ref(volumebersih,-1);
mfinaik = volumebersih > Ref(volumebersih,-1);
mfiturun = volumebersih< Ref(volumebersih,-1);
volumebeliVOL = IIf( (H==L), 0, V*(C-L)/(H-L) );
volumejualVOL= IIf( (H==L), 0, V*(H-C)/(H-L) );
volumebersihVOL = volumebeliVOL- volumejualVOL;
rocvolnet =(ROC(selisihVOL ,1));
volumebersihroc = (ROC(volumebersihAB,1));
volume100 = volumejual == 0 ;
volumebeliROC =(ROC(volumebeli,1));
volumejualROC = (ROC(volumejual,1));
avervolbersih = TEMA(volumebersihAB,60);
ratapersenVOL = (ROC(volumebersihAB,60));
rataup = ratapersenVOL > 0 ;
ratadown = ratapersenVOL < 0 ;
warnaratapersen = IIf (rataup,colorBrightGreen,IIf(ratadown,colorRed,colorViolet));




//RUMUS MY FOLLOW WHERE THE MONEY GOES SETELAH DI SEMPURNAKAN 28 FEB 2021
AKUMULASI                             = volumebeli AND volumenaik AND hargadown;//1
MARKETTAKEPROFIT                      = volumejual AND  volumeturun AND  hargaup ;//2
AKUMULASIPENUH                        = volumejual AND  volumenaik AND  hargadown ;//3
UPTHURST                              =volumebeli AND  volumeturun AND  hargaup ;//4
DISTRIBUSI                            =volumebeli AND  volumeturun AND hargadown;//5
MARKETSEDANGDISTRIBUSIPENUH           = volumejual  AND  volumeturun  AND hargadown;//6
MARKETSEDANGMARKUPDANTAKEPROFIT1      =volumejual  AND  volumenaik AND hargaup ;//7
MARKUPPENUH100                        =  volumebeli  AND volumenaik AND hargaup ;//8
MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3  = volumejual  AND  volumeturun AND hargatidakberubah ;//9
MARKETSEDANGDISTRIBUSIDANTAKEPROFIT4  = volumejual  AND  volumenaik AND hargatidakberubah; //10
MARKETSEDANGDISTRIBUSI                =   volumebeli  AND  volumeturun AND hargatidakberubah ;//11
MARKETSEDANGAKUMULASI                = volumebeli  AND  volumenaik AND hargatidakberubah ;//12



WARNA=
IIf(AKUMULASI ,colorBrightGreen,//1
IIf(MARKETTAKEPROFIT,colorBlue,//2
IIf(AKUMULASIPENUH,colorWhite,//3
IIf(UPTHURST ,colorAqua,//4
IIf(DISTRIBUSI,colorRed,//5
IIf(MARKETSEDANGDISTRIBUSIPENUH ,colorGrey40,//6
IIf(MARKETSEDANGMARKUPDANTAKEPROFIT1 ,colorGold,//7
IIf(MARKUPPENUH100 ,colorGold,//8
IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3,colorRed,//9
IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT4 ,colorRed,//10
IIf( MARKETSEDANGDISTRIBUSI ,colorRed,//11
IIf(MARKETSEDANGAKUMULASI ,colorBrightGreen,colorBrightGreen))))))))))));//12



_SECTION_END();



_SECTION_BEGIN("K bars BY Mr Krthik Marar");
Hk[0] = H[0];
Ok[0] = O[0];
Ck[0] = C[0];
Lk[0] = L[0];


for( i = 2; i < BarCount; i++ )
{

{
if (H[i] < C[i-1] AND C[i] < C[i-1]) Hk[i] = C[i-1];
else
Hk[i] = H[i];
}

Ck[i] = C[i];
Ok[i] = C[i-1];
{
if (L[i] > C[i-1]) Lk[i] = C[i-1];
else
Lk[i] = L[i];
}
}

SetBarFillColor(WARNA);
PlotOHLC(Hk,Hk,Ck,Ck,"BELI",WARNA,styleCandle|styleThick);
SetBarFillColor(colorBlack);
PlotOHLC(Ck,Ck,Lk,Lk,"JUAL",WARNA,styleCandle|styleThick);

_SECTION_END();






_SECTION_BEGIN("AVERAGE DOWN");
lembar1 = Param("lembar buy1",0,0, 1000000, 1);
Rp1 = Param("price buy1", 0, 0, 10000000, 2);
lembar2 = Param("lembar buy2", 0, 0, 1000000, 3);
Rp2 = Param("price buy2", 0, 0, 10000000, 4);
lembar3 = Param("lembar buy3", 0, 0, 1000000, 5);
Rp3 = Param("price buy3", 0, 0, 10000000, 6);
lembar4 = Param("lembar buy4", 0, 0, 1000000, 7);
Rp4 = Param("price buy4", 0, 0, 10000000, 8);
lembar5 = Param("lembar buy5", 0, 0, 1000000, 9);
Rp5 = Param("price buy5", 0, 0, 10000000, 10);
lembar6 = Param("lembar buy6", 0, 0, 1000000, 11);
Rp6 = Param("price buy6", 0, 0, 10000000, 12);
lembar7 = Param("lembar buy7", 0, 0, 1000000, 13);
Rp7 = Param("price buy7", 0, 0, 10000000, 14);
lembar8 = Param("lembar buy8", 0, 0, 1000000, 15);
Rp8 = Param("price buy8", 0, 0, 10000000, 16);
lembar9 = Param("lembar buy9", 0, 0, 1000000, 17);
Rp9= Param("price buy9", 0, 0, 10000000, 18);
lembar10 = Param("lembar buy10", 0, 0, 1000000, 19);
Rp10 = Param("price buy10", 0, 0, 10000000, 20);


totalbeli1 = lembar1 * Rp1;
totalbeli2 = lembar2 * Rp2;
totalbeli3 = lembar3 * Rp3;
totalbeli4 = lembar4 * Rp4;
totalbeli5 = lembar5 * Rp5;
totalbeli6 = lembar6 * Rp6;
totalbeli7 = lembar7 * Rp7;
totalbeli8 = lembar8 * Rp8;
totalbeli9= lembar9 * Rp9;
totalbeli10 = lembar10 * Rp10;




_SECTION_END();

_SECTION_BEGIN("PROFIT INDIKATOR");

feebeli = 0.0015;
feejual = 0.0025 ;
averagestock = (lembar1 + lembar2 + lembar3 + lembar4 + lembar5 + lembar6 + lembar7 + lembar8 + lembar9 + lembar10) ;
averageprice = (totalbeli1 + totalbeli2 + totalbeli3 + totalbeli4 +  totalbeli5 +  totalbeli6 +  totalbeli7 +  totalbeli8 +  totalbeli9 +  totalbeli10)/averagestock  ;
profit = (C - averageprice)*averagestock;
averagestock = (lembar1 + lembar2 + lembar3 + lembar4 + lembar5 + lembar6 + lembar7 + lembar8 + lembar9 + lembar10) ;
averageprice = (totalbeli1 + totalbeli2 + totalbeli3 + totalbeli4 +  totalbeli5 +  totalbeli6 +  totalbeli7 +  totalbeli8 +  totalbeli9 +  totalbeli10)/averagestock  ;
totalbeli = (totalbeli1 + totalbeli2 + totalbeli3 + totalbeli4 +  totalbeli5 +  totalbeli6 +  totalbeli7 +  totalbeli8 +  totalbeli9 +  totalbeli10)* feebeli;
totalbelisaja = (totalbeli1 + totalbeli2 + totalbeli3 + totalbeli4 +  totalbeli5 +  totalbeli6 +  totalbeli7 +  totalbeli8 +  totalbeli9 +  totalbeli10);
totaljual = (totalbelisaja + profit) * feejual;
totaljualbeli = totalbeli + totaljual ;
feebeli1 =feebeli * totalbelisaja  ;
feejual2 =totaljual ;
e3 =(averageprice * averagestock);//modal awal
c1= (C - averageprice)*averagestock;//profit
g6= e3 + c1 ;//modal sekarang
modaldikurangifee = (e3 + c1 ) -  totaljualbeli ;
_SECTION_END();

WARNA=
IIf(AKUMULASI ,colorBrightGreen,//1
IIf(MARKETTAKEPROFIT,colorBlue,//2
IIf(AKUMULASIPENUH,colorWhite,//3
IIf(UPTHURST ,colorAqua,//4
IIf(DISTRIBUSI,colorRed,//5
IIf(MARKETSEDANGDISTRIBUSIPENUH ,colorGrey40,//6
IIf(MARKETSEDANGMARKUPDANTAKEPROFIT1 ,colorGold,//7
IIf(MARKUPPENUH100 ,colorGold,//8
IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3,colorRed,//9
IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT4 ,colorBrightGreen,//10
IIf( MARKETSEDANGDISTRIBUSI ,colorRed,//11
IIf(MARKETSEDANGAKUMULASI ,colorBrightGreen,colorBrightGreen))))))))))));//12


//EXPLORATION

Filter= (1);
AddColumn(IIf(AKUMULASI  ,1,IIf(AKUMULASI  ,-1,0)),"AKUMULASI  ",1.0,colorBlack,IIf(AKUMULASI  ,colorBrightGreen,IIf(AKUMULASI  ,colorBrightGreen,colorBlack)));//1
AddColumn(IIf(AKUMULASIPENUH,1,IIf(AKUMULASIPENUH,-1,0)),"AKUMULASI PENUH",1.0,colorBlack,IIf(AKUMULASIPENUH,colorWhite,IIf(AKUMULASIPENUH,colorWhite,colorBlack)));//3
AddColumn(IIf(MARKETSEDANGAKUMULASI,1,IIf(MARKETSEDANGAKUMULASI,-1,0)),"MARKET AKUMULASI",1.0,colorBlack,IIf(MARKETSEDANGAKUMULASI,colorBrightGreen,IIf(MARKETSEDANGAKUMULASI,colorBrightGreen,colorBlack)));//12
AddColumn(IIf(MARKETTAKEPROFIT   ,1,IIf(MARKETTAKEPROFIT   ,-1,0)),"TAKE PROFIT   ",1.0,colorBlack,IIf(MARKETTAKEPROFIT   ,colorBlue,IIf(MARKETTAKEPROFIT   ,colorBlue,colorBlack)));//2
AddColumn(IIf(UPTHURST,1,IIf(UPTHURST,-1,0)),"UPTHURST",1.0,colorBlack,IIf(UPTHURST,colorGold,IIf(UPTHURST,colorGold,colorBlack)));//5
AddColumn(IIf(MARKETSEDANGDISTRIBUSIPENUH,1,IIf(MARKETSEDANGDISTRIBUSIPENUH,-1,0)),"DISTRIBUSI PENUH",1.0,colorBlack,IIf(MARKETSEDANGDISTRIBUSIPENUH,colorGrey40,IIf(MARKETSEDANGDISTRIBUSIPENUH,colorGrey40,colorBlack)));//6
AddColumn(IIf(MARKETSEDANGMARKUPDANTAKEPROFIT1  ,1,IIf(MARKETSEDANGMARKUPDANTAKEPROFIT1  ,-1,0)),"MARKUPDANTAKEPROFIT  ",1.0,colorBlack,IIf(MARKETSEDANGMARKUPDANTAKEPROFIT1  ,colorGold,IIf(AKUMULASI  ,colorGold,colorBlack)));//7
AddColumn(IIf(MARKUPPENUH100 ,1,IIf(MARKUPPENUH100 ,-1,0)),"MARKUP PENUH",1.0,colorBlack,IIf(MARKUPPENUH100 ,colorGold,IIf(MARKUPPENUH100, colorGold,colorBlack)));//8
AddColumn(IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3,1,IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3,-1,0)),"DISTRIBUSIDANTAKEPROFIT",1.0,colorBlack,IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3,colorRed,IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT3,colorRed,colorBlack)));//9
AddColumn(IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT4 ,1,IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT4  ,-1,0)),"DISTRIBUSIDANTAKEPROFIT  ",1.0,colorBlack,IIf(MARKETSEDANGDISTRIBUSIDANTAKEPROFIT4 ,colorBrightGreen,IIf(AKUMULASI  ,colorBrightGreen,colorBlack)));//10
AddColumn(IIf(MARKETSEDANGDISTRIBUSI,1,IIf(MARKETSEDANGDISTRIBUSI,-1,0)),"MARKETSEDANGDISTRIBUSI",1.0,colorBlack,IIf(MARKETSEDANGDISTRIBUSI,colorRed,IIf(MARKETSEDANGDISTRIBUSI,colorRed,colorBlack)));//11


Title=""+
"\n"+



WriteIf ( volumebeli AND volumenaik AND hargadown,EncodeColor(colorBrightGreen)+"AKUMULASI !!? MARKET SEDANG DISTRIBUSI DI AWAL PERDAGANGAN DAN KETIKA TRADER CUTLOSS DI SIANG HARI DI AKUMULASI !!!. DENGAN SELISIH VOLUME   ",//1
WriteIf (volumejual AND  volumeturun AND  hargaup ,EncodeColor(colorBlue)+ "MARKET TAKE PROFIT,.DENGAN SELISIH VOLUME    ",//2
WriteIf (volumejual AND  volumenaik AND  hargadown ,EncodeColor(colorWhite)+ "AKUMULASI PENUH 100%,.DENGAN SELISIH VOLUME    ",//3
WriteIf (volumebeli AND  volumeturun AND  hargaup ,EncodeColor(colorAqua)+ "UP OR DOWN TRAP MOVING UNTUK MENYAKINKAN TRADER SUDAH TERJADI PERUBAHAN TREND,.DENGAN SELISIH VOLUME    ",//4
WriteIf ( volumebeli AND  volumeturun AND hargadown,EncodeColor(colorRed)+"DISTRIBUSI ! !MARKET SEDANG DISTRIBUSI HARGA DI NAIKKAN DI AWAL PERDAGANGAN DAN DI SIANG HARI DI DI TURUNKAN !!!. DENGAN SELISIH VOLUME   ",//5
WriteIf ( volumejual  AND  volumeturun  AND hargadown,EncodeColor(colorGrey40)+"MARKET SEDANG DISTRIBUSI PENUH !!!. DENGAN SELISIH VOLUME   ",//6
WriteIf (volumejual  AND  volumenaik AND hargaup ,EncodeColor(colorGold)+"MARKET SEDANG MARKUP DAN TAKE PROFIT DI HARGA ATAS !!! UNTUK MEMBUAT POSISI TRADER TERKUNCI DI HARGA ATAS, DENGAN SELISIH VOLUME      ",//7
WriteIf (volumebeli  AND volumenaik AND hargaup ,EncodeColor(colorGold)+"WARNING...MARKET SEDANG MARKUP PENUH 100 %, BANDAR MAU JUALAN !!! UNTUK MEMBUAT POSISI TRADER TERKUNCI DI HARGA ATAS, DENGAN SELISIH VOLUME      ",//8
WriteIf (volumejual  AND  volumeturun AND hargatidakberubah ,EncodeColor(colorRed)+"MARKET SEDANG DISTRIBUSI DAN TAKE PROFIT DI HARGA ATAS !!! UNTUK MEMBUAT POSISI TRADER TERKUNCI DI HARGA ATAS, DENGAN SELISIH  VOLUME      ",//9
WriteIf (volumejual  AND  volumenaik AND hargatidakberubah ,EncodeColor(colorBrightGreen)+"AKUMULASI !!? MARKET SEDANG DISTRIBUSI DI AWAL PERDAGANGAN DAN KETIKA TRADER CUTLOSS DI SIANG HARI DI AKUMULASI !!!. DENGAN SELISIH VOLUME, ",//10
WriteIf (volumebeli  AND  volumeturun AND hargatidakberubah ,EncodeColor(colorRed)+"MARKET SEDANG DISTRIBUSI , DENGAN SELISIH VOLUME      ",//11
WriteIf (volumebeli  AND  volumenaik AND hargatidakberubah ,EncodeColor(colorBrightGreen)+"MARKET SEDANG AKUMULASI, DENGAN SELISIH VOLUME      ",//12
WriteIf (  volumestop AND hargaup ,EncodeColor(colorBrightGreen)+"33MARKET SEDANG markup !UNTUK MEMBUAT POSISI TRADER TERKUNCI DI HARGA ATAS, DENGAN SELISIH  VOLUME       ",//13
WriteIf (volumestop AND hargadown,EncodeColor(colorRed)+"44MARKET SEDANG  MARK down !!! UANG MASUK DI AWAL PERDAGANGAN, SIANG JUALAN DAN VOLUME SEDANG DI DISTRIBUSI,DENGAN SELISIH VOLUME   ",""))))))))))))))//14
+        WriteIf(V> Ref(V,-1  ),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(selisihVOL) +
EncodeColor(colorBlue)+   "      "+ WriteIf(V >Ref(V,-1 ),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(ROCSELISIHVOL ,format=1.2 )+ "%" 

  


+"\n"+
EncodeColor(colorWhite)+"AVERAGE PRICE                  : "+ WriteVal(averageprice  ,format=1.0 )  +"\n"+
EncodeColor(colorWhite)+"AVERAGE STOCK                : "+ WriteVal(averagestock  ,format=1.0 ) +"\n"+
EncodeColor(colorWhite)+"PROFIT                                   : "+ WriteVal(c1 ,format=1.0 )  +"\n"+
EncodeColor(colorWhite)+"MODAL AWAL                        : "+ WriteVal(e3 ,format=1.0 )  +"\n"+
EncodeColor(colorWhite)+"MODAL SEKARANG             : "+ WriteVal(g6 ,format=1.0 )+"\n"+
EncodeColor(colorWhite)+"FEE SEKURITAS                  : "+ WriteVal(totaljualbeli  ,format=1.0 )+"\n"+
EncodeColor(colorWhite)+"FEE BELI                                : "+ WriteVal(feebeli1 ,format=1.0   )+"\n"+
EncodeColor(colorWhite)+"FEE JUAL                               : "+ WriteVal(feejual2 ,format=1.0   );
kaynak
www.WiseStockTrader.com
 

Forumdan daha fazla yararlanmak için giriş yapın yada üye olun!

Forumdan daha fazla yararlanmak için giriş yapın veya kayıt olun!

Kayıt ol

Forumda bir hesap oluşturmak tamamen ücretsizdir.

Şimdi kayıt ol
Giriş yap

Eğer bir hesabınız var ise lütfen giriş yapın

Giriş yap