Tutte le domande dei nuovi arrivati su MQL4 e MQL5, aiuto e discussione su algoritmi e codici - pagina 1546

[SGarnov]

MakarFX:
Avete un EA che supporta gli ordini inseriti manualmente?

Sì. Piazzo gli ordini pendenti manualmente o semplicemente apro un trade, e poi l'Expert Advisor funziona.

[Galim_V]

SGarnov:
Ho provato a inserirlo, ma non si compila. L'intero codice, se necessario, metterò uno screenshot della compilazione. Penso che ci possa essere un altro problema, il mio TP è impostato in relazione allo STOP da un coefficiente (variabile esterna), forse può essere cambiato in impostazione manuale e sarà più facile per EA aggiungere?

La funzione

  double GetPointLastLoss(){
            datetime t=0;
            double result=0,p=0,tp=0;
            int i=OrdersHistoryTotal(),magic=0;
         for(int pos=0; pos<i; pos++)
         {
          if(OrderSelect(pos, SELECT_BY_POS, MODE_HISTORY))
         {
          if((OrderSymbol()==_Symbol) && (OrderMagicNumber()==magic))
           {
            if(OrderType()==OP_BUY || OrderType()==OP_SELL)
              {
               if(t<OrderCloseTime())
                 {t=OrderCloseTime(); p=OrderProfit(); tp=OrderType();
                  if(tp==OP_BUY&&p<0)
                    {
                     result=OrderOpenPrice()-OrderClosePrice();
                    } else {result=0;}
                  if(tp==OP_SELL&&p<0)
                    {
                     result=OrderClosePrice()-OrderOpenPrice();
                    } else {result=0;}
                 }
              }
           }
        }
     }
   return(result);
  }

dall'ambito globale. magic=0 per la compilazione.

magic=0

[SGarnov]

Galim_V:

La funzione

dall'ambito globale, rimuovere magic=0 per la compilazione.

Rimosso, nessun errore di compilazione, solo 1 avvertimento appare nella terza linea di funzione nella colonna tp=0 con udienza sulla variabile esterna int tp=0. Non capisco bene cosa non piaccia al programmatore. Tutto il codice allegato, se non è difficile da correggere, la verità è da qualche parte vicino.

input int takeProfitC = 2;// Коэффициент Take Profit
input int stop_loss = 100;//Уровень Stop Loss
input int stop_count = 2;//Количество Stop Loss
input double lots = 0.01;//Лоты
input int slippage = 30;//Проскальзывание
input int datePeriod = 48;// Время удержания при SL


