Suffic369_www.forex-instruments.info





//+------------------------------------------------------------------+
//|                                                    suffic369.mq4 |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "suffic369@yahoo.com, treberk"
#property link      "http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/"
//----
extern int MagicNumber=0;
extern bool EachTickMode=True;
extern double Lots=0.1;
extern int Slippage=3;
extern bool StopLossMode=True;
extern int StopLoss=30;
extern bool TakeProfitMode=True;
extern int TakeProfit=60;
extern bool TrailingStopMode=True;
extern int TrailingStop=30;
//----
#define SIGNAL_NONE 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) EachTickMode=False;
   Total=OrdersTotal();
   Order=SIGNAL_NONE;
   //+------------------------------------------------------------------+
   //| Signal Begin                                                     |
   //+------------------------------------------------------------------+
   double Buy1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double Buy1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 1);
   double Buy2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double Buy2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 0);
   double Buy3_1=iClose(NULL, 0, Current + 0);
   double Buy3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
   double Sell1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double Sell1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 1);
   double Sell2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double Sell2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 0);
   double Sell3_1=iClose(NULL, 0, Current + 0);
   double Sell3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
   double CloseBuy1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double CloseBuy1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 1);
   double CloseBuy2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double CloseBuy2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_LOW, Current + 0);
   double CloseBuy3_1=iClose(NULL, 0, Current + 0);
   double CloseBuy3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_UPPER, Current + 0);
   double CloseSell1_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 1);
   double CloseSell1_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 1);
   double CloseSell2_1=iMA(NULL, 0, 3, 0, MODE_SMA, PRICE_CLOSE, Current + 0);
   double CloseSell2_2=iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_HIGH, Current + 0);
   double CloseSell3_1=iClose(NULL, 0, Current + 0);
   double CloseSell3_2=iBands(NULL, 0, 156, 1, 0, PRICE_CLOSE, MODE_LOWER, Current + 0);
   //+------------------------------------------------------------------+
   //| Signal End                                                       |
   //+------------------------------------------------------------------+
   //Buy
   if(Total < 1)
     {
      //Check free margin
      if (AccountFreeMargin() < (1000 * Lots))
        {
         Print("We have no money. Free Margin = ", AccountFreeMargin());
         return(0);
        }
      if ((Buy1_1 < Buy1_2 && Buy2_1 > Buy2_2 && Buy3_1 < Buy3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
        {
         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,"",MagicNumber,0,DodgerBlue);
           if(Ticket > 0) 
           {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES))
               Print("BUY order opened : ", OrderOpenPrice()); else Print("Error opening BUY order : ", GetLastError());
           }
         if (EachTickMode) TickCheck=True;
         if (!EachTickMode) BarCount=Bars;
         return(0);
        }
     }
   //Sell
   if ((Sell1_1 > Sell1_2 && Sell2_1 < Sell2_2 && Sell3_1 > Sell3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
     {
        if(Total < 1) 
        {
         //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,"", MagicNumber,0,DeepPink);
         if(Ticket > 0)
           {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES))
               Print("SELL order opened : ", OrderOpenPrice());
            else Print("Error opening SELL order : ", GetLastError());
           }
         if (EachTickMode) TickCheck=True;
         if (!EachTickMode) BarCount=Bars;
         return(0);
        }
     }
   //Check position
     for(int i=0; i < Total; i ++) 
     {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
      if(OrderType()<=OP_SELL &&  OrderSymbol()==Symbol())
        {
         if(OrderType()==OP_BUY)
           {
            //Close
            if ((CloseBuy1_1 > CloseBuy1_2 && CloseBuy2_1 < CloseBuy2_2 && CloseBuy3_1 > CloseBuy3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
              {
               OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,MediumSeaGreen);
               if (EachTickMode) TickCheck=True;
               if (!EachTickMode) BarCount=Bars;
               return(0);
              }
            //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;
                     return(0);
                    }
                 }
              }
            }
             else 
            {
            //Close
            if ((CloseSell1_1 < CloseSell1_2 && CloseSell2_1 > CloseSell2_2 && CloseSell3_1 < CloseSell3_2) && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars!=BarCount))))
              {
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
               if (EachTickMode) TickCheck=True;
               if (!EachTickMode) BarCount=Bars;
               return(0);
              }
            //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;
                     return(0);
                    }
                 }
              }
           }
        }
     }
   if (!EachTickMode) BarCount=Bars;
//----
   return(0);
  }
//+------------------------------------------------------------------+



Sample





Analysis



Market Information Used:

Series array that contains close prices for each bar


Indicator Curves created:


Indicators Used:

Moving average indicator
Bollinger bands indicator


Custom Indicators Used:

Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy

Other Features: