#1.mtf_collider_h4_close_13_v18bar.mq4

input bool TradeEnabled                = true;  // Breakout trade option
input double Lots                      = 0.01;          // Trade Lots
extern int MaxOrdersPerTrendline       = 2;
input int TargetProfit                 = 10;      // Target Profit 
input int StopLoss                     = 30;          // Stop Loss
input int Slippage                     = 3;          // Slippage

input bool AlertPopup                  = true;   // Popup breakout notification
input bool Sound                       = false;        // Sound breakout notification
input bool EmailAlert                  = false;   // Email breakout notification
input bool MobileAlert                 = false;  // MT4 mobile notification

input int PriceDelta                   = 0;  // More points for breakout threshold

input int HourStart                    = 0;   // EA working hour starts
input int HourEnd                      = 24;    // EA working hour ends

input int SecondsStart                  = 10;   // EA working minute starts
input int MinuteEnd                    = 220;    // EA working minute ends

input int TrendlineStart               = 0;   // EA working trendline starts
input int TrendlineEnd                 = 0;    // EA working trendline ends

input bool TrailingStop                = true;        // TrailingStop trade options
input bool TrailingStopMoved           = true;
input int TrailingStopPoint            = 15; 

input bool DisplayQuote                = false;             // Option of display realtime price
input bool DisplayTrendLineStatus      = false;   // Option of display trendline breakout status

input bool AddPosition                = false;     /// Add position trade option
input int PositionStepPoint           = 3;
input int PositionStepNumber          = 6;

input int MovingPeriod               = 14;
input int MovingShift                = 0;
double MA1=iMA(NULL,0,MovingPeriod,MovingShift,MODE_EMA,PRICE_CLOSE,0);
double dLastPrice;
string strTrendLineName , strUpward, strDownward, strAlerted; 
int iTp, iSl, iSp, iTs, iDigiExtend, iPd, iPsp,iMot,iD1cl;
int iArrowRightFontSize = 8, iLineCount=0;
color colorAlerted = C'249,236,255';
int XAxis = 50, YAxis = 50, FontSize=20;
double n = MaxOrdersPerTrendline;
int getOrdersThisBar(int magic);
double MagicNumber=0;

double HC4 = iClose(NULL, PERIOD_H4, 1); 
double HC5 = iClose(NULL, PERIOD_H1, 1);
double HC6 = iClose(NULL, PERIOD_M30, 1);
double HC7 = iClose(NULL, PERIOD_M15, 1); 
double HC8 = iClose(NULL, PERIOD_M5, 1);
double HC9 = iClose(NULL, PERIOD_M1, 1);

int OnInit()
{
      // код доступен только после оплаты
   }

void OnDeinit(const int reason)
{
    int i=0;

    ObjectDelete("QuoteTrendline");
    ObjectDelete("SymbolTrendline");
    ObjectDelete("TimeTrendline"); 

    if (iLineCount!=0) { for(i=iLineCount;i>=0;i--) ObjectDelete(StringConcatenate("TrendlineStatus_",i)); } 

    if (reason<=1)  /// Delete trendlines & left arrows  ONLY IF this EA is removed; 
    {               /// OnDeinit reasons listed at - 

      for(i=ObjectsTotal();i>=0;i--) /// reverse loop for any MQL4 delete functions as total quantity keep changing
      { 
        if (ObjectType(ObjectName(i))==OBJ_ARROW)//OBJ_ARROW
           ObjectDelete(ObjectName(i)); 
        if (ObjectType(ObjectName(i))==OBJ_TREND)//OBJ_TREND 
           ObjectDelete(ObjectName(i));    
      }
      }

}

void OnTick()
{
      // код доступен только после оплаты
   }

