AmibrokerChart_DoublePixel

// Afl ini berasal dari diskusi di room Tele @AmiBrokerAA yang script awal dari:
// Aulia Rahmat, Arief Budiman, Markezot dan @abdulaziso

_SECTION_BEGIN("Double Pixel From @AmiBrokerAA");

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

GraphXSpace=40; // scipt untuk membuat ada ruang antara candle stick dan kumpulan pixel, 
// jika script ini tidak ada maka candle stick dan pixel bisa numpuk atau tumpang tindih


// Hull Mobing Average Color
_SECTION_BEGIN("HMA");
Period = Param("Period:", 8, 1, 200);
SqrtPeriod = Param("Square Root of Period:", 5, 1, 20);

HullMA = WMA(2 * WMA(C, Period / 2) - WMA(C, Period), SqrtPeriod);
Plot(HullMa, _DEFAULT_NAME(), ParamColor("Hull Moving Average Color", colorBlue));
_SECTION_END();

_SECTION_BEGIN("HMA1");
Period = Param("Period:", 21, 5, 200);
SqrtPeriod = Param("Square Root of Period:", 2, 1, 20);

HullMA = WMA(2 * WMA(C, Period / 2) - WMA(C, Period), SqrtPeriod);
Plot(HullMa, _DEFAULT_NAME(), ParamColor("Hull Moving Average Color", colorGold));
_SECTION_END();

/*Aturan Tick Khusus untuk BEI*/
_SECTION_BEGIN("TickSize");

TickSize =
IIf( DateNum() < 1140106,
    IIf( Close < 200, 1,
    IIf( Close >= 200 AND Close < 500, 5,
    IIf( Close >= 500 AND Close < 2000, 10,
    IIf( Close >= 2000 AND Close < 5000, 25,
    IIf( Close >= 5000, 50, 0 ) ) ) ) ),

IIf( DateNum() >= 1140106 AND DateNum() < 1160502,
    IIf( Close < 500, 1,
    IIf( Close >= 500 AND Close < 5000, 5,
    IIf( Close >= 5000, 25, 0 ) ) ),

IIf( DateNum() >= 1160502,
    IIf( Close < 200, 1,
    IIf( Close >= 200 AND Close < 500, 2,
    IIf( Close >= 500 AND Close < 2000, 5,
    IIf( Close >= 2000 AND Close < 5000, 10,
    IIf( Close >= 5000, 25, 0 ) ) ) ) ), 0 ) ) );

Buy = Cross (C, HMA(C,13)) ;
Sell = Cross (HMA(C,15), C) ;
BP= HMA(C,13)+TickSize;
SP=HMA (C,15)-TickSize;

//Plot sinyal beli pakai panah biru u buy dan panah merah untuk sell
PlotShapes (IIf(Buy, shapeUpArrow, shapeNone),colorBlue, 0, L, -20);
PlotShapes (IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0, H, -20);

// Tittle untuk menampilkan Sinyal Beli dan Jual
Title = Title +EncodeColor(colorAqua)+"  HMA15  ="+ WriteVal(HMA(C,15),1.0);
_N(Title=Title+EncodeColor(colorYellow)+WriteIf(Buy,"\n\n"+"Buying Price = "+ WriteVal (BP,1.0),""));
_N(Title=Title+EncodeColor(colorRed)+WriteIf(Sell,"\n\n"+"Selling Price = "+WriteVal (SP,1.0),""));

// Filter saat menjalankan menu explorer dan yang dimunculkan jika volume di atas 1 juta
Filter = Buy OR Sell;
Filter=V>1000000;

// Pembuatan Tabel Explorer
AddTextColumn ( WriteIf(Buy,"Beli", WriteIf(Sell, "Jual", "Lht/Priksa Chart")), "Sinyal", 1.0, IIf(Buy,colorGreen, colorRed) );
SetSortColumns(4,3);
AddColumn (HMA(C,15),"HMA 15",1.0, colorBlack);
AddColumn (C,"Close",1.0, colorBlack);
AddColumn (Ref(C,-1),"Open",1.0, colorBlack);
AddColumn (H,"High",1.0, colorBlack);
AddColumn (L,"Low",1.0,colorBlack);
AddColumn (V,"Volume",1.0,colorBlack);

// Pembuatan Hull Moving Average Periode berbeda
_SECTION_BEGIN("HMA");
Period = Param("Period:", 8, 1, 200);
SqrtPeriod = Param("Square Root of Period:", 5, 1, 20);

HullMA = WMA(2 * WMA(C, Period / 2) - WMA(C, Period), SqrtPeriod);
//Plot(HullMa, _DEFAULT_NAME(), ParamColor("Hull Moving Average Color", colorBlue));
_SECTION_END();

_SECTION_BEGIN("HMA1");
Period = Param("Period:", 21, 3, 200);
SqrtPeriod = Param("Square Root of Period:", 3, 1, 20);

HullMA = WMA(2 * WMA(C, Period / 2) - WMA(C, Period), SqrtPeriod);
//Plot(HullMa, _DEFAULT_NAME(), ParamColor("Hull Moving Average Color", colorGold));
_SECTION_END();


// PENENTUAN WARNA PIXEL berdasarakan pada 5 hari, 20 hari dan 60 hari untuk KUMPULAN PIXEL BAGIAN ATAS
High5Days  = (Ref(HHV(High,5),-1));   
High20Days  = (Ref(HHV(High,20),-1));  
High60Days = (Ref(HHV(High,60),-1)); 

Low5Days  = (Ref(LLV(Low,5),-1));  
Low20Days  = (Ref(LLV(Low,20),-1));
Low60Days  = (Ref(LLV(Low,60),-1)); 

H5Days = C > High5Days;
H20Days = C > High20Days;
H60Days = C > High60Days;

L5Days = C < Low5Days;
L20Days = C < Low20Days;
L60Days = C < Low60Days;

uptrend1=C>O AND C>HMA(C,-5);
downtrend1=C<O AND C<HMA (C,-5);

Color1st = 
IIf(C>WMA(C,5),colorGreen, 
IIf(C<WMA(C,5),colorRed,
IIf(C>O and C<WMA(C,5),colorPaleGreen,
colorRed)));

Color2nd = 
IIf(C>WMA (C,20),colorGreen, 
IIf(C<WMA (C,20),colorRed,
IIf(C<O OR C<WMA(C,20),colorPaleGreen,
colorRed)));

Color3rd = 
IIf(C>WMA (C,60),colorGreen, 
IIf(C<WMA (C,60),colorRed,
IIf(C>O OR C<WMA(C,60),colorPaleGreen,
colorRed)));

//Mem-plot trend harga jangka pendek = batang ke-1 (paling atas)
SetBarFillColor(Color1st);
PlotOHLC(27,31,27,31, "",colorBlack, styleOwnScale|64|styleNoLabel, -0.5, 200,0,-1 );

SetBarFillColor(Color2nd);
PlotOHLC(22,26,22,26, "",colorBlack, styleOwnScale|64|styleNoLabel, -0.5, 200,0,-1 );

//Mem-plot trend harga jangka panjang (2-3 bulan)  = batang ke-3
SetBarFillColor(Color3rd);
PlotOHLC(17,21,17,21, "",colorBlack, styleOwnScale|64|styleNoLabel, -0.5, 200,0,-1 );


// PENENTUAN WARNA PIXEL KUMPULAN PIXEL BAGIAN BAWAH
//Mem-Plot MFI dalam bentuk batang
function MarketFacilitationIndex()
{
  return ( High - Low )/Volume;
}

mfac = MarketFacilitationIndex();
rm = ROC( mfac, 1 );
rv = ROC( Volume, 1 );

Color = IIf( rm > 0 AND rv > 0, colorGreen,
     IIf( rm < 0 AND rv < 0, colorRed,
     IIf( rm > 0 AND rv < 0, colorIndigo,
     IIf( rm < 0 AND rv > 0, colorPink, colorLightGrey ) ) ) );

//Mem-plot MFI = batang baris ke-4
SetBarFillColor(Color);
PlotOHLC(10,14,10,14, "",colorBlack, styleOwnScale|64|styleNoLabel, -0.5, 200,0,-1 );

//Menghitung Heiken Ashi

HaClose = (O + H + L + C)/4; // ini VWAP, jika pakai Datafeed QITS scriptnya Aux2/Volume
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); 
HaHigh = Max( H, Max( HaClose, HaOpen ) ); 
HaLow = Min( L, Min( HaClose, HaOpen ) ); 
xDiff = (HaHigh - Halow) * 10000;
barcolor = IIf(HaClose >= HaOpen,colorGreen,colorRed);

//Mem-plot Heiken Ashi = batang baris ke-5
SetBarFillColor(barcolor);
PlotOHLC(5,9,5,9, "",colorBlack, styleOwnScale|64|styleNoLabel, -0.5, 200,0,-1 );

stochup= StochK()>StochD() ;
MACDup= MACD()>Signal() ;
Hist= MACD()-Signal() ;
Histup= Hist>Ref(Hist,-1) ;
HAup= HaClose>=HaOpen ;

//Menghitung Fractal
_SECTION_BEGIN("Fractal-EOD");

UpFractal= ValueWhen(
  (Ref(H,-2) > Ref(H, -4)) AND
  (Ref(H,-2) > Ref(H, -3)) AND
  (Ref(H,-2) > Ref(H, -1)) AND
  (Ref(H,-2) > H), Ref(H,-2));

DownFractal= ValueWhen(
  (Ref(L,-2) <= Ref(L, -4)) AND
  (Ref(L,-2) <=  Ref(L, -3)) AND
  (Ref(L,-2) <=  Ref(L, -1)) AND
  (Ref(L,-2) <=  L), Ref(L,-2));

UF=UpFractal;
DF=DownFractal;

Plot(UpFractal, "UF", ParamColor("Up Fractal Color",colorBlueGrey),
ParamStyle("Up Fractal Style", styleDashed));
Plot(DownFractal, "DF",ParamColor("Down Fractal Color",colorOrange), 
ParamStyle("Down Fractal Style", styleDashed));

_SECTION_END();

// Menghitung Akselerasi Momentum
Tengah = (H+L)/2 ;
var1=MA( Tengah , 34);
var2=MA( Tengah,5);
AO = var2-var1;
AC=AO-MA(AO,5);

// Menentukan UpBar dan DownBar
UpBar   = AC > Ref(AC,-1); 
DownBar = AC < Ref(AC,-1);

//Mem-plot AC = batang baris ke-6 (paling bawah)
WarnaAC = IIf(UpBar, colorGreen, colorRed);
SetBarFillColor(WarnaAC);
PlotOHLC(0,4,0,4, "",colorBlack, styleOwnScale|64|styleNoLabel, -0.5, 200,0,-1 );

_SECTION_END();

no one comment here?