Coding help with d’Alembert Forex EA

#1
First Post: Dec 7, 2014 5:28pm Dec 7, 2014 5:28pm

jimbofx7
| Joined Jul 2006 | Status: Trader | 51 Posts

Hi all,

I try to code an EA that handle with d'alembert progression (for all that don´t know progression d'alembert: http://www.bettingexpert.com/casino/...lembert-system )

The plan is to start with 0.01 lots and SL 13 pips / TP 14 pips.

Each time a trade close with a loss, a new trade open immediately with additional 0.01 lots and after a win trade next trade open immediately with 0.01 lots less than the lotsize before until we arrive at 0.01 lots.

Example:

1. trade 0.01 lots loss

2. trade 0.02 lots loss

3. trade 0.03 lots loss

4. trade 0.04 lots loss

5. trade 0.05 lots win

6. trade 0.04 lots win

7. trade 0.03 lots win

8. trade 0.02 lots win

9. trade 0.01 lots win

So here is my first code try but it doesn´t work in the startegy tester. :-(

Who can help?

Inserted Code

//+------------------------------------------------------------------+
//|                                                           A4.mq4 |
//|                      Copyright © 2010, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

//+------------------------------------------------------------------+
//| extern input parameters                                          |
//+------------------------------------------------------------------+

extern int MagicNumber_101=101000;
extern int SL=13;
extern int TP=14;
double dXPoint=1;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
 
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
   {
 
double Lotsize = 0.01;
   if (OrdersHistoryTotal()>=1)
   {
      OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS);
      Lotsize = OrderLots();
   }
    
      if (OrderProfit()<0 && OrdersHistoryTotal()>=1)
         {
            Lotsize = Lotsize + 0.01;
         }
      
      if (OrderProfit()>0 && OrdersHistoryTotal()>=1 && Lotsize>=0.02)
         {
            Lotsize = Lotsize - 0.01;
         }
      
      
   if (OrdersHistoryTotal()<1 && Minute()==00)
   
      {  
         OrderSend(Symbol(),OP_BUY,0.01,MarketInfo(Symbol(),MODE_ASK),2,Bid-SL*Point,Bid+TP*Point,"buy",MagicNumber_101,0,CLR_NONE);
      }
 
Sleep(120000);
   
   if (OrdersTotal()==0 && Minute()==00)
      {
         OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS);   
         if (OrderProfit()>0 && OrderType()==OP_BUY)
         {        
            OrderSend(Symbol(),OP_BUY,0.01,MarketInfo(Symbol(),MODE_ASK),2,Bid-SL*Point,Bid+TP*Point,"buy",MagicNumber_101,0,CLR_NONE);
         }
         Sleep(120000);
      }
      
   if (OrdersTotal()==0 && Minute()==00)
      {               
         if (OrderProfit()>0 && OrderType()==OP_SELL)
         {        
            OrderSend(Symbol(),OP_SELL,0.01,MarketInfo(Symbol(),MODE_BID),2,Ask+SL*Point,Ask-TP*Point,"sell",MagicNumber_101,0,CLR_NONE);
         }
         Sleep(120000);
      }
     
   if (OrdersTotal()==0 && Minute()==00)
      {   
         if (OrderProfit()<0 && OrderType()==OP_SELL)
         {        
            OrderSend(Symbol(),OP_BUY,0.01,MarketInfo(Symbol(),MODE_ASK),2,Bid-SL*Point,Bid+TP*Point,"buy",MagicNumber_101,0,CLR_NONE);
         }
         Sleep(120000);
      }
   if (OrdersTotal()==0 && Minute()==00)
      {         
         if (OrderProfit()<0 && OrderType()==OP_BUY)
         {        
            OrderSend(Symbol(),OP_SELL,0.01,MarketInfo(Symbol(),MODE_BID),2,Ask+SL*Point,Ask-TP*Point,"sell",MagicNumber_101,0,CLR_NONE);
         }
         Sleep(120000);
      }
   return(0);   
}

Please no comments like "Blow your account away...blabla"
Just sharing a trading strategy.

Regards.

{Promotion Removed}

#2
Edited Dec 9, 2014 3:15am Dec 8, 2014 3:32pm | Edited Dec 9, 2014 3:15am

rockit
Joined Oct 2013 | Status: Trader | 1,025 Posts

Try this (in the tester that is..):

Inserted Code

#property strict
input int SL = 130;
input int TP = 140;
double lot = 0.01;
int ticket;
int OnInit()
{
    ticket = OrderSend(Symbol(), OP_BUY, lot, Ask, 2, Ask-SL*Point, Ask+TP*Point);
    if(ticket > -1) return INIT_SUCCEEDED;
    return INIT_FAILED;
}
void OnTick()
{
    if(OrderSelect(0, SELECT_BY_POS)) return;
    OrderSelect(ticket, SELECT_BY_TICKET);
    if(OrderProfit() < 0.0) {
        lot += 0.01;
        ticket = OrderSend(Symbol(), OP_SELL, lot, Bid, 2, Bid+SL*Point, Bid-TP*Point);
    }
    else {
        if(lot > 0.01) lot -= 0.01;
        ticket = OrderSend(Symbol(), OP_BUY, lot, Ask, 2, Ask-SL*Point, Ask+TP*Point);
    }
}

Return To Disorder

#3
Dec 9, 2014 8:35am Dec 9, 2014 8:35am

jimbofx7
| Joined Jul 2006 | Status: Trader | 51 Posts

Hi rockit,

thanks! Is this mql5-Code?

Regards.

{Promotion Removed}

#4
Dec 9, 2014 10:40am Dec 9, 2014 10:40am

rockit
Joined Oct 2013 | Status: Trader | 1,025 Posts

No, this is official MQL4 since MT4 build 600 (currently 755).
The other style is deprecated and should not be used anymore. It is limiting anyway.

Return To Disorder

#5
Dec 9, 2014 4:19pm Dec 9, 2014 4:19pm

jimbofx7
| Joined Jul 2006 | Status: Trader | 51 Posts

Hi rockit,

the code works fine except the fact that every new trade has to be opened with the trend, that means:

- if a long trade closes with profit, next trade is a long trade
- if a long trade closes with loss, next trade is a short trade
- if a short trade closes with profit, next trade is a short trade
- if a short trade closes with loss, next trade is a long trade

Regards and many thanks in advance

{Promotion Removed}

#6
Last Post: Dec 9, 2014 4:44pm Dec 9, 2014 4:44pm

jimbofx7
| Joined Jul 2006 | Status: Trader | 51 Posts

Hi rockit,

I think I fixed it...

Inserted Code

{
    if(OrderSelect(0, SELECT_BY_POS)) return;
    OrderSelect(ticket, SELECT_BY_TICKET);
    if(OrderProfit() < 0.0) {
        lot += 0.01;
        if (OrderType()==OP_BUY){
        ticket = OrderSend(Symbol(), OP_SELL, lot, Bid, 2, Bid+SL*Point, Bid-TP*Point);
        }
        if (OrderType()==OP_SELL){
        ticket = OrderSend(Symbol(), OP_BUY, lot, Ask, 2, Ask-SL*Point, Ask+TP*Point);
        }
    }
    else {
        if(lot > 0.01) lot -= 0.01;
        if (OrderType()==OP_SELL){
        ticket = OrderSend(Symbol(), OP_SELL, lot, Bid, 2, Bid+SL*Point, Bid-TP*Point);
        }
        if (OrderType()==OP_BUY){
        ticket = OrderSend(Symbol(), OP_BUY, lot, Ask, 2, Ask-SL*Point, Ask+TP*Point);
        }
        
    }

Many thanks for your support!

{Promotion Removed}

Platform Tech
/
Coding help with d’Alembert Forex EA
Reply to Thread

0 traders viewing now

Options

Similar Threads

Coding help with d’Alembert Forex EA