int tp = 0;
int tpc = 0;
double tp_price_old = 777;
int stopLossCount = 0;
datetime startOrder = 0;
int pending_ticket = 0;
int lastMagic = 0;
bool isLimitOn = false;
bool isStart = True;
datetime startTime = 0;
bool isFinal = false;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit() {
//
   //OrderSend(Symbol(), OP_SELL, 0.01, 0.76228, 300, 0, 0);
   //OrderSend(Symbol(), OP_SELLSTOP, 0.01, 0.77057, 300, 0, 0);
   //OrderSend(Symbol(), OP_BUYSTOP, 0.01, 0.76928, 300, 0, 0);
   tp = stop_loss * takeProfitC;
//---
   return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason) {
//--

}
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick() {
//---
//Comment("StopCount: " + stopLossCount + "\n" + "CurrentStopC: " + stop_count);
   for(int i = OrdersTotal() - 1; i >= 0; i--) {
      if(OrderSelect(i, SELECT_BY_POS)) {
         if(OrderSymbol() == Symbol()) {
         int magic = OrderMagicNumber();
            if((OrderType() == OP_BUY || OrderType() == OP_SELL) && OrderOpenTime()) {
               int ticket = OrderTicket();
               if(!findPending(ticket)) {
                  if(OrderSelect(ticket, SELECT_BY_TICKET) && (((TimeCurrent() <= (startTime + datePeriod * 3600))) || isStart)) {
                     if(OrderType() == OP_BUY) {
                        double sl_price = NormalizeDouble(OrderOpenPrice() - Point() * MathMax(stop_loss, MarketInfo(Symbol(), MODE_STOPLEVEL)), Digits);
                        double tp_price = NormalizeDouble((OrderOpenPrice() + Point() * (tp)), Digits);
                        if(!OrderModify(OrderTicket(), OrderOpenPrice(), sl_price, tp_price, OrderExpiration())) {
                           Print("Ошибка модификации ордера:", GetLastError());
                        } else {
                           if(stopLossCount < stop_count && tp_price != tp_price_old){
                              pending_ticket = OrderSend(Symbol(), OP_SELLSTOP, lots, sl_price, slippage, 0, 0, NULL, OrderTicket());
                              lastMagic = ticket;
                              isLimitOn = true;
                              if(isStart){
                                 startTime = TimeCurrent();
                                 isStart = false;
                              }
                              tp_price_old = tp_price;
                              stopLossCount++;                         
                           }
                        }
                     } else if(OrderType() == OP_SELL) {
                        double sl_price = NormalizeDouble(OrderOpenPrice() + Point() * MathMax(stop_loss, MarketInfo(Symbol(), MODE_STOPLEVEL)), Digits);
                        double tp_price = NormalizeDouble((OrderOpenPrice() - Point() * (tp)), Digits);
                        if(!OrderModify(OrderTicket(), OrderOpenPrice(), sl_price, tp_price, OrderExpiration())) {
                           Print("Ошибка модификации ордера:", GetLastError());
                        } else {
                          if(stopLossCount < stop_count && tp_price != tp_price_old){
                              pending_ticket = OrderSend(Symbol(), OP_BUYSTOP, lots, sl_price, slippage, 0, 0, NULL, OrderTicket());
                              lastMagic = ticket;
                              isLimitOn = true;
                              if(isStart){
                                 startTime = TimeCurrent();
                                 isStart = false;
                              }
                              stopLossCount++;
                              tp_price_old = tp_price;  
                          }
                        }
                     }
                  }
               }
         }
         if(startTime > 0 && (TimeCurrent() >= (startTime + datePeriod * 3600))){
            deletePending(lastMagic);
            isFinal = true;
         }
            
         if(lastMagic != 0 && !IsSell() && !IsBuy() && magic == lastMagic) {
            tpc = 0;
            startTime = 0;
            stopLossCount = 0;
            deletePending(lastMagic);
            isStart = true;
            }
         }
     }
   }
   if((startTime > 0 || isFinal) && !IsSell() && !IsBuy()){
            tpc = 0;
            startTime = 0;
            stopLossCount = 0;
            isStart = true;
            isFinal = false;
   }
}
//+----------------------------------------------------------------------------+
//|  Возвращает пункты убытка последнего закрытого ордера в пунктах            |
//+----------------------------------------------------------------------------+
double GetPointLastLoss(){
            datetime t=0;
            double result=0,p=0,tp=0;
            int i=OrdersHistoryTotal(),magic=0;
         for(int pos=0; pos<i; pos++)
         {
          if(OrderSelect(pos, SELECT_BY_POS, MODE_HISTORY))
         {
          if((OrderSymbol()==_Symbol) && (OrderMagicNumber()==magic))
           {
            if(OrderType()==OP_BUY || OrderType()==OP_SELL)
              {
               if(t<OrderCloseTime())
                 {t=OrderCloseTime(); p=OrderProfit(); tp=OrderType();
                  if(tp==OP_BUY&&p<0)
                    {
                     result=OrderOpenPrice()-OrderClosePrice();
                    } else {result=0;}
                  if(tp==OP_SELL&&p<0)
                    {
                     result=OrderClosePrice()-OrderOpenPrice();
                    } else {result=0;}
                 }
              }
           }
        }
     }
   return(result);
  }                                                                
