Librerías: BestInterval - página 29

[Dmitrii Verevkin]

¡Hola!

Aparece un error durante la compilación, ¿a alguien le ha pasado?

He buscado en el foro y creo que no se ha comentado.

[fxsaber]

Dmitrii Verevkin #:

aparece un error durante la compilación.

Añade estas líneas a Deal.mqh.

#include "Deal_Base.mqh"

struct DEAL : public DEAL_BASE
{
  int Index;

  void ToNull( DEAL &Deals[] ) const
  {
  #ifdef __MQL5__
    Deals[this.Index].DEAL_BASE::ToNull();
  #else // __MQL5__ - https://www.mql5.com/ru/forum/322209#comment_13314616
    Deals[this.Index].ToNull();
  #endif // __MQL5__

    return;
  }
  
  void operator =( const DEAL_BASE &bDeal )
  {
    /*esto.*/ DEAL_BASE::operator=(bDeal); // https://www.mql5.com/ru/forum/1111/page3368#comment_48437633
    
    return;
  }  
};

[Dmitrii Verevkin]

Dmitrii Verevkin #:

¡Hola!

Me da un error al compilar, ¿a alguien le ha pasado?

He buscado en el foro, creo que no se ha comentado.

Me ha servido de ayuda.

Gracias.

[1005829945]

Por favor, ayuda ¿Cómo puedo resolver este problema? Hay errores después de la compilación.

[fxsaber]

1005829945 #:
Por favor, ayuda ¿Cómo puedo resolver este problema? Hay errores después de la compilación.

Falta la función OnTick.

[fxsaber]

https://www.mql5.com/ru/blogs/post/771302

[fxsaber]

fxsaber #:
https://www.mql5.com/ru/blogs/post/771302

Los cálculos se han acelerado considerablemente.

#include <fxsaber\Benchmark\Benchmark.mqh> // https://www.mql5.com/es/code/31279

#define  ORDER_COMMISSION 0
#include <fxsaber\Virtual\Virtual.mqh> // https://www.mql5.com/es/code/22577
#include <fxsaber\BestInterval\BestInterval.mqh> // https://www.mql5.com/es/code/22710

// Script de pruebas de rendimiento
void OnStart()
{
  if (VIRTUAL::SelectByHandle(VIRTUAL::Create("BestInterval.mqh.virt"))) // https://c.mql5.com/3/492/BestInterval_mqh.zip
  {
    BESTINTERVAL_INPUT Inputs;

    Inputs.AmountDeleteIntervals = 5;
    Inputs.MinPF = 1.0;
    Inputs.OnlyDelete = false;
    Inputs.Method = METHOD_WEEK;
    
    Inputs.Length = 0.8;
    Inputs.Amount = 10;
            
    BESTINTERVAL BestInterval;
    
    _B(BestInterval.FullCalculate(Inputs), 1);
    Print(BestInterval.ToStringConst());
  }  
}

Así era.

Alert: Bench_Stack = 0, 1 <= Time[Test6.mq5 174 in OnStart: BestInterval.FullCalculate(Inputs)] = 6724116 mcs.

Ahora.

Alert: Bench_Stack = 0, 1 <= Time[Test6.mq5 174 in OnStart: BestInterval.FullCalculate(Inputs)] = 394778 mcs.

La optimización se acelera varias veces.

[hini]

¿Qué archivos se han actualizado?

[fxsaber]

hini #:
¿Qué archivos se han actualizado?

Holiday.mqh
Deal_Base.mqh
Deal.mqh
Interval.mqh
BestInterval.mqh

[HimOrik]

fxsaber #:

Error de compilación.

Asesor

 #include <MT4Orders.mqh> // https://www.mql5.com/es/code/16006
 
 //#include <fxsaber\Virtual\Virtual.mqh> // https://www.mql5.com/es/code/22577

#define  BESTINTERVAL_ONTESTER // Criterio de optimización: el beneficio del mejor intervalo.
#include <fxsaber\BestInterval\BestInterval.mqh> // Cálculo del mejor intervalo de negociación

 //#include <..\Experts\Examples\MACD\MACD Sample.mq5> // Cualquier asesor
long tiket = -1;

void OnTick()
{    
MqlTick t;

if(SymbolInfoTick(_Symbol, t))
    {
    if(tiket < 0)
        {
        double lot = ::NormalizeDouble(SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_MIN), 2);
        double price = ::NormalizeDouble(t.ask, _Digits); 
              
        ResetLastError();
        
        tiket = OrderSend(_Symbol, 0, lot, price, 0, 0, 0, "666", 666); 
        
        if(tiket > -1)
           {
            Sleep(1000);
            return;
           }
        else
           {
           Print("\nopenSL:  Error en la solicitud de operación BUY  Error ", (string)_LastError);
           }        
        }
    else
        {
        
        for(int i = OrdersTotal() - 1; (bool)i--; )    
           {
            if(OrderSelect(i, SELECT_BY_POS) && OrderMagicNumber() == 666 && OrderType() == 0)
                {

                ResetLastError();
                
                if(OrderClose(OrderTicket(), OrderLots(), ::NormalizeDouble(t.bid, _Digits), 0))
                    ExpertRemove();
                
                else
                    {
                    Print("\ncloseB: Error en la solicitud de operación de cierre de compra. Error", (string)_LastError);
                    }                    

                } 
           }            
        }
    }
}  

No sé cómo reducirlo todo, así que queda un poco recargado

Gracias.