Altarius RSI Stohastic: Un Sistema di Trading per MetaTrader 5

//+------------------------------------------------------------------+
//| Calcolo della dimensione ottimale del lotto |
//+------------------------------------------------------------------+
double LotsOptimized()
  {
   double lot=Lots;
   int    losses=0;                  // numero di operazioni in perdita senza una pausa
//--- selezione della dimensione del lotto
   lot=NormalizeDouble(m_account.FreeMargin()*MaximumRisk/1000.0,2);
//--- calcolo del numero di operazioni in perdita senza una pausa
   if(DecreaseFactor>0)
     {
      //--- richiesta della cronologia delle operazioni
      HistorySelect(TimeCurrent()-86400,TimeCurrent()+86400);
      //---
      uint     total=HistoryDealsTotal();
      //--- per tutte le operazioni
      for(uint i=0;i<total;i++)
        {
         if(!m_deal.SelectByIndex(i))
           {
            Print("Errore nella cronologia!");
            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);
     }
//--- ritorna la dimensione del lotto
   if(lot<0.1)
      lot=0.1;
   return(lot);
  }