Kode:
_SECTION_BEGIN(“Perbedaan MA”);
T=26;
KMA=((C-MA(C,T))/MA(C,T))*100;
Grafik0=KMA;
Graph0Style=2+4;
Graph0BarColor=IIf(KMA>0,5,4);
GrafikXSpace=5;
_BAGIAN_AKHIR();
_SECTION_BEGIN(“Harga”);
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, “Tutup”, ParamColor(“Warna”, colorBlack ), styleNoTitle | ParamStyle(“Gaya”) | GetPriceStyle() );
_BAGIAN_AKHIR();
//-----------------------------------------------------------------
_SECTION_BEGIN(“ZIG-ZAG”);
P = ParamField(“Bidang harga” );
perubahan = Param(“%perubahan”,5,0.1,25,0.1);
_BAGIAN_AKHIR();
_BAGIAN_MULAI(“EMA”);
P = ParamField(“Bidang harga”,-1);
Periode = Param(“Periode”, 15, 2, 300, 1, 10 );
_BAGIAN_AKHIR();
_SECTION_BEGIN(“Eksplorasi MACD”);
r1 = Param(“Rata-rata cepat”, 12, 2, 200, 1 );
r2 = Param(“Rata-rata lambat”, 26, 2, 200, 1 );
r3 = Param(“Sinyal rata-rata”, 9, 2, 200, 1 );
Z=Param("zig",1,0,10,0.1);
Cond1 = Cross(MACD(r1,r2),Signal(r1,r2,r3));
Kondisi3 = Zig(C,z)>Ref(Zig(C,z),-4);
Beli = Cond1 DAN Cond3;
Cond4 = Cross(Signal(r1,r2,r3),MACD(r1,r2));
Kondisi6 = Zig(C,z)
Jual = Cond4 DAN Cond6;
Pemicu = WriteIf(Beli, “Beli”, “”) + WriteIf(Jual, “Jual”, “”);
_N(Judul = StrFormat(“{{NAMA}} {{TANGGAL}} {{INTERVAL}}: O=%1.2f, H=%1.2f, L=%1.2f, C=%1.2f, V=%1.0fn{{NILAI}}”, O, H, L, C, V));
BG = IIf(Beli, warnaHijauPucat, IIf(Jual, warnaMawar, warnaDefault));
FG = IIf(Beli, warnaHijauTua, IIf(Jual, warnaMerahTua, warnaDefault));
jika (Status("tindakan") == indikatortindakan)
{
Plot(C, “”, warnaAbu-abu50, bilahgaya);
//PlotShapes(IIf(Beli, bentukLingkaran, bentukTidakAda),warnaBiru, 0,L, Offset=-60);
//PlotShapes(IIf(Jual, bentukLingkaran, bentukNone),warnaBiru, 0,H, Offset=-30);
}
//--------------------------------------------------------------------------------------------------------------------------------
jika (Status("tindakan") == actionExplore)
Filter = Beli ATAU Jual;
SetOption(“NoDefaultColumns”, Benar);
AddTextColumn(Nama(), “Simbol”, 77, FG, BG, 120);
AddColumn(DateTime(), “Tanggal”, formatDateTime, FG, BG, 100);
AddColumn(TimeNum(),”Waktu”,1);
AddColumn( C, “Tutup”, 1.3 );
AddColumn( H, “Tinggi”, 1.3 );
TambahkanKolom(V, “Volume”);
TambahkanKolom(Ref(V,-1),”P-Vol”);
AddColumn(V/Ref(V,-1)*100,”Peningkatan Vol”);
AddColumn( Beli, “Beli”, 1 );
AddColumn( Jual, “Jual”, 1 );
bentuk = Beli * bentukSegitigaBeronggaAtas + Jual * bentukSegitigaBeronggaBawah;
PlotShapes( bentuk, IIf( Beli, warnaBiru, warnaBiru ), 0, IIf( Beli, Rendah, Tinggi ) );
GrafikXSpace = 7;
GrafikXSpace = 7;
_BAGIAN_AKHIR();
_BAGIAN_MULAI(“EMA3”);
P = ParamField(“Bidang harga”,-1);
Periode = Param(“Periode”, 15, 2, 300, 1, 10 );
_BAGIAN_AKHIR();
_SECTION_BEGIN(“Teks latar belakang”);
C13=Param(“font”,20,10,30,1 );
C14=Param(“kiri-kanan”,2.1,1.0,5.0,0.1 );
C15=Param(“atas-bawah”,12,1,20,1 );
Miny = Status("axisminy");
Maxy = Status(“sumbumaksimal”);
lvb = Status("bilah terakhir terlihat");
fvb = Status("bilah pertama yang terlihat");
lebar piksel = Status(“lebar piksel”);
tinggi piksel = Status(“tinggi piksel”);
GfxSetBkMode(transparan=1);
GfxSetOverlayMode(1);
GfxSelectFont(“Tahoma”, Status(“tinggi piksel”)/C13 );
GfxSetTextAlign( 6 );
GfxSetTextColor( WarnaRGB (217,217,213));
GfxTextOut( Nama(), Status(“pxwidth”)/C14, Status(“pxheight”)/C15 );
GfxSelectFont(“Tahoma”, Status(“tinggi piksel”)/C13*0.5 );
GfxSetTextColor( WarnaRGB (103,103,103));
GfxTextOut(“AJEET SINGH”, Status(“lebar piksel”)/C14, Status(“tinggi piksel”)/C15*2.5 );
GfxSelectFont(“Tahoma”, Status(“tinggi piksel”)/C13*0.5 );
GfxSetTextColor( WarnaRGB (103,103,103));
GfxSelectFont(“MS Sans Serif”, 10, 500, Salah, Salah, 0);
//Fase kedua dimulai di sini
//Berkas: Bagan BHS
_SECTION_BEGIN(“Perdagangan”);
//SetChartBkColor(ParamColor(“Warna panel luar “,colorLightYellow));
SetChartBkColor(ParamColor(“Warna Latar Belakang”, colorBlack));
pShowtradeLines = ParamToggle(“Tampilkan Jalur Perdagangan”, “Tidak|Ya”, 1);
pShowMarkers = ParamToggle(“Tampilkan Penanda”, “Tidak|Ya”, 1);
synch=ParamToggle(“Sinkronkan beli/jual dengan indeks asing”, “Tidak|Ya”, 1);
Volmin=Param("Volume minimum",5000,0,10000000,50);
Volmax=Param(“Volume maksimum”,1000000,0,10000000,50);
priceRL=Param(“Kisaran Harga Min”,150,1,20000,1);
priceRH=Param(“Kisaran Harga Maks”,3000,1,20000,1);
PercChangemin=Param(“Perubahan Persentase Min yang ditetapkan”, -25, -100, 100, 0.1);
PercChangemax=Param(“Perubahan Persentase Maksimum yang ditetapkan”, 25, -100, 100, 0.1);
PerctakeProfit=Param(“Persentase Ambil Untung Ditetapkan”,0.6,0.3,30,0.1);
PercStoploss=Param(“Persentase StopLoss Ditetapkan”,0.25,0.2,5,0.1);
PlotOHLC(Buka,Tinggi,Rendah,Tutup,””,warnaPutih,gayaLilin);
Batang = 0;
xpdh = 90;
{
Plot_Range = (NomorWaktu() >= 85500 DAN NomorWaktu()<= 153500) DAN (NomorTanggal()==NilaiTerakhir(NomorTanggal()));
FH_Range = (NomorWaktu() >= 085500 DAN NomorWaktu()<= 093000) DAN (NomorTanggal()==NilaiTerakhir(NomorTanggal()));
FH_Harga = Tinggi * FH_Kisaran;
FH_Marker = BarsSince(FH_Range>0);
Num_Bar = 36000 / Interval(1);
TimeFrameSet(dalamHarian);
TOP_ = Terbuka;
PDH_ = Ref(Tinggi,-1);
PDL_ = Ref(Rendah,-1);
PDO_ = Ref(Terbuka,-1);
PDC_ = Ref(Tutup,-1);
PDM_ = (PDH_+PDL_)/2;
TimeFrameRestore();
isAll = Benar;
isRth = TimeNum() >= 085400 DAN TimeNum() <= 093000;
isdRth = TimeNum() >= 085400 DAN TimeNum() <= 160000;
aRthL = IIf(adalahRth, L, 1000000);
aRthH = IIf(isdRth, H, Null);
aRthLd = IIf(isdRth, L, 1000000);
TOP = TimeFrameExpand(TOP_,dalamHarian,perluasPertama);
PDH = TimeFrameExpand(PDH_,inDaily,expandFirst);
PDL = TimeFrameExpand(PDL_,inDaily,expandFirst);
PDO = TimeFrameExpand(PDO_,dalamHarian,perluasPertama);
PDC = TimeFrameExpand(PDC_,inDaily,expandFirst);
PDM = TimeFrameExpand(PDM_,inDaily,expandFirst);
FHH = Ref(HHV(Tinggi*FH_Rentang,Jumlah_Bar),-FH_Penanda);
FHL = TimeFrameCompress( aRthL, inDaily, compressLow );
FHL = TimeFrameExpand( FHL, dalamHarian, perluasPertama );
DayH = Kompres Jangka Waktu( aRthH, inDaily, kompresTinggi );
DayH = TimeFrameExpand( DayH, dalamHarian, perluasPertama );
DayL = TimeFrameCompress( aRthLd, inDaily, compressLow );
DayL = TimeFrameExpand( DayL, dalamHarian, perluasPertama );
FC1=((PDH-PDL)*0.433);
FC2=((PDH-PDL)*0.7666);
FC3=((PDH-PDL)*1.355);
FC4=(FHH-FHL);
A=Jika((FC4<=FC1+PDH*0.005),FC1,0);
B=IIf((FC4<=FC2+PDH*0.005 AND FC4>FC1+PDH*0.005),FC2,0);
Cl=IIf((FC4<=FC3 AND FC4>FC2+PDH*0.005),FC3,0);
AF=(A+B+Cl);
//luar negeri
_SECTION_BEGIN (“grafik batang indeks asing”);
Vr=ParamList(“Indeks”,Daftar = “^NSEI,^NSEBANK,^CNXIT,^NSMIDCP,RELIANCE.NS,SB IN.NS”,0);
SetAsing(Vr);
HaC =(O+H+L+C)/4;
HaO = AMA( Ref( HaC, -1 ), 0.5 );
HaH = Maks( H, Maks( HaC, HaO) );
HaL = Min( L, Min( HaC, HaO) );
BG3=HHV(LLV(HaL,4)+ATR(4),8);
BR3=LLV(HHV(HaH ,4)-ATR(4),8);
co = IIf(Hac>BG3 ,warnaHijauTerang,IIf(Hac < BR3,warnaMerah,warnaAbu-abu50));
Plot(4, “”, Ko, luasarea+skalasendiri | tanpalabel, -1, 100);
KembalikanHargaArray();
_BAGIAN_AKHIR();
HargaBeli=(HariL+AF);
BuyTP1=(Harga Beli+(Harga Beli*(PersenKeuntungan/100)));
BeliTP2=(C>=BeliTP1);
HargaJual=(HariH-AF);
SellTP1=(Harga Jual-(Harga Jual*(PersenLaba/100)));
JualTP2=(C<=JualTP1);
perubah=(((C-TOP)/TOP)*100);
Vol=(V>=Volmin DAN V<=Volmaks);
Persentase=(perubah>=PerubahanPermin DAN perubah<=PerubahanPermaks);
prc=(C>=priceRL DAN C<=priceRH);
BuyStop1=(Harga Beli-(Harga Beli*(PercStoploss/100)));
BuyStop2=IIf((BuyStop1<=HargaJual) DAN HargaJual<=HargaBeli,HargaJual,BuyStop1);
SellStop1=(Harga Jual+(Harga Jual*(PercStoploss/100)));
SellStop2=IIf((SellStop1>=HargaBeli) AND SellPrice<=HargaBeli, HargaBeli,SellStop1);
BuyStop=IIf((Beli DAN BUKAN BuyTP2),BuyStop2,Null);
BuyTP=IIf(Beli DAN BUKAN BuyStop,BuyTP2,Null);
Bar = BarsSince(NomorWaktu() >= 85400 DAN NomorWaktu() < 092900);
x0 = BarCount-LastValue(Batang);
x1 = JumlahBar-1;
TOP_Line = LineArray(x0,NilaiTerakhir(TOP),x1,NilaiTerakhir(TOP),0);
PDH_Line = LineArray(x0,Nilai Terakhir(PDH),x1,Nilai Terakhir(PDH),0);
PDL_Line = LineArray(x0,NilaiTerakhir(PDL),x1,NilaiTerakhir(PDL),0);
PDC_Line = LineArray(x0,Nilai Terakhir(PDC),x1,Nilai Terakhir(PDC),0);
PDM_Line = LineArray(x0,Nilai Terakhir(PDM),x1,Nilai Terakhir(PDM),0);
FHH_Line = LineArray(x0,Nilai Terakhir(FHH),x1,Nilai Terakhir(FHH),0);
FHL_Line = LineArray(x0,Nilai Terakhir(FHL),x1,Nilai Terakhir(FHL),0);
Garis Harga Beli=LineArray(x0,Nilai Terakhir(Harga Beli),x1,Nilai Terakhir(Harga Beli),0);
BuyStopline=LineArray(x0,LastValue(BuyStop2),x1,LastValue(BuyStop2),0);
BuyTPline=LineArray(x0,LastValue(BuyTP1),x1,LastValue(BuyTP1),0);
SellPriceline=LineArray(x0,LastValue(SellPrice),x1 ,LastValue(SellPrice),0);
SellStopline=LineArray(x0,LastValue(SellStop2),x1, LastValue(SellStop2),0);
SellTPline=LineArray(x0,LastValue(SellTP1),x1,LastValue(SellTP1),0);
DayHline=LineArray(x0,LastValue(DayH),x1,LastValue (DayH),0);
DayLline=LineArray(x0,LastValue(DayL),x1,LastValue (DayL),0);
Plot(IIf(pShowtradeLines,BuyStopline,Null),"BeliStop p",warnaHijauTerang,styleDots|styleNoRescale|styleNoLine);
Plot(IIf(pShowtradeLines,SellPriceline,Null),”Short Di Sini”,colorRed,styleDots|styleNoRescale);
//PlotShapes(IIf(pShowMarkers AND Beli, shapeHollowUpArrow, Null), colorDarkGreen, 0,L,Offset=-30);
jika (Status(“tindakan”) == actionIndicator)
(
Judul = EncodeColor(warnaPutih)+ “Sistem Perdagangan” + ” – ” + Nama() + ” – ” + EncodeColor(warnaKuning)+ Interval(2) + EncodeColor(warnaKuning) +
” – ” + Tanggal() +” – “+ EncodeColor(warnaKuning) + “-Buka=”+WriteVal(O,1) + EncodeColor(warnaKuning) + “- Tinggi= “+ WriteVal(H,1)+ EncodeColor(warnaKuning) + “- Rendah= “+ WriteVal(L,1)+ EncodeColor(warnaKuning) + “- Tutup= “+ WriteVal(C,1)+ EncodeColor(warnaKuning) + “- Vol= “+ WriteVal(V,1)+(“n”)
+WriteIf(Perubahan, ” % Perubahan = “+(Perubahan)+” “,””)+” Hari Sebelumnya Tinggi=”+WriteVal(PDH,1)+”, Hari Sebelumnya Rendah=”+WriteVal(PDL,1)+”, Hari Ini Tinggi=”+WriteVal(HariH,1)+”, Hari Ini Rendah=”+WriteVal(HariL,1)+
WriteIf(Hac>BG3,EncodeWarna(warnaCerahHijau)+”+Naik “,
TulisJika(Hac "));
GfxSetOverlayMode( mode = 0 );
GfxSelectPen( warnaBiruTerang, 3 );
GfxSelectSolidBrush( warnaKuningTerang );
GfxRoundRect(20, 55, 180, 175, 15, 15);
GfxSetBkMode(1);
GfxSelectFont(“Arial”, 10, 700, Salah );
GfxSetTextColor( warnaCoklat );
GfxSetTextAlign(0);
GfxTextOut( WriteIf(HargaJual, “level TRP: “+(HargaJual),””), 30, 60);
GfxTextOut( WriteIf(HargaBeli, “Beli Di Atas: “+(HargaBeli),””), 30, 75);
GfxTextOut( WriteIf(BeliBerhenti2, “SL Panjang: “+(BeliBerhenti2),””), 30, 90);
GfxTextOut( WriteIf(BeliTP1 , “Target Panjang 1: “+(BeliTP1),””), 30, 105);
GfxTextOut( WriteIf(SellPrice, “Jual Di Bawah: “+(SellPrice),””), 30, 120);
GfxTextOut( WriteIf(SellStop2, “SL Pendek: “+(SellStop2),””), 30, 135);
GfxTextOut( WriteIf(SellTP1, “Target Jual: “+(SellTP1),””), 30, 150);
TambahkanKolom(V,”Volume”,1.0);
AddColumn(Percchange,”Ubah %”,1.2);
AddColumn(HargaBeli,”Beli di”,1.2);
AddColumn(BuyStop,”Beli Stop di”,1.2);
AddColumn(BuyTP1,”Beli Untung di”,1.2);
AddColumn(SellPrice,”Short di”,1.2);
AddColumn(SellTP1,”Untung pendek di”,1.2);
}
_BAGIAN_AKHIR();
_SECTION_BEGIN(“sinyal pendek”);
HaTutup=(O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaTinggi = Maks( H, Maks( HaTutup, HaBuka ) );
HaLow = Min( L, Min( HaTutup, HaBuka ) );
BG2=HHV(LLV(Rendah,4)+ATR(4),8);
BR2=LLV(HHV(Tinggi,4)-ATR(4),8);
Setel WarnaIsiBar( IIf(O
k = Optimalkan(“K”,Param(“K”,1.75,1,5,0.25),1,5,0.25);
Per= Optimalkan(“atr”,Param(“atr”,10,3,30,1),3,30,1);
j=HaTutup;
nm= (HL);
rfsctor = WMA(nm, PER);
pembalikan = K * rfsctor;
Tren = 1;
Bahasa Indonesia: Barat Laut[0] = 0;
untuk (i = 1; i < JumlahBar; i++)
{
jika (Tren[i-1] == 1)
{
jika (j[i] < NW[i-1])
{
Tren[i] = -1;
NW[i] = j[i] + Revers[i];
}
lain
{
Tren[i] = 1;
jika((j[i] – Revers[i]) > NW[i-1])
{
NW[i] = j[i] – Revers[i];
}
lain
{
NW[i] = NW[i-1];
}
}
}
jika (Tren[i-1] == -1)
{
jika (j[i] > NW[i-1])
{
Tren[i] = 1;
NW[i] = j[i] – Revers[i];
}
lain
{
Tren[i] = -1;
jika((j[i] + Revers[i]) < NW[i-1])
{
NW[i] = j[i] + Revers[i];
}
lain
{
NW[i] = NW[i-1];
}
}
}
}
Plot(NW, “”, IIf(Tren == 1, 6, 4), 4);
Beli=Cross(j,nw);
Pendek=Cross(nw,j);
Jual=Cross(nw,j);
Penutup=Cross(j, barat laut);
Beli=ExRem(Beli,Jual);
Jual=ExRem(Jual,Beli);
Pendek=ExRem(Pendek,Penutup);
Penutup=ExRem(Penutup,Pendek);
//dist = 1.5*ATR(15);
untuk (i = 0; i < JumlahBar; i++)
{
jika( Beli[i] ) PlotText( “Beli@” + O[ i ], i, L[ i ]-Tren[i], warnaBiruTua, warnaKuning );
jika( Jual[i] ) PlotText( “Jual@” +H[ i ], i-4, L[ i ]+Tren[i], warnaMerah, warnaKuning );
}
PlotShapes(IIf(Beli, bentukPanahAtas, bentukTidakAda),warnaPutih, 0,halow,-30);
PlotShapes(IIf(Jual, bentukSegitigaBeronggaBawah, bentukTidakAda),warnaPutih, 0,tinggi,-15);
PlotShapes(IIf(Penutup, bentukSegitigaBerongga, bentukTidakAda),warnaPutih, 0,halow,-15);
PlotShapes(IIf(Pendek, bentukPanahBawah, bentukTidakAda),warnaPutih, 0,tinggi,-30);
//----akhir-----
