Tuesday, May 24, 2022

SMA9 entry and candle 2 exit

//+------------------------------------------------------------------+

//|                                                   sma-candle.mq4 |

//|                        Copyright 2022, MetaQuotes Software Corp. |

//|                                             https://www.mql5.com |

//+------------------------------------------------------------------+

#property copyright "Copyright 2022, MetaQuotes Software Corp."

#property link      "https://www.mql5.com"

#property version   "1.00"

#property strict

//+------------------------------------------------------------------+

//| Expert initialization function                                   |

//+------------------------------------------------------------------+

//---

extern int MagicNumber=100013;

extern double Lots =0.01;

extern double StopLoss=100;

extern double TakeProfit=0;

extern int TrailingStop=10;

extern int Slippage=3;

 

//---

   

//+------------------------------------------------------------------+

//| Expert tick function                                             |

//+------------------------------------------------------------------+

void OnTick()

  {

//---

   double sma9 = DoubleToStr(iMA(_Symbol,_Period,9,0,MODE_SMA,PRICE_CLOSE,0),Digits);

   double sma20 = DoubleToStr(iMA(_Symbol,_Period,20,0,MODE_SMA,PRICE_CLOSE,0),Digits);

   double speared =DoubleToStr(Ask-Bid,Digits);

   double buyon = 0;

   if(Ask > sma9 && Ask > High[1] && Low[1] > Low[2])

     {

      buyon = 1;

     }

   double sellon = 0;

   if(Bid < sma9 && Bid < Low[1] && High[1] < High[2])

     {

      sellon = 1;

     }

    if(TotalOrdersCount() < 6)

     {

      int result=0;

      int result1=0;

      if((buyon == 1 && OrdersTotal() < 6)) // Here is your open buy rule

        {

         result=OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,0,Bid+TakeProfit*_Point,"Fibonacci EA",MagicNumber,0,Blue);

         result1=OrderSend(Symbol(),OP_SELLSTOP,Lots,Low[2]-speared*Digits,Slippage,Ask+speared*Digits,0,"Fibonacci EA",MagicNumber,0,Blue);

         if(result>0)

           {


            OrderSelect(result,SELECT_BY_TICKET);


            OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Low[2]-speared,Digits),0,0,Green);

           }


         

        }


      if((sellon == 1 && OrdersTotal() < 6))   // Here is your open Sell rule


        {

         result=OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,0,Ask-TakeProfit*_Point,"Fibonacci EA",MagicNumber,0,Red);

         result1=OrderSend(Symbol(),OP_BUYSTOP,Lots,High[2]+speared*Digits,Slippage,Bid-speared*Digits,0,"Fibonacci EA",MagicNumber,0,Red);

         if(result>0)

           {

            OrderSelect(result,SELECT_BY_TICKET);


            OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(High[2]+speared,Digits),0,0,Green);

           }

         }

     } 

      

   Comment ("BUY ",buyon," SELL ",sellon, " SMA9 :",sma9 , " SMA20 " , sma20 , " tp " , OrderOpenPrice()+100*_Point);

  

//+------------------------------------------------------------------+

   for(int cnt=0; cnt<OrdersTotal(); cnt++)

     {

      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);

      if(OrderType()<=OP_SELL &&

         OrderSymbol()==Symbol() &&

         OrderMagicNumber()==MagicNumber

        )

        {


         if(OrderType()==OP_BUY)

           {

            if((sma9 < Low[1] && Open[2] > Bid && Low[1] > Bid) || (High[1] > sma20 && Close[0] < Low[1])) //here is your close buy rule

              {

               OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),Slippage,Red);

              }

            if(TrailingStop>0)

              {

               if(Bid-OrderOpenPrice()>TrailingStop*_Point)

                 {

                  if((OrderStopLoss()<Bid-TrailingStop*_Point) || (OrderStopLoss() == 0))

                    {

                    double bclose = 0;

                    if(Bid > OrderOpenPrice()+100*_Point && Open[2] < OrderOpenPrice()+100*_Point) 

                    { bclose = OrderOpenPrice()+100*_Point;}

                    else { bclose = DoubleToStr(Open[2]-speared,Digits);}

                     OrderModify(OrderTicket(),OrderOpenPrice(),bclose,OrderTakeProfit(),0,Green);

                     

                    }

                 }

              }

           }

         else

           {

            if((sma20 > High[1] && Open[2] < Ask && High[1] < Ask) || (Low[1] < sma9 && Close[0] > High[1])) // here is your close sell rule

              {

               OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),Slippage,Red);

              }

            if(TrailingStop>0)

              {

               if((OrderOpenPrice()-Ask)>(TrailingStop*_Point))

                 {

                  if((OrderStopLoss()>(Ask+TrailingStop*_Point)) || (OrderStopLoss()==0))

                    {

                    double sclose = 0;

                    if(Ask < OrderOpenPrice()-100*_Point && Open[2] > OrderOpenPrice()-100*_Point) 

                    { sclose = OrderOpenPrice()-100*_Point;}

                    else { sclose = DoubleToStr(Open[2]+speared,Digits);}

     

                     OrderModify(OrderTicket(),OrderOpenPrice(),sclose,OrderTakeProfit(),0,Red);


                    }

                 }

              }

           }

        }


     }


  }


//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+


int TotalOrdersCount()

  {

   int result=0;

   for(int i=0; i<OrdersTotal(); i++)

     {

      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);

      if(OrderMagicNumber()==MagicNumber)

         result++;


     }

   return (result);

  }


//+------------------------------------------------------------------+


No comments:

Post a Comment