//+------------------------------------------------------------------+
bool findPending(int ticket) {
   for(int i = OrdersTotal() - 1; i >= 0; i--) {
      if(OrderSelect(i, SELECT_BY_POS)) {
         if(OrderMagicNumber() == ticket) {
            return true;
         }
      }
   }

   for(int i = OrdersHistoryTotal() - 1; i >= 0; i--) {
      if(OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) {
         if(OrderMagicNumber() == ticket) {
            return true;
         }
      }
   }
   return false;
}
//+------------------------------------------------------------------+
void deletePending(int magic) {
   for(int i = OrdersTotal() - 1; i >= 0; i--) {
      if(OrderSelect(i, SELECT_BY_POS)) {
         if(OrderMagicNumber() == magic) {
            if(OrderType() != OP_BUY && OrderType() != OP_SELL) {
               if(!OrderDelete(OrderTicket())) {
                  Print("Ошибка удаления отложеного одера: ", GetLastError());
               }
            }
            break;
         }
      }
   }
}
//+------------------------------------------------------------------+
bool IsSell()
{
   int count = 0;
   for (int trade = OrdersTotal () -1; trade >= 0; trade--)
   {
      if (OrderSelect (trade, SELECT_BY_POS, MODE_TRADES) 
          && OrderSymbol() == Symbol()
          && OrderType() == OP_SELL)
      {
         count++;
      }
      
   }
   if (count == 0)
      return false;
   else
      return true;
}
//+------------------------------------------------------------------+
bool IsBuy()
{
   int count = 0;
   for (int trade = OrdersTotal () -1; trade >= 0; trade--)
   {
      if (OrderSelect (trade, SELECT_BY_POS, MODE_TRADES) 
          && OrderSymbol() == Symbol()
          && OrderType() == OP_BUY)
      {
         count++;
      }
      
   }
   if (count == 0)
      return false;
   else
      return true;
}

[Tretyakov Rostyslav]

SGarnov:

Rimosso, nessun errore di compilazione, solo 1 avvertimento appare nella terza linea della funzione nella colonna tp=0 con udienza sulla variabile esterna int tp=0. Non capisco bene cosa non piaccia al programmatore. Tutto il codice allegato, se non sei difficile da correggere, la verità è da qualche parte nelle vicinanze.

Si presenta così

//+------------------------------------------------------------------+
//|                                                   SGarnov.v2.mq4 |
//|                                           Copyright 2020, DrMak. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2020, DrMak."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
//--- input parameters
input int      T_Profit = 2;     // Коэффициент Take Profit
input int      S_Loss   = 100;   // Уровень Stop Loss
input double   O_Lots   = 0.01;  //Лоты
input int      Input4;
input int      Input5;
input int      Input6;

double sl_price,tp_price,t_profit,s_loss;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//--- 
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
   t_profit = S_Loss*T_Profit;
   s_loss   = MathMax(S_Loss, MarketInfo(Symbol(), MODE_STOPLEVEL));
   // Проверяем наличие ордеров BUY
   if(CountOrders(_Symbol, 0)>0)
     {
      // Проверяем последний закрытый ордер SELL на наличие убытка в пунктах
      if(GetPointLastLoss(1)>0)
        {
         // Если убыток есть, то добавляем пункты убытка
         sl_price = NormalizeDouble(Point() * s_loss, Digits);
         tp_price = NormalizeDouble(GetPointLastLoss(1)+Point() * t_profit, Digits);
         ModifyOrder(_Symbol, sl_price, tp_price);
        }
      else
        {
         // Если убытка нет
         sl_price = NormalizeDouble(Point() * s_loss, Digits);
         tp_price = NormalizeDouble(Point() * t_profit, Digits);
         ModifyOrder(_Symbol, sl_price, tp_price);
        }
     }
   // Проверяем наличие ордеров SELL
   if(CountOrders(_Symbol, 1)>0)
     {
      // Проверяем последний закрытый ордер BUY на наличие убытка в пунктах
      if(GetPointLastLoss(0)>0)
        {
         // Если убыток есть, то добавляем пункты убытка
         sl_price = NormalizeDouble(Point() * s_loss, Digits);
         tp_price = NormalizeDouble(GetPointLastLoss(0)+Point() * t_profit, Digits);
         ModifyOrder(_Symbol, sl_price, tp_price);
        }
      else
        {
         // Если убытка нет
         sl_price = NormalizeDouble(Point() * s_loss, Digits);
         tp_price = NormalizeDouble(Point() * t_profit, Digits);
         ModifyOrder(_Symbol, sl_price, tp_price);
        }
     }
  }
