Расчет лота от свободной маржи в MQL4: Скрипт с автоокруглением

//+------------------------------------------------------------------+
//|                                             LotByFreeMargin.mq4  |
//|                                                   Senior Quant   |
//|                                             https://finfluct.com |
//+------------------------------------------------------------------+
#property copyright "Senior Quant"
#property link      "https://finfluct.com"
#property version   "1.00"
#property strict
#property show_inputs

//--- input parameters
input double RiskPercent = 2.0; // Процент риска от свободной маржи (%)

//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
{
   // Проверка корректности входных данных
   if(RiskPercent <= 0 || RiskPercent > 100)
   {
      Alert("Ошибка: Процент риска должен быть в диапазоне от 0 до 100%.");
      return;
   }

   string symbol = Symbol();
   double freeMargin = AccountFreeMargin();
   
   // Получаем стоимость маржи для 1 лота
   double marginRequired = MarketInfo(symbol, MODE_MARGINREQUIRED);
   
   if(marginRequired <= 0)
   {
      Alert("Ошибка: Не удалось получить размер маржи для 1 лота. Проверьте подключение к серверу.");
      return;
   }

   // Расчет суммы риска в валюте депозита
   double riskAmount = freeMargin * (RiskPercent / 100.0);

   // Предварительный расчет лота
   double calculatedLot = riskAmount / marginRequired;

   // Округление лота согласно спецификации контракта
   double lotStep = MarketInfo(symbol, MODE_LOTSTEP);
   double minLot = MarketInfo(symbol, MODE_MINLOT);
   double maxLot = MarketInfo(symbol, MODE_MAXLOT);

   if(lotStep <= 0)
   {
      Alert("Ошибка: Шаг лота равен нулю.");
      return;
   }

   // Округляем до ближайшего шага лота вниз
   double finalLot = MathFloor(calculatedLot / lotStep) * lotStep;

   // Проверка на минимальный и максимальный лот
   if(finalLot < minLot)
   {
      Print("Предупреждение: Рассчитанный лот (", DoubleToString(finalLot, 2), ") меньше минимально допустимого. Установлен минимальный лот: ", DoubleToString(minLot, 2));
      finalLot = minLot;
   }
   if(finalLot > maxLot)
   {
      Print("Предупреждение: Рассчитанный лот (", DoubleToString(finalLot, 2), ") превышает максимально допустимый. Установлен максимальный лот: ", DoubleToString(maxLot, 2));
      finalLot = maxLot;
   }

   // Проверка, хватает ли свободной маржи для открытия такого лота
   double requiredMarginForFinalLot = finalLot * marginRequired;
   if(requiredMarginForFinalLot > freeMargin)
   {
      Alert("Ошибка: Недостаточно свободной маржи для открытия лота ", DoubleToString(finalLot, 2), ". Требуется: ", DoubleToString(requiredMarginForFinalLot, 2), ", Доступно: ", DoubleToString(freeMargin, 2));
      return;
   }

   // Вывод результата
   string message = "Расчет лота завершен успешно!\n" +
                    "Свободная маржа: " + DoubleToString(freeMargin, 2) + " " + AccountCurrency() + "\n" +
                    "Риск (" + DoubleToString(RiskPercent, 2) + "%): " + DoubleToString(riskAmount, 2) + " " + AccountCurrency() + "\n" +
                    "Рекомендуемый лот: " + DoubleToString(finalLot, 2);
   
   Alert(message);
   Print(message);
}