// Downloaded From https://www.WiseStockTrader.com
// GO WHERE THE MONEY GOES #2 SPECIAL INDIKATOR UNTUK JUAL DAN BELI
// MALANG, INDONESIA 27 FEB 2022
// ARIES CAHYO BUWONO
_SECTION_BEGIN("MY BANDARMOLOGI");
hargadown=C < Ref(C ,-1);
hargaup = C > Ref(C,-1);
hargatidakberubah = C == Ref(C ,-1);
slisih = C - Ref(C,-1);
colour = IIf(hargadown,colorRed,IIf(hargaup,colorBrightGreen,IIf(hargatidakberubah,colorViolet,colorIndigo)));
colsel = IIf(slisih > 0 ,colorAqua,IIf(slisih < 0 ,colorDarkTeal,IIf(slisih == 0 ,colorBlue,colorDarkBlue)));
volumenaik = V > Ref(V,-1);
volumeturun= V < Ref(V,-1);
volumebeli = C - L;
volumejual= H - C ;
persentasebeli = 100 * volumebeli/(volumebeli+volumejual) ;
persentasejual = 100 * volumejual/(volumebeli+volumejual) ;
volumestop = volumebeli == volumejual;
_SECTION_END();
// volume beli
acc1 = volumebeli > volumejual AND volumenaik AND hargaup AND persentasebeli == 100 ;//1 colorWhite
acc2 = volumebeli > volumejual AND volumeturun AND hargaup AND persentasebeli == 100 ; //2 colorAqua
acc3 = volumebeli > volumejual AND volumenaik AND hargaup ; //3 colorGreen
acc4 = volumebeli > volumejual AND volumeturun AND hargaup ;//4 colorGreen
acc5 = volumebeli > volumejual AND volumenaik AND hargadown ;//5 colorGreen
acc6 = volumebeli > volumejual AND volumeturun AND hargadown ;//6 colorGreen
acc7 = volumebeli > volumejual AND volumeturun AND hargatidakberubah ;//7 colorGreen
acc8 = volumebeli > volumejual AND volumenaik AND hargatidakberubah ;//8 colorGreen
//volume jual
dist1 = volumejual > volumebeli AND volumenaik AND hargaup ;//9 colorGrey50
dist2 = volumejual > volumebeli AND volumeturun AND hargaup ;//10 colorGrey50
dist3 = volumejual > volumebeli AND volumenaik AND hargadown AND persentasejual== 100 ; //11 colorDarkGrey
dist4 = volumejual > volumebeli AND volumeturun AND hargadown AND persentasejual== 100;//12 colorGrey40
dist5 = volumejual > volumebeli AND volumenaik AND hargadown ;//13 colorGrey50
dist6 = volumejual > volumebeli AND volumeturun AND hargadown ;//14 colorGrey50
dist7 = volumejual > volumebeli AND volumeturun AND hargatidakberubah ;//15 colorGrey50
dist8 = volumejual > volumebeli AND volumenaik AND hargatidakberubah ;//16 colorGrey50
// volume telah berhenti
TANDA2BEARISH = volumestop AND hargatidakberubah AND volumeturun ;//17 colorOrange
BEARISHBERLANJUT = volumestop AND hargatidakberubah AND volumenaik;//18 colorDarkRed
AKHIRDARITRENDBERISHSUDAHDEKAT = volumestop AND hargadown AND volumeturun ;//19 colorLightBlue
KEKUATANBULLISHTERLIHATATAUCUMAJEBAKANBANDAR = volumestop AND hargaup AND volumenaik ;//20 colorYellow
MUNGKINAKANBEARISHBESOK = volumestop AND hargaup AND volumeturun ;//21 colorViolet
MUNGKINAKANBULLISHBESOK =volumestop AND hargadown AND volumenaik ;//22 colorLightYellow
WARNA=
// VOLUME BELI
IIf(acc1 ,colorGold,//1
IIf(acc2,colorGold,//2
IIf(acc3,colorOrange,//3
IIf(acc4 ,colorOrange,//4
IIf(acc5,colorWhite,//5
IIf(acc6 ,colorWhite,//6
IIf(acc7 ,colorWhite,//7
IIf(acc8 ,colorWhite,//8
// VOLUMEJUAL
IIf(dist1 ,colorGrey40,//9
IIf(dist2,colorRed,//10
IIf(dist3,colorViolet,//11
IIf(dist4 ,colorViolet,//12
IIf(dist5,colorGrey40,//13
IIf(dist6 ,colorGrey50,//14
IIf(dist7 ,colorGrey50,//15
IIf(dist8 ,colorDarkGrey,//16
// VOLUME TELAH BERHENTI
IIf( TANDA2BEARISH ,colorBlue,//17
IIf( BEARISHBERLANJUT ,colorBlue,//18
IIf(AKHIRDARITRENDBERISHSUDAHDEKAT,colorBlue,//19
IIf(KEKUATANBULLISHTERLIHATATAUCUMAJEBAKANBANDAR ,colorBlue,//20
IIf( MUNGKINAKANBEARISHBESOK ,colorBlue,//21
IIf(MUNGKINAKANBULLISHBESOK ,colorBlue,colorBlueGrey))))))))))))))))))))));//22
Buy = acc1 + acc2 + acc3 + acc4 + acc5+ acc6 + acc7 + acc8 ;
Sell = dist1 + dist2 + dist3 + dist4 + dist5 + dist6 + dist7 + dist8 ;
Strength = acc1 + acc2 + acc3 + acc4 + acc5+ acc6 + acc7 + acc8 ;
Weak = dist1 + dist2 + dist3 + dist4 + dist5 + dist6 + dist7 + dist8 ;
Plot(Buy,"STRENGHT",colorBlueGrey,styleDashed|styleOwnScale);
Plot(Sell,"WEAK",colorLightOrange,styleDashed|styleOwnScale);
_SECTION_END();
_SECTION_BEGIN("");
netlokal = volumebeli - volumejual ;
netbuy = netlokal > 0 ;
netsell = netlokal < 0 ;
acc1 = netbuy > Ref (netbuy,-1);
acc2 = netbuy > Ref (netbuy,-2);
acc3 = netbuy > Ref (netbuy,-3);
acc4 = netbuy > Ref (netbuy,-4);
acc5 = netbuy > Ref (netbuy,-5);
acc6 = netbuy > Ref (netbuy,-6);
acc7 = netbuy > Ref (netbuy,-7);
acc8 = netbuy > Ref (netbuy,-8);
acc9 = netbuy > Ref (netbuy,-9);
acc10 = netbuy > Ref (netbuy,-10);
acc11 = netbuy > Ref (netbuy,-11);
acc12 = netbuy > Ref (netbuy,-12);
acc13 = netbuy > Ref (netbuy,-13);
acc14 = netbuy > Ref (netbuy,-14);
acc15 = netbuy > Ref (netbuy,-15);
acc16 = netbuy > Ref (netbuy,-16);
acc17 = netbuy > Ref (netbuy,-17);
acc18 = netbuy > Ref (netbuy,-18);
acc19 = netbuy > Ref (netbuy,-19);
acc20 = netbuy > Ref (netbuy,-20);
//DISTRIBUTION
dist1 = netsell > Ref(netsell,-1);
dist2 = netsell > Ref(netsell,-2);
dist3 = netsell > Ref(netsell,-3);
dist4 = netsell > Ref(netsell,-4);
dist5 = netsell > Ref(netsell,-5);
dist6 = netsell > Ref(netsell,-6);
dist7 = netsell > Ref(netsell,-7);
dist8 = netsell > Ref(netsell,-8);
dist9 = netsell > Ref(netsell,-9);
dist10 = netsell > Ref(netsell,-10);
dist11 = netsell > Ref(netsell,-11);
dist12 = netsell > Ref(netsell,-12);
dist13 = netsell > Ref(netsell,-13);
dist14 = netsell > Ref(netsell,-14);
dist15 = netsell > Ref(netsell,-15);
dist16 = netsell > Ref(netsell,-16);
dist17 = netsell > Ref(netsell,-17);
dist18 = netsell > Ref(netsell,-18);
dist19 = netsell > Ref(netsell,-19);
dist20 = netsell > Ref(netsell,-20);
_SECTION_END();
Title=""+
WriteIf(acc1,EncodeColor(colorDarkGreen)+"ACCUMULAION (1 Day ) ",
WriteIf(dist1,EncodeColor(colorRed)+"DISTRIBUTION (1 Day ) ",
WriteIf(acc2,EncodeColor(colorBrightGreen)+"ACCUMULAION (2 Day Ago)",
WriteIf(dist2,EncodeColor(colorOrange)+"DISTRIBUTION (2 Day Ago) ",
WriteIf(acc3,EncodeColor(colorYellow)+"ACCUMULAION (3 Day Ago) ",
WriteIf(dist3,EncodeColor(colorRose)+"DISTRIBUTION (3 Day Ago) ",
WriteIf(acc4,EncodeColor(colorBlue)+"ACCUMULAION (4 Day Ago) ",
WriteIf(dist4,EncodeColor(colorViolet)+"DISTRIBUTION (4 Day Ago) ",
WriteIf(acc5,EncodeColor(colorWhite)+"ACCUMULAION (5 Day Ago) ",
WriteIf(dist5,EncodeColor(colorIndigo)+"DISTRIBUTION (5 Day Ago) ",
WriteIf(acc6,EncodeColor(colorAqua)+"ACCUMULAION (6 Day Ago) ",
WriteIf(dist6,EncodeColor(colorDarkRed)+"DISTRIBUTION (6 Day Ago) ",
WriteIf(acc7,EncodeColor(colorAqua)+"ACCUMULAION (7 Day Ago)",
WriteIf(dist7,EncodeColor(colorDarkRed)+"DISTRIBUTION (7 Day Ago) ",
WriteIf(acc8,EncodeColor(colorAqua)+"ACCUMULAION (8 Day Ago) ",
WriteIf(dist8,EncodeColor(colorDarkRed)+"DISTRIBUTION (8 Day Ago) ",
WriteIf(acc9,EncodeColor(colorAqua)+"ACCUMULAION (9 Day Ago) ",
WriteIf(dist9,EncodeColor(colorDarkRed)+"DISTRIBUTION (9 Day Ago) ",
WriteIf(acc10,EncodeColor(colorAqua)+"ACCUMULAION (10 Day Ago) ",
WriteIf(dist10,EncodeColor(colorDarkRed)+"DISTRIBUTION (10 Day Ago) ",
WriteIf(acc11,EncodeColor(colorAqua)+"ACCUMULAION (11 Day Ago) ",
WriteIf(dist11,EncodeColor(colorDarkRed)+"DISTRIBUTION (11 Day Ago) ",
WriteIf(acc12,EncodeColor(colorAqua)+"ACCUMULAION (12 Day Ago)",
WriteIf(dist12,EncodeColor(colorDarkRed)+"DISTRIBUTION (12 Day Ago) ",
WriteIf(acc13,EncodeColor(colorAqua)+"ACCUMULAION (13 Day Ago) ",
WriteIf(dist13,EncodeColor(colorDarkRed)+"DISTRIBUTION (13 Day Ago) ",
WriteIf(acc14,EncodeColor(colorAqua)+"ACCUMULAION (14 Day Ago) ",
WriteIf(dist14,EncodeColor(colorDarkRed)+"DISTRIBUTION (14 Day Ago) ",
WriteIf(acc15,EncodeColor(colorAqua)+"ACCUMULAION (15 Day Ago) ",
WriteIf(dist15,EncodeColor(colorDarkRed)+"DISTRIBUTION (15 Day Ago) ",
WriteIf(acc16,EncodeColor(colorAqua)+"ACCUMULAION (16 Day Ago) ",
WriteIf(dist16,EncodeColor(colorDarkRed)+"DISTRIBUTION (16 Day Ago) ",
WriteIf(acc17,EncodeColor(colorAqua)+"ACCUMULAION (17 Day Ago)",
WriteIf(dist17,EncodeColor(colorDarkRed)+"DISTRIBUTION (17 Day Ago) ",
WriteIf(acc18,EncodeColor(colorAqua)+"ACCUMULAION (18 Day Ago) ",
WriteIf(dist18,EncodeColor(colorDarkRed)+"DISTRIBUTION (18 Day Ago) ",
WriteIf(acc19,EncodeColor(colorAqua)+"ACCUMULAION (19 Day Ago) ",
WriteIf(dist19,EncodeColor(colorDarkRed)+"DISTRIBUTION (19 Day Ago) ",
WriteIf(acc20,EncodeColor(colorAqua)+"ACCUMULAION (20 Day Ago) ",
WriteIf(dist20,EncodeColor(colorDarkRed)+"DISTRIBUTION (20 Day Ago) ",""))))))))))))))))))))))))))))))))))))))))+
WriteIf(Strength == 3,EncodeColor(colorBrightGreen)+">>> VERY STRONG ",
WriteIf(Strength == 2,EncodeColor(colorBrightGreen)+">>> STRONG ",
WriteIf(Strength == 1,EncodeColor(colorBrightGreen)+">>> NORMAL ",
WriteIf(Strength == 0,EncodeColor(colorBrightGreen)+"",""))))+
WriteIf(Weak == 3,EncodeColor(colorRed)+">>> VERY STRONG ",
WriteIf(Weak == 2,EncodeColor(colorRed)+">>> STRONG ",
WriteIf(Weak == 1,EncodeColor(colorRed)+">>> NORMAL ",
WriteIf(Weak == 0,EncodeColor(colorRed)+"",""))));