ПОМОГИТЕ,ПОЖАЛУЙСТА! ЛОТ НЕ ОПТИМИЗИРУЕТСЯ!

ЗДРАВСТВУЙТЕ ВСЕМ! СОВЕТНИК РАБОТАЕТ ХОРОШО,ТОЛЬКО ПРИ УБЬIТОЧНОЙ СДЕЛКЕ ЛОТ ДОЛЖЕН ОПТИМИЗИРОВАТСЯ,НО ЕТО НЕ ПОЛУЧАЕТСЯ.МОЖЕТ БЬIТЬ МНЕ НАДО ФАЙЛ НА ИСТОРИЮ ОКРЬIТЬ.ПОМОГИТЕ МНЕ РАЗОБРАТСЯ.ВОТ ВЬIСТАВЛЯЮ КУСОЧЕК КОДА.ЗАРАНЕЕ ВСЕМ СПАСИБО!
//| Calculate optimal lot size |
//+------------------------------------------------------------------+
double LotsOptimized()
{
double lot=Lots;
int orders=HistoryTotal(); // history orders total
int losses=0; // number of losses orders without a break
//---- select lot size
lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,1);
//---- calcuulate number of losses orders without a break
if(DecreaseFactor>0)
{
for(int i=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
//----
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);
}
//---- return lot size
if(lot<0.1) lot=0.1;
return(lot);