Gods Gift EA v 7c






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

#property copyright "Matt Edmonds"

extern int MagicNumber = 0;
extern int RiskFactor = 26;
extern bool SignalMail = False;
extern bool EachTickMode = True;
extern double Lots = 0.1;
extern int Slippage = 2;
extern bool StopLossMode = True;
extern int StopLoss = 70;
extern bool TakeProfitMode = True;
extern int TakeProfit = 150;
extern bool TrailingStopMode = True;
extern int TrailingStop = 30;
extern bool UseHourTrade = True;
extern int  FromHourTrade = 10;
extern int  ToHourTrade = 10;
extern bool RequiredStochLevelSell = True;
extern int StochSell = 40;
extern bool RequiredStochLevelBuy = True;
extern int StochBuy = 60;
extern int stochShort = 1;
extern int stochMed = 20;
extern int stochLong = 50;
extern int ShortStochSellEntry = 80;
extern int ShortStochBuyEntry = 20;
extern int ShortStochSellExit = 10;
extern int ShortStochBuyExit = 90;
extern bool MaxStochDiffMedvsLong = True;
extern int MaxStochDifference = 8;
extern int TwoPeriodExitMultiple = 16;
extern int EMAPeriod = 40;

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() {
if (UseHourTrade){
      if (!(Hour()>=FromHourTrade && Hour()<=ToHourTrade)) {
         Comment("Time for trade has not come else!");
     
         
   }  
   }
   int Order = SIGNAL_NONE;
   int Total, Ticket;
   double StopLossLevel, TakeProfitLevel;



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

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

double Var1 = iStochastic(NULL, 0, stochShort, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 0);
double Var2 = iStochastic(NULL, 0, stochShort, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 1);
double Var3 = iStochastic(NULL, 0, stochMed, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 0);
double Var4 = iStochastic(NULL, 0, stochMed, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 1);
double Var5 = iStochastic(NULL, 0, stochLong, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 0);
double Var6 = iStochastic(NULL, 0, stochLong, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 1);
double Var7 = iStochastic(NULL, 0, stochMed, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 2);

double Buy1_1 = Var5;
double Buy1_2 = StochBuy;
double Buy2_1 =  Var3;
double Buy2_2 = StochBuy;
double Buy3_1 = 5;
double Buy3_2 =  Var4  -  Var3 ;
double Buy4_1 =   Var3 - MaxStochDifference;
double Buy4_2 =  Var5 ;
double Buy5_1 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 0);
double Buy5_2 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 1);
double Buy6_1 = iClose(NULL, 0, Current + 0);
double Buy6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double Buy7_1 = 0;
double Buy7_2 = 0;
double Buy8_1 = iCustom(NULL, 0, "Keltner Channels", 0, Current + 0);
double Buy8_2 = iClose(NULL, 0, Current + 0);
double Buy9_1 =  Var1;
double Buy9_2 = ShortStochBuyEntry;
double Buy10_1 =  Var5  + 7;
double Buy10_2 =  Var6 ;
double Buy11_1 =  Var3 +10;
double Buy11_2 =  Var4 ;
double Buy12_1 = iHigh(NULL, 0, Current + 0);
double Buy12_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double Buy13_1 = iCustom(NULL, 0, "Keltner Channels B", 2, Current + 0);
double Buy13_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double Buy14_1 = iLow(NULL, 0, Current + 0);
double Buy14_2 = iMA(NULL, 0, 9, 0, MODE_EMA, PRICE_CLOSE, Current + 0);
double Buy15_1 =  Var3 ;
double Buy15_2 =  Var4 ;