void ProcessTrendlineAlert()
{

   ushort u_sep = StringGetCharacter(";",0);
   string strTrendlineArray[];

   int iTrendlineTotal=StringSplit(strTrendLineName,u_sep,strTrendlineArray);
   int i=0, j=0, ticket = 0;
   string strCurrentTrendline="";

   if (iTrendlineTotal<=0) return;

   for (i=0;i<iTrendlineTotal;i++)
      {
         strCurrentTrendline = StringSubstr(strTrendlineArray[i],1);

         if (StringSubstr(strTrendlineArray[i],0,1)=="1" || strCurrentTrendline=="")
            continue;

         if (StringSubstr(strTrendlineArray[i],0,1)=="0") {
            double dTrendlineCurrentPrice = ObjectGetValueByShift(strCurrentTrendline,0);  

            if (dTrendlineCurrentPrice<iClose(Symbol(),Period(),0)+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point)

            if (dTrendlineCurrentPrice>HC4+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point)                 

            if (dTrendlineCurrentPrice>HC5+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point) 

            if (dTrendlineCurrentPrice>HC6+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point)                                     

            if (dTrendlineCurrentPrice>HC7+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point) 

            if (dTrendlineCurrentPrice>HC8+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point) 

            if (dTrendlineCurrentPrice>HC9+iPd*Point &&  
                  dTrendlineCurrentPrice>dLastPrice+iPd*Point)   

               {
                  StringReplace(strTrendLineName,"0"+strCurrentTrendline,"1"+strCurrentTrendline);

                   if (TradeEnabled)
                    { ticket = OrderSend(Symbol(),OP_BUY,Lots,Ask,iSp,Bid-iSl*Point,Ask+iTp*Point,strCurrentTrendline,MagicNumber,0,Aqua);
                    if ( MaxOrdersPerTrendline > 0)
                    for(n=0; n<MaxOrdersPerTrendline; n++)
                    ticket = OrderSend(Symbol(),OP_BUY,Lots,Ask*(n+1),iSp,Bid-iSl*Point,Ask+iTp*Point,strCurrentTrendline,0,0,Aqua);
                      if ( AddPosition && PositionStepNumber > 0 && PositionStepPoint > 0)
                      { for (j=0;j<PositionStepNumber;j++)
                         ticket = OrderSend(Symbol(),OP_BUYSTOP,Lots,Ask+iPsp*(j+1)*Point,iSp,Bid-(iSl-iPsp*(j+1))*Point,Ask+(iTp+iPsp*(j+1))*Point,strCurrentTrendline,0,0,Aqua);   
                      }   
                    }

                  if (AlertPopup) Alert(strCurrentTrendline," Breakout - UP ", Symbol(),"_",PeriodToString(Period())," ",DoubleToStr(iClose(Symbol(),Period(),0),Digits));
                  if (AlertPopup&&Sound) PlaySound("alert.wav");
                  if (MobileAlert) SendNotification(strCurrentTrendline+" Breakout " +Symbol()+" UP " + PeriodToString(Period()) + " " + DoubleToStr(iClose(Symbol(),Period(),0),Digits) );
                  if (EmailAlert) SendMail(strCurrentTrendline+" Breakout " +Symbol()+ " UP " + " " + PeriodToString(Period()) + " " + DoubleToStr(iClose(Symbol(),Period(),0),Digits),
                     Symbol()+ "_" + PeriodToString(Period()) + ": UP" + "\nCurrent Price: " + DoubleToStr(iClose(Symbol(),Period(),0),Digits) 
                     + "\nTrendline Price: " + DoubleToStr(dTrendlineCurrentPrice,Digits)  
                     + "\nServer Time: " + TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS));

               }

            if (dTrendlineCurrentPrice>iClose(Symbol(),Period(),0)-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point)

             if (dTrendlineCurrentPrice<HC4-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point)     

             if (dTrendlineCurrentPrice<HC5-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point) 

             if (dTrendlineCurrentPrice<HC6-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point)  

             if (dTrendlineCurrentPrice<HC7-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point)  

             if (dTrendlineCurrentPrice<HC8-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point) 

             if (dTrendlineCurrentPrice<HC9-iPd*Point &&
                  dTrendlineCurrentPrice<dLastPrice-iPd*Point)  

               {
                  StringReplace(strTrendLineName,"0"+strCurrentTrendline,"1"+strCurrentTrendline);

                  

Показано первые 50% кода (символов: 15577)