YourExpertAdvisor3





//+------------------------------------------------------------------+
//| This MQL is generated by Expert Advisor Builder                  |
//|                http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/ |
//|                                                                  |
//|  In no event will author be liable for any damages whatsoever.   |
//|                      Use at your own risk.                       |
//|                                                                  |
//+------------------- DO NOT REMOVE THIS HEADER --------------------+

#define SIGNAL_NONE 0
#define SIGNAL_BUY   1
#define SIGNAL_SELL  2
#define SIGNAL_CLOSEBUY 3
#define SIGNAL_CLOSESELL 4

#property copyright "Expert Advisor Builder"
#property link      "http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/"

extern int MagicNumber = 0;
extern bool SignalMail = False;
extern bool EachTickMode = False;
extern double Lots = 1.0;
extern int Slippage = 3;
extern bool StopLossMode  = True;
extern int StopLoss = 100;
extern bool TakeProfitMode = False;
extern int TakeProfit = 0;
extern bool UseTrailingStop = False;
extern int TrailingStop = 30;
extern int MaximumRisk=3;
extern int Level1=0;

int BarCount;
int Current;
bool TickCheck = False;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init() {
   BarCount = Bars;

   if (EachTickMode) Current = 0; else Current = 1;

   return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit() {
   return(0);
}
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start() {
   int Order = SIGNAL_NONE;
   int Total, Ticket;
   double StopLossLevel, TakeProfitLevel;



   if (EachTickMode && Bars != BarCount) TickCheck = False;
   Total = OrdersTotal();
   Order = SIGNAL_NONE;

   //+------------------------------------------------------------------+
   //| Variable Begin                                                   |
   //+------------------------------------------------------------------+



double Buy1_1 = iCustom(NULL, 0, "ZigAndZag", 60, 5, Current + 0);
double Buy2_1 = iCustom(NULL, 0, "Float",60, 0, Current + 1);
double Buy3_1 = iCustom(NULL, 0, "ZigAndZag", 100, 5, Current + 0);
double Buy4_1 = iCustom(NULL, 0, "Float",100, 0, Current + 1);
double Buy5_1 = iCustom(NULL, 0, "3_Level_ZZ_Semafor",12,34,55, 4, Current + 1);

double Sell1_1 = iCustom(NULL, 0, "ZigAndZag", 60, 6, Current + 0);
double Sell2_1 = iCustom(NULL, 0, "Float",60, 0, Current + 1);
double Sell3_1 = iCustom(NULL, 0, "ZigAndZag", 100, 6, Current + 0);
double Sell4_1 = iCustom(NULL, 0, "Float",100, 0, Current + 1);
double Sell5_1 = iCustom(NULL, 0, "3_Level_ZZ_Semafor",12,34,55, 5, Current + 1);

double CloseBuy1_1 = iCustom(NULL, 0, "ZigAndZag", 60, 6, Current + 0);
double CloseBuy2_1 = iCustom(NULL, 0, "Float",60, 0, Current + 1);
double CloseBuy3_1 = iCustom(NULL, 0, "ZigAndZag", 100, 6, Current + 0);
double CloseBuy4_1 = iCustom(NULL, 0, "Float",100, 0, Current + 1);
double CloseBuy5_1 = iCustom(NULL, 0, "3_Level_ZZ_Semafor",12,34,55, 5, Current + 1);

double CloseSell1_1 = iCustom(NULL, 0, "ZigAndZag", 60, 5, Current + 0);
double CloseSell2_1 = iCustom(NULL, 0, "Float",60, 0, Current + 1);
double CloseSell3_1 = iCustom(NULL, 0, "ZigAndZag", 100, 5, Current + 0);
double CloseSell4_1 = iCustom(NULL, 0, "Float",100, 0, Current + 1);
double CloseSell5_1 = iCustom(NULL, 0, "3_Level_ZZ_Semafor",12,34,55, 5, Current + 1);

   
   //+------------------------------------------------------------------+
   //| Variable End                                                     |
   //+------------------------------------------------------------------+

   //Check position
   bool IsTrade = False;

   for (int i = 0; i < Total; i ++) {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
      if(OrderType() <= OP_SELL &&  OrderSymbol() == Symbol()) {
         IsTrade = True;
         if(OrderType() == OP_BUY) {
            //Close

            //+------------------------------------------------------------------+
            //| Signal Begin(Exit Buy)                                           |
            //+------------------------------------------------------------------+

                      if ((CloseBuy5_1 != 0&& CloseBuy2_1==Level1&&CloseBuy1_1!= 0)||(CloseBuy5_1 != 0&&CloseBuy4_1==Level1&&CloseBuy3_1 != 0)) Order = SIGNAL_CLOSEBUY;


            //+------------------------------------------------------------------+
            //| Signal End(Exit Buy)                                             |
            //+------------------------------------------------------------------+

            if (Order == SIGNAL_CLOSEBUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, MediumSeaGreen);
               if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Close Buy");
               if (!EachTickMode) BarCount = Bars;
               IsTrade = False;
               continue;
            }
            //Trailing stop
            if(UseTrailingStop && TrailingStop > 0) {                 
               if(Bid - OrderOpenPrice() > Point * TrailingStop) {
                  if(OrderStopLoss() < Bid - Point * TrailingStop) {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Bid - Point * TrailingStop, OrderTakeProfit(), 0, MediumSeaGreen);
                     if (!EachTickMode) BarCount = Bars;
                     continue;
                  }
               }
            }
         } else {
            //Close

            //+------------------------------------------------------------------+
            //| Signal Begin(Exit Sell)                                          |
            //+------------------------------------------------------------------+

                      if ((CloseSell5_1 != 0&& CloseSell2_1==Level1&&CloseSell1_1!= 0)||(CloseSell5_1 != 0&&CloseSell4_1==Level1&&CloseSell3_1 != 0)) Order = SIGNAL_CLOSESELL;

            //+------------------------------------------------------------------+
            //| Signal End(Exit Sell)                                            |
            //+------------------------------------------------------------------+

            if (Order == SIGNAL_CLOSESELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
               if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Close Sell");
               if (!EachTickMode) BarCount = Bars;
               IsTrade = False;
               continue;
            }
            //Trailing stop
            if(UseTrailingStop && TrailingStop > 0) {                 
               if((OrderOpenPrice() - Ask) > (Point * TrailingStop)) {
                  if((OrderStopLoss() > (Ask + Point * TrailingStop)) || (OrderStopLoss() == 0)) {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Ask + Point * TrailingStop, OrderTakeProfit(), 0, DarkOrange);
                     if (!EachTickMode) BarCount = Bars;
                     continue;
                  }
               }
            }
         }
      }
   }

   //+------------------------------------------------------------------+
   //| Signal Begin(Entry)                                              |
   //+------------------------------------------------------------------+

   if ((Buy5_1 != 0&& Buy2_1==Level1&&Buy1_1!= 0)||(Buy5_1 != 0&&Buy4_1==Level1&&Buy3_1 != 0)) Order = SIGNAL_BUY;

   if ((Sell5_1 != 0&& Sell2_1==Level1&&Sell1_1!= 0)||(Sell5_1 != 0&&Sell4_1==Level1&&Sell3_1 != 0)) Order = SIGNAL_SELL;


   //+------------------------------------------------------------------+
   //| Signal End                                                       |
   //+------------------------------------------------------------------+

   //Buy
   if (Order == SIGNAL_BUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
      if(!IsTrade) {
         //Check free margin
          //Check free margin
         if(MaximumRisk!=0)Lots=NormalizeDouble((AccountFreeMargin()*MaximumRisk*0.00001),1);
         if(Lots<MarketInfo(Symbol(),MODE_MINLOT))Lots=MarketInfo(Symbol(),MODE_MINLOT);
         if(Lots>MarketInfo(Symbol(),MODE_MAXLOT))Lots=MarketInfo(Symbol(),MODE_MAXLOT);
         if (StopLossMode) StopLossLevel = Ask - StopLoss * Point; else StopLossLevel = 0.0;
         if (TakeProfitMode) TakeProfitLevel = Ask + TakeProfit * Point; else TakeProfitLevel = 0.0;
        
         Ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, StopLossLevel, TakeProfitLevel, "Buy(#" + MagicNumber + ")", MagicNumber, 0, DodgerBlue);
         if(Ticket > 0) {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) {
				Print("BUY order opened : ", OrderOpenPrice());
                if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Open Buy");
			} else {
				Print("Error opening BUY order : ", GetLastError());
			}
         }
         if (EachTickMode) TickCheck = True;
         if (!EachTickMode) BarCount = Bars;
         return(0);
      }
   }

   //Sell
   if (Order == SIGNAL_SELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
      if(!IsTrade) {
       //Check free margin
         if(MaximumRisk!=0)Lots=NormalizeDouble((AccountFreeMargin()*MaximumRisk*0.00001),1);
         if(Lots<MarketInfo(Symbol(),MODE_MINLOT))Lots=MarketInfo(Symbol(),MODE_MINLOT);
         if(Lots>MarketInfo(Symbol(),MODE_MAXLOT))Lots=MarketInfo(Symbol(),MODE_MAXLOT);
         if (StopLossMode) StopLossLevel = Ask - StopLoss * Point; else StopLossLevel = 0.0;
         if (TakeProfitMode) TakeProfitLevel = Ask + TakeProfit * Point; else TakeProfitLevel = 0.0;

        

         Ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, StopLossLevel, TakeProfitLevel, "Sell(#" + MagicNumber + ")", MagicNumber, 0, DeepPink);
         if(Ticket > 0) {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) {
				Print("SELL order opened : ", OrderOpenPrice());
                if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Open Sell");
			} else {
				Print("Error opening SELL order : ", GetLastError());
			}
         }
         if (EachTickMode) TickCheck = True;
         if (!EachTickMode) BarCount = Bars;
         return(0);
      }
   }

   if (!EachTickMode) BarCount = Bars;

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



