Belajar Membuat EA Sederhana 25 (Cut Switching)

Oleh JumForex 21.10 12 komentar

Mungkin sudah pada ngintip di part 24

Kali ini kita akan bahas tentang EA model cut switching , saya sih juga gak begitu memahami betul tentang strategy ini tapi yang jelas ini termasuk juga EA martingel tapi untuk kondisi trending.

Ea ini setelah order maka bila floting negatif maka akan di cut loss dan dilanjutkan dengan order baru dengan arah yang berlawanan dengan memeperhitungkan kelipatan lotsnya

Nah sebenarnya bisa dibuat dengan beberapa model , tapi kali ini kita akan buat model menggunakan tidak menggunakan pending stop.
bagian triger digunakan indikator fractals
Perhatikan cara codingnya:


    for(int d=0; d< Bars  ; d++){
    double up=iFractals(Symbol(),0,MODE_UPPER,d);     if(up!=0 ) break;}

for(int e=0; e< Bars  ; e++){
    double lo=iFractals(Symbol(),0,MODE_LOWER,e);
    if( lo!=0) break;}

int signal;
if(Bid > up) signal=1;// signal buy

if(Ask < lo)signal=2;//signal sell



Bagian lain yang perlu diperhatikan adalah membaca history orderprofit, ordertype dan magic number

double trad(int m)

{

double pr,op;



  for (int i = 0; i < OrdersHistoryTotal(); i++) {

   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;

   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;

   if(m==1)pr=OrderProfit();

   if(m==2)pr=OrderType();

   if(m==3)pr=OrderMagicNumber();

   }

return(pr);

}





history orderprofit diperlukan untuk mengetahui orderprofit pada order close yang terakhir itu untung ata rugi
history ordertype diperlukan untuk mengetahui type order pada order close yang terakhir itu type buy atau sell
history magicnumber diperlukan untuk mengetahui membatasidan memperhitungkan level order 



Untuk memperhitungkan perkalian lotsnya digunakan fungsi sbb:





double xlot()

{

 double ylot,dlot; 

  for (int i = 0; i < OrdersHistoryTotal(); i++) {

   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;

   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA */) continue;

     dlot=OrderLots();

     }

    ylot=NR(dlot*DiMarti);

return(ylot);

}

Untuk penentuan trigernya saya coba gunakan indikator Fractals

//+------------------------------------------------------------------+
//|                                                Jum+switch+.mq4 |
//|                                                gifaesa@yahoo.com |
//|                                     http://JumForex.blogspot.com |
//+------------------------------------------------------------------+

#property copyright "JumForex.blogspot.com"
#property link      "Gifaesa@yahoo.com"

extern string  Target_Equety_          = "Harus lebih besar dari Equety+";
extern double  Target_Equety           = 1000;
extern int     Mulai_Jam               = 0;
extern int     Akhir_Jam               = 20;
extern int     TP                      = 30;
extern int     SL                      = 20;
extern double  Lots                    = 0.01;
extern int     Max_order               = 12;
extern double  DiMarti                 = 2;
extern int     Magic                   = 69;
string  Nama_EA                 = "Jum+SwitchFractals+";

int tiket;
double slb,tpb,sls,tps,pt,bal;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
 bal= AccountBalance();
 if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point;   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
 ObjectDelete("j");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
  if(SL==0||TP==0){Alert(" Isi dulu TP Dan SLnya"); return(0);}
  label();
  if(Target_Equety<AccountEquity()) {
    closeall(0);
    closeall(1);
    Alert("Cek Target_Equetynya salah ");
   return(0);
   }
    for(int d=0; d< Bars  ; d++){
    double up=iFractals(Symbol(),0,MODE_UPPER,d);
    if(up!=0 ) break;}
    for(int e=0; e< Bars  ; e++){
    double lo=iFractals(Symbol(),0,MODE_LOWER,e);
    if( lo!=0) break;}
    int signal;

if(Bid > up) signal=1;
if(Ask < lo)signal=2;
if(Jam_trade()==1 && DayOfWeek()>1){
if((trad(1)>0) || (trad(1)==0)){  
  if(jumlahorder(0)==0 && jumlahorder(1)==0){
    if(signal==1) {if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,Magic,0,Blue))Print("JumForex Buy");}
    if(signal==2) {if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,Magic,0,Red))Print("JumForex Sell");}
    }
   }
 }
if(jumlahorder(0)==0 && jumlahorder(1)==0 && trad(3)<Max_order+Magic ){
if(trad(1)<0 && trad(2)==1) {if(OrderSend(Symbol(),OP_BUY,xlot(),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,trad(3)+1,0,Blue))Print("JumForex Buy");  }
if(trad(1)<0 && trad(2)==0) {if(OrderSend(Symbol(),OP_SELL,xlot(),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,trad(3)+1,0,Red))Print("JumForex Sell");   }
}

return(0);
  }
//+------------------------------------------------------------------+

int Jam_trade()
{
   bool trade = false;
   if(Mulai_Jam > Akhir_Jam){
     if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;
   } else
     if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;

return (trade);
}

int jumlahorder( int tipe)
{
int total=0;
for(int i=0; i<OrdersTotal(); i++)
  {
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue;
      if(OrderSymbol()!=Symbol() || OrderComment() != Nama_EA || OrderType()!=tipe) continue;
     total++;
  }

return(total);
}
double NR(double thelot)
{
    double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),
    minilot = MarketInfo(Symbol(), MODE_MINLOT),
    lstep = MarketInfo(Symbol(), MODE_LOTSTEP);
    double lots = lstep * NormalizeDouble(thelot / lstep, 0);
    lots = MathMax(MathMin(maxlots, lots), minilot);
    return (lots);
}

void closeall(int m)
{
 for (int i = OrdersTotal() - 1; i >= 0; i--) {
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue;
  if (OrderSymbol() != Symbol() || OrderComment() != Nama_EA ||  OrderType()!=m) continue;
  if (OrderType() > 1) tiket=OrderDelete(OrderTicket());
   else {
    if (OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);
    else               tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);
  }
 }
}
double money()
{
 double dp = 0;
 int i;
 for (i = 0; i < OrdersTotal(); i++) {
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue;
  if (OrderSymbol() != Symbol()  || OrderComment() != Nama_EA) continue;
  dp += OrderProfit();
 }
 return(dp);
}

double trad(int m)
{
  double pr;
  for (int i = 0; i < OrdersHistoryTotal(); i++) {
   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;
   if(m==1)pr=OrderProfit();
   if(m==2)pr=OrderType();
   if(m==3)pr=OrderMagicNumber();
   }
return(pr);
}
double xlot()
{
 double ylot,dlot; 
  for (int i = 0; i < OrdersHistoryTotal(); i++) {
   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA */) continue;
     dlot=OrderLots();
     }
    ylot=NR(dlot*DiMarti);
return(ylot);
}
void label()
{
   ObjectCreate("j",OBJ_LABEL,0,0,0);
   ObjectSet("j",OBJPROP_CORNER,4);
   ObjectSet("j",OBJPROP_XDISTANCE,10);
   ObjectSet("j",OBJPROP_YDISTANCE,10);
   ObjectSetText("j","Jum+switchFractals from : JumForex.blogspot.com ",21,"Mistral",Aqua);
 Comment("\n ",
   "\n ",
   "\n ------------------------------------------------",
   "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD),
   "\n :: Leverage               : 1 : ", AccountLeverage(),
   "\n :: Jam Server             :", Hour(), ":", Minute(),
   "\n ------------------------------------------------",
   "\n :: Equity sekarang        : ", AccountEquity(),"  $",
   "\n :: Target_Equety          : ", Target_Equety ,"  $",
   "\n ------------------------------------------------",
   "\n :: Posisi floting         :",NormalizeDouble(money(),2),"  $",
   "\n :: Level                  :",trad(3)-Magic,
   "\n ------------------------------------------------",
   "\n :: >>By: Jum69<<",
   "\n ------------------------------------------------");
//+------------------------------------------------------------------+
}

untuk mt4 yang baru sbb;

#property copyright "JumForex.blogspot.com"
#property link      "Gifaesa@yahoo.com"
#property version   "1.00"
#property strict