//+--------------------------------------------------------------------------------------------------------------------+
//| Подсчет ордеров по типу                                                                                            |
//+--------------------------------------------------------------------------------------------------------------------+
//|  0 - ордера типа BUY          1 - ордера типа SELL                                                                 |
//|  2 - ордера типа BUYLIMIT     3 - ордера типа SELLLIMIT                                                            |
//|  4 - ордера типа BUYSTOP      5 - ордера типа SELLSTOP                                                             |
//|  6 - ордера типа Balance     -1 - Все типы ордеров                                                                 |
//+--------------------------------------------------------------------------------------------------------------------+
int CountOrders(string symb="", int or_ty=-1) 
  {
   int cnt=0;
   if(symb=="0") symb=_Symbol;
   for(int pos=OrdersTotal()-1;pos>=0;pos--)
     {
      if(OrderSelect(pos,SELECT_BY_POS)==true)
        {
         if(OrderSymbol()==symb || symb=="")
           {
            if(or_ty<0 || or_ty==OrderType()) cnt++;
           }
        }
     }
   return(cnt);
  }
//+----------------------------------------------------------------------------+
//| Модификация ордера                                                         |
//+----------------------------------------------------------------------------+
//|    sl - ценовой уровень стопа                                              |
//|    tp - ценовой уровень тейка                                              |
//+----------------------------------------------------------------------------+
void ModifyOrder(string symb="", double sl=0, double tp=0)
  {
   if(symb=="0") symb=_Symbol;
   for(int pos=OrdersTotal()-1;pos>=0;pos--)
     {
      if(OrderSelect(pos,SELECT_BY_POS)==true)
        {
         if(OrderSymbol()==symb || symb=="")
           {
            if(OrderStopLoss()==0)
              {
               if(OrderType()==OP_BUY)
                 {
                  if(OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice()-sl_price, OrderOpenPrice()+tp_price, OrderExpiration()))
                    {Print("Ордер модифицирован");}
                  else
                    {Print("Ошибка модификации ордера:", GetLastError());}
                 }
               if(OrderType()==OP_SELL)
                 {
                  if(OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice()+sl_price, OrderOpenPrice()-tp_price, OrderExpiration()))
                    {Print("Ордер модифицирован");}
                  else
                    {Print("Ошибка модификации ордера:", GetLastError());}
                 }
              }
           }
        }
     }
  }
//+----------------------------------------------------------------------------+
//|  Возвращает пункты убытка последнего закрытого ордера в пунктах            |
//|  0 - последний ордер BUY                                                   |
//|  1 - последний ордер SELL                                                  |
//+----------------------------------------------------------------------------+
double GetPointLastLoss( int or_ty=-1)
  {
   datetime t=0;
   double result=0,p=0;
   int i=OrdersHistoryTotal();
   for(int pos=0; pos<i; pos++)
     {
      if(OrderSelect(pos, SELECT_BY_POS, MODE_HISTORY))
        {
         if((OrderSymbol()==_Symbol))
           {
            if(OrderType()==OP_BUY || OrderType()==OP_SELL)
              {
               if(t<OrderCloseTime())
                 {t=OrderCloseTime(); p=OrderProfit(); or_ty=OrderType();
                  if(or_ty==OP_BUY&&p<0)
                    {
                     result=OrderOpenPrice()-OrderClosePrice();
                    } else {result=0;}
                  if(or_ty==OP_SELL&&p<0)
                    {
                     result=OrderClosePrice()-OrderOpenPrice();
                    } else {result=0;}
                 }
              }
           }
        }
     }
   return(result);
  }
//+------------------------------------------------------------------+

Non hai affatto bisogno della magia nel tuo caso

[SGarnov]

MakarFX:

E' più o meno così.

Nel vostro caso la magia non è affatto necessaria.

Grazie, lo testerò e riferirò. Spero che funzioni come il mio, ma che aggiunga uno stop (se viene attivato) alla nuova ripresa.

A cosa servono i parametri esterni Input4; 5; 6?

[Tretyakov Rostyslav]

SGarnov:
Grazie, lo testerò e riferirò. Spero che funzioni come il mio, ma che aggiunga uno stop (se è scattato) a una nuova ripresa.

Qui c'è solo una modifica. Non c'è cancellazione o inversione di ordine.

Se mi descrivi cosa dovrebbe fare l'EA, cercherò di aiutarti.

[Tretyakov Rostyslav]

SGarnov:

A cosa servono i parametri esterni Input4; 5; 6?

Ho dimenticato di cancellare

[SGarnov]

MakarFX:

Se mi descrivi cosa dovrebbe fare l'EA, cercherò di aiutarti.

Piazzo un ordine pendente di acquisto - l'EA sta lavorando - l'ordine pendente scatta - l'EA "vede" questo e piazza uno stop loss su questo ordine aperto:

