Altarius RSI Estocástico: Sistema de Trading para MetaTrader 5

//+------------------------------------------------------------------+
//| Cálculo del tamaño de lote óptimo |
//+------------------------------------------------------------------+
double LotsOptimized()
  {
   double lot=Lots;
   int    losses=0;                  // número de operaciones perdedoras sin interrupción
//--- seleccionar tamaño de lote
   lot=NormalizeDouble(m_account.FreeMargin()*MaximumRisk/1000.0,2);
//--- calcular número de operaciones perdedoras sin interrupción
   if(DecreaseFactor>0)
     {
      //--- solicitar historial de operaciones
      HistorySelect(TimeCurrent()-86400,TimeCurrent()+86400);
      //---
      uint     total=HistoryDealsTotal();
      //--- para todas las operaciones
      for(uint i=0;i<total;i++)
        {
         if(!m_deal.SelectByIndex(i))
           {
            Print("¡Error en el historial!");
            break;
           }
         if(m_deal.Symbol()!=Symbol() || m_deal.Entry()!=DEAL_ENTRY_OUT)
            continue;
         //---
         if(m_deal.Profit()>0)
            break;
         if(m_deal.Profit()<0)
            losses++;
        }
      if(losses>1)
         lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);
     }
//--- devolver tamaño de lote
   if(lot<0.1)
      lot=0.1;
   return(lot);
  }