int tiket, tar,mag, signal,pro;
double slb,tpb,sls,tps,pt,bal,up, lo, pr, ylot,dlot;
;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
bal= AccountBalance();
     if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point;
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{ 
  if(SL==0||TP==0){Alert(" Isi dulu TP Dan SLnya");}
  label();
  if(Target_Equety<AccountEquity()) {
    closeall(0);
    closeall(1);
    tar=1;
    Alert("Cek Target_Equetynya salah ");
    }
    for(int d=0; d< Bars  ; d++){
      up=iFractals(Symbol(),0,MODE_UPPER,d);
    if(up!=0 ) break;}
    for(int e=0; e< Bars  ; e++){
    lo=iFractals(Symbol(),0,MODE_LOWER,e);
    if( lo!=0) break;}
    mag= magg()+1;
if(Bid > up) signal=1;
if(Ask < lo)signal=2;
if(Jam_trade()==1 && DayOfWeek()>1 && !tar){
if((trad(1)>0) || (trad(1)==0)){  
  if(jumlahorder(0)==0 && jumlahorder(1)==0){
    if(signal==1) {if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,Magic,0,Blue))Print("JumForex Buy");}
    if(signal==2) {if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,Magic,0,Red))Print("JumForex Sell");}
    }
   }
 }
if(jumlahorder(0)==0 && jumlahorder(1)==0 && trad(3)<Max_order+Magic ){
if(trad(1)<0 && trad(2)==1) {if(OrderSend(Symbol(),OP_BUY,xlot(),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,mag,0,Blue))Print("JumForex Buy");  }
if(trad(1)<0 && trad(2)==0) {if(OrderSend(Symbol(),OP_SELL,xlot(),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,mag,0,Red))Print("JumForex Sell");   }
}

}
//+------------------------------------------------------------------+

return (trade);
}

double trad(int m)
{
  for (int i = 0; i < OrdersHistoryTotal(); i++) {
   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;
   if(m==1)pr=OrderProfit();
   if(m==2)pr=OrderType();
   }
return(pr);
}
int magg()
{
  for (int i = 0; i < OrdersHistoryTotal(); i++) {
   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;
   pro=OrderMagicNumber();
   }
return(pro);
}
double xlot()
{
  for (int i = 0; i < OrdersHistoryTotal(); i++) {
   if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
   if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA */) continue;
     dlot=OrderLots();
     }
    ylot=NR(dlot*DiMarti);
return(ylot);
}
void label()
{
   ObjectCreate("j",OBJ_LABEL,0,0,0);
   ObjectSet("j",OBJPROP_CORNER,4);
   ObjectSet("j",OBJPROP_XDISTANCE,10);
   ObjectSet("j",OBJPROP_YDISTANCE,10);
   ObjectSetText("j","Jum+switchFractals from : JumForex.blogspot.com ",21,"Mistral",Aqua);
 Comment("\n ",
   "\n ",
   "\n ------------------------------------------------",
   "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD),
   "\n :: Leverage               : 1 : ", AccountLeverage(),
   "\n :: Jam Server             :", Hour(), ":", Minute(),
   "\n ------------------------------------------------",
   "\n :: Equity sekarang        : ", AccountEquity(),"  $",
   "\n :: Target_Equety          : ", Target_Equety ,"  $",
   "\n ------------------------------------------------",
   "\n :: Posisi floting         :",NormalizeDouble(money(),2),"  $",
   "\n :: Level                  :",trad(3)-Magic,
   "\n ------------------------------------------------",
   "\n :: >>By: Jum69<<",
   "\n ------------------------------------------------");
//+------------------------------------------------------------------+
}

Nah begini testnya:

Okey silahkan di test dan mudaha2an bisa digunakan untuk mendia belajar

Pastikan mengikuti:

Belajar Membuat EA sederhana part 1


Belajar Membuat EA sederhana part 2
Belajar Membuat EA sederhana part 3
Belajar Membuat EA sederhana part 4
Belajar Membuat EA sederhana part 5
Belajar Membuat EA sederhana part 6
Belajar Membuat EA sederhana part 7
Belajar Membuat EA sederhana part 8
Belajar Membuat EA sederhana part 9
Belajar Membuat EA sederhana part 10
Belajar Membuat EA sederhana part 11
Belajar Membuat EA sederhana part 12
Belajar Membuat EA sederhana part 13
Belajar Membuat EA sederhana part 14
Belajar Membuat EA sederhana part 15
Belajar Membuat EA sederhana part 16
Belajar Membuat EA sederhana part 17
Belajar Membuat EA sederhana part 18
Belajar Membuat EA sederhana part 19
Belajar Membuat EA sederhana part 20
Belajar Membuat EA sederhana part 21
Belajar Membuat EA sederhana part 22
Belajar Membuat EA sederhana part 23
Belajar Membuat EA sederhana part 24
Belajar Membuat EA sederhana part 25
Belajar Membuat EA sederhana part 26

12 komentar untuk "Belajar Membuat EA Sederhana 25 (Cut Switching)"