double Sell1_1 = Var5;
double Sell1_2 = StochSell;
double Sell2_1 =  Var3 ;
double Sell2_2 = StochSell;
double Sell3_1 = -5;
double Sell3_2 =  Var4  -  Var3 ;
double Sell4_1 =  Var3 + MaxStochDifference;
double Sell4_2 =  Var5 ;
double Sell5_1 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 0);
double Sell5_2 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 1);
double Sell6_1 = iClose(NULL, 0, Current + 0);
double Sell6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
double Sell7_1 = iCustom(NULL, 0, "Keltner Channels", 2, Current + 0);
double Sell7_2 = iClose(NULL, 0, Current + 0);
double Sell8_1 =  Var1 ;
double Sell8_2 = ShortStochSellEntry;
double Sell9_1 =  Var1 ;
double Sell9_2 = ShortStochSellEntry;
double Sell10_1 =  Var5 - 7;
double Sell10_2 =  Var6 ;
double Sell11_1 =  Var3 - 10;
double Sell11_2 =  Var4 ;
double Sell12_1 = iLow(NULL, 0, Current + 0);
double Sell12_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
double Sell13_1 = iCustom(NULL, 0, "Keltner Channels B", 0, Current + 0);
double Sell13_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double Sell14_1 = iHigh(NULL, 0, Current + 0);
double Sell14_2 = iMA(NULL, 0, 9, 0, MODE_EMA, PRICE_CLOSE, Current + 0);
double Sell15_1 =  Var3 ;
double Sell15_2 =  Var4 ;

double CloseBuy1_1 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 0, Current + 0);
double CloseBuy1_2 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 2, Current + 0);
double CloseBuy2_1 = iCustom(NULL, 0, "Keltner Channels B", 2, Current + 0);
double CloseBuy2_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
double CloseBuy3_1 =  Var5 ;
double CloseBuy3_2 = 80;
double CloseBuy4_1 =  Var4;
double CloseBuy4_2 = 50;
double CloseBuy5_1 =  Var1 ;
double CloseBuy5_2 = ShortStochBuyExit;
double CloseBuy6_1 = iClose(NULL, 0, Current + 0);
double CloseBuy6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double CloseBuy7_1 = iCustom(NULL, 0, "Keltner Channels B", 2, Current + 0);
double CloseBuy7_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
double CloseBuy8_1 =  Var5 ;
double CloseBuy8_2 = 90;
double CloseBuy9_1 =  Var3 + RiskFactor;
double CloseBuy9_2 =  Var4 ;
double CloseBuy10_1 =  Var3 + (TwoPeriodExitMultiple*RiskFactor/10);
double CloseBuy10_2 =  Var7 ;

