// 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   );