stop loss (il parametro esterno è impostato nelle impostazioni);

Take Profit(il parametro esterno è impostato nelle impostazioni con un rapporto di per esempio 1 a 2);

ordine di vendita in sospeso a livello di stop loss.

Possibili scenari.

Variante 1.

A) Se il prezzo raggiunge Takei - l'Expert Advisor rimuove lo Stop Loss e un ordine Sell in sospeso;

Variante 2.

B) Se lo stop loss è scattato e l'EA è "andato in storia", allora:

Viene aperto un ordine di vendita e l'Expert Advisor riposiziona questo ordine:

stop loss (il parametro esterno è impostato nelle impostazioni)

Take Profit + uno Stop Loss attivato dalla storia;

un ordine di acquisto pendente al livello di stop loss.

Il prezzo raggiunge il take - l'Expert Advisor rimuove lo stop loss e l'ordine pendente di acquisto.

E viceversa, se il lavoro inizia con un ordine di vendita pendente.

E così l'advisor lavora fino a quando non ferma il suo lavoro con il parametro esterno Stop Loss numero (nel mio caso è 2, significa che la variante 2 sarà ripetuta 3 volte e l'advisor smetterà di lavorare in futuro e cancellerà tutti gli ordini pendenti, il primo stop non è preso in considerazione).

Se takei non viene raggiunto e la variante 2 viene ripetuta, allora 2 stop vengono aggiunti a takei e così via, dipende dal parametro esterno impostato"Stop Loss count".

Il codice, che ho messo su funziona come dovrebbe, tranne il problema, che ho descritto (non vede nella storia di 1 stop o 2 stop, che dovrebbe aggiungere alla presa).

Come questo.

[Tretyakov Rostyslav]

SGarnov:

Ho messo un ordine di acquisto pendente - l'EA sta lavorando - l'ordine pendente scatta - l'EA "vede" questo e piazza uno stop loss su questo ordine aperto:

stop loss (il parametro esterno è impostato nelle impostazioni);

Take Profit(il parametro esterno è impostato nelle impostazioni con un rapporto di per esempio 1 a 2);

ordine di vendita in sospeso a livello di stop loss.

Possibili scenari.

Variante 1.

A) Se il prezzo raggiunge Takei - l'Expert Advisor rimuove lo Stop Loss e un ordine Sell in sospeso;

Variante 2.

B) Se lo stop loss è scattato e l'EA è "andato in storia", allora:

Viene aperto un ordine di vendita e l'Expert Advisor riposiziona questo ordine:

stop loss (il parametro esterno è impostato nelle impostazioni)

Take Profit + uno Stop Loss attivato dalla storia;

un ordine di acquisto pendente al livello di stop loss.

Il prezzo raggiunge il take - l'Expert Advisor rimuove lo stop loss e l'ordine di acquisto pendente.

E viceversa, se il lavoro inizia con un ordine di vendita pendente.

E così l'advisor lavora fino a quando non ferma il suo lavoro con il parametro esterno Stop Loss numero (nel mio caso è 2, significa che la variante 2 sarà ripetuta 3 volte e l'advisor smetterà di lavorare in futuro e cancellerà tutti gli ordini pendenti, il primo stop non è preso in considerazione).

Se takei non viene raggiunto e la variante 2 viene ripetuta, allora 2 stop vengono aggiunti a takei e così via, dipende dal parametro esterno impostato"Stop Loss count".

Il codice, che ho messo su funziona come dovrebbe, tranne il problema, che ho descritto (non vede nella storia di 1 stop o 2 stop, che dovrebbe aggiungere alla presa).

Funziona così.

"Numero di stop loss" - in una fila o per il giorno corrente?

[SGarnov]

MakarFX:

"Numero di stop loss" - in una fila o per il giorno corrente?

Il numero di stop di fila su una coppia di valute.

Per analizzare la storia, l'Expert Advisor inizialmente etichetta gli ordini con i loro ID, ma non li trova nella storia, ho pensato che OrderMagikNumber() li cercherà. Forse a causa del fatto che nella storia si ferma da diverse coppie di valute l'EA smette di "vederle"?

mettere di nuovo la fonte? Tutto quello che deve fare è correggere "cercare i trade stop dalla storia e farli aggiungere alla nuova presa piazzata".