Cualquier pregunta de los recién llegados sobre MQL4 y MQL5, ayuda y discusión sobre algoritmos y códigos

SGarnov 2021.07.29 08:26 #15451

MakarFX:
¿Tiene un EA que admita órdenes colocadas manualmente?

Sí. Coloco las órdenes pendientes manualmente o simplemente abro una operación, y entonces el Asesor Experto funciona.

Galim_V 2021.07.29 08:55 #15452

SGarnov:
Intenté insertarlo, pero no compila. Todo el código, si es necesario, pondré una captura de pantalla de la compilación. Creo que puede haber otro problema, mi TP está fijado en relación con el STOP por el coeficiente (variable externa), tal vez se puede cambiar a la configuración manual y será más fácil para EA para agregar?

La función

  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);
  }

del ámbito global. magic=0 para la compilación.

magic=0

SGarnov 2021.07.29 09:15 #15453

Galim_V:

La función

del ámbito global, eliminar magic=0 para la compilación.

Eliminado, no hay errores de compilación, sólo aparece 1 advertencia en la tercera línea de la función en la columna tp=0 con la vista en la variable externa int tp=0. No entiendo muy bien qué es lo que no le gusta al programador. Todo el código adjunto, si no es difícil de corregir, la verdad está en algún lugar cerca.

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;
}

Preguntas de los principiantes Errores, fallos, preguntas Discusión sobre el artículo

Tretyakov Rostyslav 2021.07.29 09:30 #15454

SGarnov:

Eliminado, no hay errores de compilación, sólo aparece 1 advertencia en la tercera línea de la función en la columna tp=0 con la vista en la variable externa int tp=0. No entiendo muy bien qué es lo que no le gusta al programador. Todo el código adjunto, si no es difícil de corregir, la verdad está en algún lugar cercano.

Se ve así

//+------------------------------------------------------------------+
//|                                                   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);
  }
//+------------------------------------------------------------------+

En tu caso no necesitas magia en absoluto

SGarnov 2021.07.29 09:55 #15455

MakarFX:

Así es.

En su caso la magia no es necesaria en absoluto.

Gracias, lo probaré, informaré al respecto. Espero que funcione igual que el mío, pero añade un tope (si se activa) a la nueva toma.

¿Para qué se necesitan los parámetros externos Input4; 5; 6?

StepMAExpert_EAs Discusión sobre el artículo De la teoría a

Tretyakov Rostyslav 2021.07.29 09:58 #15456

SGarnov:
Gracias, lo probaré e informaré. Espero que funcione igual que el mío, pero añade una parada (si se dispara) a una nueva toma.

Aquí sólo hay modificaciones. No hay eliminación ni anulación de pedidos.

Si describes lo que debe hacer el EA, intentaré ayudarte.

Tretyakov Rostyslav 2021.07.29 10:14 #15457

SGarnov:

¿Para qué se necesitan los parámetros externos Input4; 5; 6?

Me olvidé de borrar

SGarnov 2021.07.29 10:52 #15458

MakarFX:

Si describes lo que debe hacer el EA, intentaré ayudarte.

Coloco una orden pendiente de compra - el EA está trabajando - la orden pendiente se dispara - el EA "ve" esto y coloca un stop loss en esta orden abierta:

stop loss (el parámetro externo se establece en los ajustes);

Toma de beneficios(el parámetro externo se establece en los ajustes utilizando la proporción de, por ejemplo, 1 a 2);

orden de venta pendiente en el nivel de stop loss.

Posibles escenarios.

Variante 1.

A) Si el precio llega a Takei - el Asesor Experto elimina el Stop Loss y una orden de venta pendiente;

Variante 2.

B) Si el stop loss se activa y el EA "pasó a la historia", entonces:

Se abre una orden de venta y el Asesor Experto reposiciona esta orden:

stop loss (el parámetro externo se establece en los ajustes);

Take Profit + un Stop Loss activado del historial;

una orden de compra pendiente en el nivel de stop loss.

El precio alcanza la toma - el Asesor Experto elimina el stop loss y la orden de compra pendiente.

Y viceversa, si el trabajo comienza con una orden de venta pendiente.

Y así el asesor trabaja hasta que detiene su trabajo con el parámetro externo número de Stop Loss (en mi caso es 2, significa que la variante 2 se repetirá 3 veces y el asesor dejará de trabajar en el futuro y eliminará todas las órdenes pendientes, el primer stop no se tiene en cuenta).

Si no se alcanza el takei y se repite la variante 2, entonces se añaden 2 stops al takei y así sucesivamente, depende del parámetro externo establecido"Recuento de Stop Loss".

El código, que puse funciona como debería, excepto el problema, que he descrito (no ve en la historia de 1 parada o 2 paradas, que debe añadir a la toma).

Así.

Escribir EAs gratuitos Redactaré un asesor de Preguntas sobre el MQL5

Tretyakov Rostyslav 2021.07.29 11:04 #15459

SGarnov:

Pongo una orden de compra pendiente - el EA está trabajando - la orden pendiente se dispara - el EA "ve" esto y coloca un stop loss en esta orden abierta:

stop loss (el parámetro externo se establece en los ajustes);

Toma de beneficios(el parámetro externo se establece en los ajustes utilizando la proporción de, por ejemplo, 1 a 2);

orden de venta pendiente en el nivel de stop loss.

Posibles escenarios.

Variante 1.

A) Si el precio llega a Takei - el Asesor Experto elimina el Stop Loss y una orden de venta pendiente;

Variante 2.

B) Si el stop loss se activa y el EA "pasó a la historia", entonces:

Se abre una orden de venta y el Asesor Experto reposiciona esta orden:

stop loss (el parámetro externo se establece en los ajustes)

Take Profit + un Stop Loss activado del historial;

una orden de compra pendiente en el nivel de stop loss.

El precio alcanza la toma - el Asesor Experto elimina el stop loss y la orden de compra pendiente.

Y viceversa, si el trabajo comienza con una orden de venta pendiente.

Y así el asesor trabaja hasta que detiene su trabajo con el parámetro externo número de Stop Loss (en mi caso es 2, significa que la variante 2 se repetirá 3 veces y el asesor dejará de trabajar en el futuro y eliminará todas las órdenes pendientes, el primer stop no se tiene en cuenta).

Si no se alcanza el takei y se repite la variante 2, entonces se añaden 2 stops al takei y así sucesivamente, depende del parámetro externo establecido"Recuento de Stop Loss".

El código, que puse funciona como debería, excepto el problema, que he descrito (no ve en la historia de 1 parada o 2 paradas, que debe añadir a la toma).

Es así.

"Número de Stop Loss": ¿en una fila o para el día actual?

SGarnov 2021.07.29 11:23 #15460

MakarFX:

"Número de Stop Loss": ¿en una fila o para el día actual?

El número de paradas seguidas en un par de divisas.

Para analizar el historial, el Asesor Experto inicialmente etiqueta las órdenes con sus IDs, pero no las encuentra en el historial, pensé que OrderMagikNumber() las buscaría. ¿Tal vez por el hecho de que en el historial se detiene de diferentes pares de divisas el EA deja de "verlos"?

¿volver a poner la fuente? Todo lo que tiene que hacer es corregir "buscar las operaciones de parada del historial y hacer que se añada a la toma recién colocada".

El mercado y los Preguntas de los principiantes Cierre de medios lotes.

Cualquier pregunta de los recién llegados sobre MQL4 y MQL5, ayuda y discusión sobre algoritmos y códigos - página 1546