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