Unknown 19 Februari 2013 pukul 21.41

kang jum kayakya cocognya di pakai pada kamis malam dan jumat malam saja, supaya ea hanya jalan kamis dan jumat saja mana yang harus di edit kang?

JumForex 22 Februari 2013 pukul 19.40

ea ini emang cocok pada kondisi trending
Pada ea diatas sudah sy beri filter hari senin no trade
DayOfWeek()>1

Kalau mau hari kamis dan jumat saja tinggal merubah
DayOfWeek()>3

gitu kira2

Hapus

Balas Hapus

BIRO TIKET 10 Juli 2013 pukul 18.20

Kang Saya Coba Backtest EA ini kok Mismatched Charts Errors nya kok banyak banget ya dan backtesnya lama banget...
kira2 apanya ya...?

JumForex 12 Juli 2013 pukul 11.24

lihat tab jurnalnya
Error kodenya

sejauh ini ea ini normal koq

Unknown 21 Juli 2013 pukul 11.33

Master Jum,, salam kenal,,
saya ingin membuat EA chandle..
Bila 2 chandle sebelumnya bul maka OP buy dan closs sell.
begitu juga ebaliknya bila chandle 2 sebelumnya ber maka OP sell dan closs buy...
cara kodingnya gimana ya master...? mohon pencerahannya... makasih..

JumForex 24 Juli 2013 pukul 06.55

di part awal sebenarnya udah pernah sy bahas tentang candel
contoh:
if(Open[2]Close[2] && Open[1]>Close[1] ) {signal sell; close_buy;}

Unknown 15 Februari 2014 pukul 23.04

Master, Kalau item martinya d, pengen dirubah menjadi model 1.1;2.2;3.3 ...dst gimana caranya.

kamsud sy jika SL OP 1 kena, maka OP 2 = lot OP1
jika SL OP 2 kena, maka OP3 = 2 lot
jika SL OP 3 kena, maka OP4 = 2 lot
dst

so deret martinya menjadi 11;22;33;44

David Katianda 17 Juni 2015 pukul 12.20

Bagaimana contoh kode supaya ea tetap melakukan order setelah tp terpenuhi ,dan tidak melakukan order kembali jika terkena stop loss,jadi ea mesti direset kalo terkena stop loss supaya ea bisa bekerja kembali.mohon bantuannya.terimakasih

Unknown 18 September 2015 pukul 18.03

pak jum, ada tidak kode untuk ea yang kyak gini,
ketika kita sell manual kemudian harga turun 5 pips ea op sell lagi, ketika turun 5 pip lagi ea op sell lagi, dan sterusnya, lotnya bertingkat pak ,0.01,0.02,0.03 , dan ketika harga naik melebihi op pertama , misal hrga op prtama 35, naik diatasnya op pertama 10pip, ea op buy dengan lot 0.01 ,dan jika naik 5 pip, ea buy , kemudian naik 5 pip lagi , ea buy lagi, dengan lot bertingkat,
ea bisa cut all posisi ketika target profit sudah tercapai , profit dlm bentuk dolar, bukan persen jg bukan pips,

ada tidak pak koding ea kyk gitu

jaim 21 April 2018 pukul 19.44

salam kenal om..., blog nya sangat membantu untuk perkembangan pelajaran dalam pembuatan EA robot, saya sudah mengikuti pelajaran dari pelajaran yang ada dan sudah dapat memodifikasi...,tapi dalam hal ini saya temukan satu masalah tentang scrip ini :

for(int d=0; d< Bars ; d++){
double up=iFractals(Symbol(),0,MODE_UPPER,d);
if(up!=0 ) break;}
for(int e=0; e< Bars ; e++){
double lo=iFractals(Symbol(),0,MODE_LOWER,e);
if( lo!=0) break;}
int signal;

if(Bid > up) signal=1;
if(Ask < lo)signal=2;

disini saat saya compile terdapat error yang menyatakan (up) undecleration, saya sudah memperhatikan dengan seksama....tapi gak ketemu untuk perbaikannya....gmn om penyelesaiannya....terima kasih

Luthfi liady 22 Mei 2020 pukul 13.50

Hidup terus orang baik!

zamroni 4 November 2020 pukul 10.09

salam kenal kang..oia gimana ya coding buat op awal manual tapi selanjutnya di lanjut ea secara otomatis dan bertipe cutswitc marti..misal open buy dg TP 100 SL 40 ,jika kena SL akan dilanjut marti sell dst..trims