double CloseSell1_1 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 1, Current + 0);
double CloseSell1_2 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 2, Current + 0);
double CloseSell2_1 = iCustom(NULL, 0, "Keltner Channels B", 0, Current + 0);
double CloseSell2_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double CloseSell3_1 =  Var5 ;
double CloseSell3_2 = 20;
double CloseSell4_1 =  Var4;
double CloseSell4_2 = 50;
double CloseSell5_1 =  Var1 ;
double CloseSell5_2 = ShortStochSellExit;
double CloseSell6_1 = iClose(NULL, 0, Current + 0);
double CloseSell6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
double CloseSell7_1 = iCustom(NULL, 0, "Keltner Channels B", 0, Current + 0);
double CloseSell7_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
double CloseSell8_1 =  Var5 ;
double CloseSell8_2 = 10;
double CloseSell9_1 =  Var3 - RiskFactor;
double CloseSell9_2 =  Var4 ;
double CloseSell10_1 =  Var3 - (TwoPeriodExitMultiple*RiskFactor/10);
double CloseSell10_2 =  Var7 ;

   
   //+------------------------------------------------------------------+
   //| 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 (CloseBuy1_1 < CloseBuy1_2 && ((CloseBuy2_1 > CloseBuy2_2 && CloseBuy3_1 < CloseBuy3_2 && CloseBuy4_1 < CloseBuy4_2) || (CloseBuy5_1 > CloseBuy5_2) || (CloseBuy6_1 > CloseBuy6_2 && CloseBuy7_1 < CloseBuy7_2 && CloseBuy8_1 < CloseBuy8_2)||CloseBuy9_1<CloseBuy9_2 ||CloseBuy10_1<CloseBuy10_2)) 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(TrailingStopMode && 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 (CloseSell1_1 < CloseSell1_2 && ((CloseSell2_1 < CloseSell2_2 && CloseSell3_1 > CloseSell3_2 && CloseSell4_1 > CloseSell4_2) || (CloseSell5_1 < CloseSell5_2) || (CloseSell6_1 < CloseSell6_2 && CloseSell7_1 < CloseSell7_2 && CloseSell8_1 > CloseSell8_2) || CloseSell9_1 > CloseSell9_2 || CloseSell10_1 > CloseSell10_2)) 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(TrailingStopMode && 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 (Buy1_1 > Buy1_2 && Buy2_1 > Buy2_2 && Buy3_1 > Buy3_2 && Buy4_1 <= Buy4_2 && Buy5_1 > Buy5_2 && Buy6_1 < Buy6_2 && Buy7_1 == Buy7_2 && Buy8_1 > Buy8_2 && Buy9_1 < Buy9_2 && Buy10_1 > Buy10_2 && Buy11_1 > Buy11_2 && Buy12_1 < Buy12_2 && (Buy13_1 > Buy13_2 || Buy14_1 < Buy14_2 || Buy15_1 > Buy15_2) && (Hour()>=FromHourTrade || Hour()<=ToHourTrade)) Order = SIGNAL_BUY;

   if (Sell1_1 < Sell1_2 && Sell2_1 < Sell2_2 && Sell3_1 < Sell3_2 && Sell4_1 >= Sell4_2 && Sell5_1 < Sell5_2 && Sell6_1 > Sell6_2 && Sell7_1 < Sell7_2 && Sell8_1 > Sell8_2 && Sell9_1 > Sell9_2 && Sell10_1 < Sell10_2 && Sell11_1 < Sell11_2 && Sell12_1 > Sell12_2 && (Sell13_1 < Sell13_2 || Sell14_1 > Sell14_2 || Sell15_1 < Sell15_2) &&(Hour()>=FromHourTrade || Hour()<=ToHourTrade)) Order = SIGNAL_SELL;


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

   //Buy
   if (Order == SIGNAL_BUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
      if(!IsTrade) {
         //Check free margin
         if (AccountFreeMargin() < (1000 * Lots)) {
            Print("We have no money. Free Margin = ", AccountFreeMargin());
            return(0);
         }

         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 (AccountFreeMargin() < (1000 * Lots)) {
            Print("We have no money. Free Margin = ", AccountFreeMargin());
            return(0);
         }

         if (StopLossMode) StopLossLevel = Bid + StopLoss * Point; else StopLossLevel = 0.0;
         if (TakeProfitMode) TakeProfitLevel = Bid - 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:

Series array that contains close prices for each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar


Indicator Curves created:


Indicators Used:

Stochastic oscillator
Moving average indicator
Bollinger bands indicator



Custom Indicators Used:
Keltner Channels
Keltner Channels B
Waddah_Attar_Explosion

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 : EURUSD on H1

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

BackTest : USDJPY on H1

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

BackTest : EURUSD on H1

From 2009-12-01 to 2010-01-17 Profit Factor:2.80 Total Net Profit:149.56

BackTest : USDCAD on H1

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

BackTest : EURUSD on H1

From 2009-08-01 to 2009-10-01 Profit Factor:0.69 Total Net Profit:-82.51

BackTest : GBPUSD on H1

From 2010-01-01 to 2010-02-27 Profit Factor:6.45 Total Net Profit:432.95

BackTest : USDCAD on H1

From 2009-01-01 to 2010-01-01 Profit Factor:1.38 Total Net Profit:250.66

BackTest : EURUSD on H1

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

BackTest : GBPUSD on H1

From 2010-01-01 to 2010-04-16 Profit Factor:1.95 Total Net Profit:237.20

BackTest : EURUSD on H1

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

BackTest : EURUSD on H1

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

BackTest : EURUSD on H1

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

Request Backtest for Gods Gift EA v 7c


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

Pair: Period: