WiseStockTrader.com Trading Program Listings
Indicators
Submit New Indicator
All Amibroker (AFL) Metastock eSignal (EFS) NinjaTrader
Function Index
Paste Bin
Register
Login

Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Go wherever the money goes ... for Amibroker (AFL)
ARIES77
over 2 years ago
Amibroker (AFL)

Rating:
4 / 5 (Votes 4)
Tags:
amibroker

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

Screenshots

Indicator / Formula

Indicator with exploration
Copy & Paste Friendly
// 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   );

6 comments

1. praveen5344
over 2 years ago

getting no display in version 6.2

any settings i need to do for this indicator to display

Report as Spam
2. ARIES77
over 2 years ago

I use ami 6.2 and no setting need it any more, admin plis help to fix this problem thanks

Report as Spam
3. cnbondre
over 2 years ago

Nice design

Report as Spam
4. daton
about 2 years ago

Excellent AFL. Keep up the good work bro

Report as Spam
5. Nanda57
almost 2 years ago

Nyimak Gan, IG agan apa?

Report as Spam
6. ARIES77
almost 2 years ago

Ndak punya bro

Report as Spam

Leave Comment

Please login here to leave a comment.

Back

We try to maintain hiqhest possible level of service - most formulas, oscillators, indicators and systems are submitted by anonymous users. Therefore www.WiseStockTrader.com does not take any responsibility for it's quality. If you use any of this information, use it at your own risk. You are responsible for your own trading decisions. Be sure to verify that any information you see on these pages is correct, and is applicable to your particular trade. In no case will www.WiseStockTrader.com be responsible for your trading gains or losses.

News Contact Us Terms and Conditions Privacy Policy