Sample





Analysis



Market Information Used:



Indicator Curves created:


Indicators Used:




Custom Indicators Used:
ZigAndZag
Float
3_Level_ZZ_Semafor

Order Management characteristics:
Checks for the total of open orders

It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
It automatically opens orders when conditions are reached

Other Features:

It sends emails

BackTest : USDJPY on H1

From 2009-11-01 to 2009-11-30 Profit Factor:0.00 Total Net Profit:1330.00

BackTest : EURUSD on H1

From 2009-12-01 to 2010-01-17 Profit Factor:0.00 Total Net Profit:2116.26

BackTest : USDCAD on H1

From 2009-12-01 to 2010-01-01 Profit Factor:0.00 Total Net Profit:734.42

BackTest : EURUSD on H1

From 2009-08-01 to 2009-10-01 Profit Factor:0.32 Total Net Profit:-691.86

BackTest : GBPUSD on H1

From 2010-01-01 to 2010-02-27 Profit Factor:122.90 Total Net Profit:2724.45

BackTest : USDCAD on H1

From 2009-01-01 to 2010-01-01 Profit Factor:0.00 Total Net Profit:5029.31

BackTest : EURUSD on H1

From 2010-03-01 to 2010-03-27 Profit Factor:0.00 Total Net Profit:906.39

BackTest : GBPUSD on H1

From 2010-01-01 to 2010-04-16 Profit Factor:0.00 Total Net Profit:430.74

BackTest : EURUSD on H1

From 2010-04-01 to 2010-04-30 Profit Factor:0.00 Total Net Profit:780.18

BackTest : EURUSD on H1

From 2010-05-01 to 2010-05-31 Profit Factor:2.72 Total Net Profit:1440.09

BackTest : EURUSD on H1

From 2010-06-01 to 2010-06-30 Profit Factor:0.00 Total Net Profit:-758.91

Request Backtest for YourExpertAdvisor3


From : (yyyy/mm/dd) To: (yyyy/mm/dd)

Pair: Period: