К выше изложенному сразу идея для сова. Индикатор, например, RSI показал перепроданность. Наш советник (опыт) или еще кто-то там решил открыть BUY по фэншую и выставить тоже по нему (фэншую) SL. А наш советник выставит на место предполагаемого SL отложку OP_BUYLIMIT. Акулы пришли за стопами, а мы им на хвост сели, с самого начала тренда и потихонечку пирамидимся с тралом. Если идея кого-то вдохновляет, могу составить подробное ТЗ.
Редактирован: 20 марта 2023, 14:16

Что по существу можете сказать (без демагогии)?

Здравствуйте. Это не то, что Вы… Это тест.
Я тоже рад новому общению. А вообще было конкретно сказано или спрошено: интересуют ли кого-то некоторые доработки советников АМ2.Если нет, то вопрос №2: Остались ли здесь спецы, которые готовы на безвозмездной основе помочь правильно написать код советника? Упор на слово ПОМОЧЬ. Хотя по себе знаю как тяжко в чужом коде разбираться бывает. Могу дать обширное ТЗ с картинками для понимания. Правда еще не знаю, начать попроще, чтоб шанс был, или сразу…
С уважением из Одессы.
Р.С. Это не демагогия. Мы тут на ней разговариваем.
Редактирован: 6 апреля 2022, 13:02

Попробуйте начать сами с начала. Задачи можно решать поэтапно, небольшими шагами. Будет возможность Вам здесь помогут. Не стоит замахиваться сразу по максимуму. Для начала нужно проверить саму стратегию, а за тем уже доводить код до ума.
С уважением.
P.S. Что касается доработок, можете выкладывать в своем блоге, желательно с описанием доработок и их необходимости. Наверное кто то воспользуется Вашими доработками.

Уважаемый SSG. Я сюда пришел учиться. На чужих примерах, то оно лучше, чем на пальцах. Я здесь новенький, хоть и зарегился лет 10 назад. Потерялся. Так что, пожалуйста, возьмите временное шефство над несмышленышем. В смысле иногда подсказывайте куда нос совать, а куда не стоит.
Беру чужие совы, изучаю. Если интересно, ищу слабые места и пытаюсь изменить.
Так потихонечку и обучаюсь.
Вот давиче Вы заказывали (если не ошибаюсь) советник HedgeMartinStop.
Изучил. Он сделан по стратегии защиты ценового канала. Правда, для упрощения расчетов, на отложках. С точки зрения математики советник с нулевым риском. Ну если, конечно, дедушка банкир. Сильно жрет ресурсы.
Здесь подгонешь, а сдвинешь время и… ку-ку. Дэпо маловато. Трамвай не въехал.
Смотрите, сразу, с наскока снизил нагрузку на свободные средства на четверть. Советник при очередном подходе открывает ордер лотом в 2 раза больше предыдущего. Если лот увеличивать таким образом, что бы открываемый лот создавал «перевес» лотов на этом уровне ровно в 2 раза больше, чем на противоположном. В результате: защита канала остается, лотность уменьшается, доходность (ну у меня в грубом тесте так) увеличивается.
Если бы я кодировал, как разговариваю, пил бы молоко вместо кофе. Переписал функцию расчета лота. Все по фэншую. А не работает. Тикеты не правильные. А советник вообще по ним нигде и никогда. Короче, функцию забанил. Она в конце сова осталась. Может кто глянет, где я пЛОХ. Пока просто изменил старую авторскую на 25% (автор, если догонит, фаберже оторвет). Сов работает, но не по фэншую. Надо спецу подсунуть. Дальше, по логике вещей, когда цена отходит от канала на расстояние его ширины, мы попадаем в безубыток. Где-то здесь надо обрубать хв… убыточные ордера против хода. Попробовал выставлять SL чуть больше 2-х ширин канала, так сов у меня (да кто бы сомневался) оттказался вообще ордера открывать. Попробую, чуть попозже ставить стопы на открытые ордера. А пока выложу измененный код.
Редактирован: 8 апреля 2022, 18:51

1.Пишите пожалуйста абзацами. Так легче воспринимается текст.
2.Не надо делать много отступлений (лирики, тем более принижаться).
3.Старайтесь писать короткими предложениями. Строго по сути.
4.Не надо разбирать все проблемы сразу. Начните с какой то одной и так шаг за
шагом.
5.Когда будете писать сообщение то обратите внимание: над окном есть слово «code» вот с помощью этой опции можно вставить код. Если не помещается весь
сразу разбейте на части, только не делите функции на части.
6.Дайте ссылку на оригинал советника.Кодов много все по названиям не упомнишь.

Да я понимаю, что это даже не на каждом тике, но поразмыслить есть над чем. Ну тем, кто пошире в плечах. Ноут у меня — пятилетний уСкоглазик неизвестного имени. При тесте по КТ успеваю на базар сходить. При прогоне по тикам выдает в журнал много красноты. Дефолтный советник тоже не отстает. По-видимому не умею работать с тестером.
Редактирован: 7 апреля 2022, 20:00

<соdе> сюда копируете код </соdе>
На дефолтный советник дайте просто ссылку.
Редактирован: 7 апреля 2022, 05:07

Как то Вы не верно скопировали.Все строки выравнялись по левому краю.Режет глаза и трудно воспринимается.
Что Вы хотели вычислять в функции Лот2. Опишите своими словами и скопируйте только эту функцию.

Согласитесь так читать код удобнее. Функция ОнТик этого советника:

//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double atr=iATR(NULL,0,ATR,0);

   if(AllProfit()>Profit || AllProfit()<-Loss)
     {
      CloseAll();
      DelOrder();
     }

   if(CountTrades()<1 && atr>Level)
     {
      if(CountOrders(4)<1)
        {
         PutOrder(4,Bid+Delta*_Point);
         b=NormalizeDouble(Bid+Delta*_Point,_Digits);
        }

      if(CountOrders(5)<1)
        {
         PutOrder(5,Bid-Delta*_Point);
         s=NormalizeDouble(Bid-Delta*_Point,_Digits);
        }
     }

// открытие последующих ордеров
   if(num!=CountTrades())
     {
      if(LastOrderType()==1)
        {
         DelOrder();
         if(CountOrders(5)<1)
            PutOrder(5,s);
        }

      if(LastOrderType()==2)
        {
         DelOrder();
         if(CountOrders(4)<1)
            PutOrder(4,b);
        }
      num=CountTrades();
     }


   Comment("\n Profit: ",DoubleToString(AllProfit(),2),
           "\n Last Order Type: ",LastOrderType(),
           "\n Count Trades: ",CountTrades());
  }
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//|      Замена  функции double Lot(int type)                        |
//+------------------------------------------------------------------+
double Lot2(int type)
{
   double lot_B=0, lot_S=0, lot=0;
   
   for(int i=OrdersTotal()-1;i>=0;i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderMagicNumber()==Magic)
            if(OrderSymbol()==Symbol())
              {
               double lt = OrderLots();
          
               if(OrderType()==OP_BUY)
                 lot_B=lot_B+lt;       // Суммируем все лоты ордеров на покупку 
               if(OrderType()==OP_SELL)
                 lot_S=lot_S+lt;       // Суммируем все лоты ордеров на продажу 
              } 
       if(type==OP_BUY)                // Если мы хотим посчитать лот очередного ордера на покупку, то
         lot=lot_S*2-lot_B;            // Берем удвоенный суммаррный лот на продажу и  
                                       // вычитаем все, что до этого успели выставить по покупкам.
                                       // В итоге, на уровне покупок у нас будет ровно в 2 раза > продаж.
       if(type==OP_SELL)               // Если мы хотим посчитать лот очередного ордера на продажу, то
         lot=lot_B*2-lot_S;            // Берем удвоенный суммаррный лот на покупку и  
                                       // вычитаем все, что до этого успели выставить по продажам.
                                       // В итоге, на уровне продаж у нас будет ровно в 2 раза > покупок.
           
    return(NormalizeDouble(lot, 2));   // В 2 разза можно заменить на KLot. Тоже интересно получится, если потестить.
}
//+------------------------------------------------------------------+

А вот измененный советник для желающих потестить и покритиковать.

Советник HedgeMartinStop с сайта. Изменен порядок расчета цены, снижена нагрузка, увеличена доходность. Советник можно тестировать. Но в нем есть баги. Со стопом, думаю, разберусь сам. А с функцией расчета лота попрошу кого-нибудь из спецов разобраться. Не могу найти ошибку. Функция Lot2() в конце кода.

А как код то добавить?

Хочу добавить код, а сайт выдает кпасное окошко, что комментарий больше 3000 символов.
Редактирован: 7 апреля 2022, 13:09

Вставьте код за несколько раз. По две -четыре функции за один раз. Только не разрывайте тело функции. Чтобы не было так: начало функции в одной части, а окончание в другой части. Смотрите как у меня.

На вскидку сразу:
1.

return(NormalizeDouble(lot, 2));   // В 2 разза можно заменить на KLot. Тоже интересно получится, если потестить.

Видно что Вы не разобрались пока с самыми азами языка (хотя научились копировать участки кодов из советника в советник.)
extern double KLot = 2.5; // увеличение лота в раз
return(NormalizeDouble(lot, 2)); здесь 2-это кол-во знаков после запятой.
Лот обычно не может быть меньше чем 0.01.
В других случаях это может быть и 0 и 10, в зависимости от задачи.

Еще надо знать, где это у меня.
Ладно я и так понял. Но вроде видел, что-то подлиннее.
Даю первую часть.

//+------------------------------------------------------------------+
//|                                              HedgeMartinStop.mq4 |
//|                                              Copyright 2021, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

//--- Inputs
extern double         Loss           = 417;      // убыток в валюте
extern double         Profit         = 5;        // профит в валюте
extern double         Lots           = 3.1;      // лот
extern double         KLot           = 2.5;         // увеличение лота
//extern double         OrderSL        = 800;       // Ограничение убытка ордера
extern double         MaxLot         = 10;        // максимальный лот
extern int            Delta          = 55;        // дельта
extern int            Slip           = 30;        // проскальзывание
extern int            Magic          = 123;       // магик
input ENUM_TIMEFRAMES TF_ATR         = PERIOD_M5; // Тайм Фрейм для ATR
extern int            PerATR         = 21;        // Период ATR
extern double         Level          = 0.0009;    // уровень

double buy=0,sel=0;
int num=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
{
 return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double atr=iATR(Symbol(),TF_ATR,PerATR,0);

   if(AllProfit()>Profit || AllProfit()<-Loss)
     {
      CloseAll();
      DelOrder();
     }

   if(CountTrades()<1 && atr>Level)  // Если ордеров на графике нет ATR стало больше уровня
     {
      if(CountOrders(OP_BUYSTOP)<1)  // то, если нет Buy Stop ордеров
        {
         PutOrder(OP_BUYSTOP, buy);
         buy=NormalizeDouble(Bid+Delta*_Point,_Digits);
        }

      if(CountOrders(OP_SELLSTOP)<1)
        {
         PutOrder(OP_SELLSTOP,sel);
         sel=NormalizeDouble(Bid-Delta*_Point,_Digits);
        }
     }

// открытие последующих ордеров
   if(num!=CountTrades())
     {
      if(LastOrderType()==1)
        {
         DelOrder();
         if(CountOrders(5)<1)
            PutOrder(5,sel);
        }

      if(LastOrderType()==2)
        {
         DelOrder();
         if(CountOrders(4)<1)
            PutOrder(4,buy);
        }
      num=CountTrades();
     }
/*   Comment("\n Profit: ",DoubleToString(AllProfit(),2),
           "\n Last Order Type: ",LastOrderType(),
           "\n Count Trades: ",CountTrades());*/
  }

Даю вторую часть.

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type, double price=0)
  {
   int r=0;
   color clr=clrNONE;
   double lot=0,SL=0;
//   double sl = OrderSL*Point;
//   double sl = Delta*4*KLot*Point;

   if(type==OP_SELLSTOP)
     {
     clr=clrRed;
     lot=Lot(OP_SELL);
//     SL=NormalizeDouble(price-sl,Digits);
     }
   if(type==OP_BUYSTOP)
     {
     clr=clrBlue;
     lot=Lot(OP_SELL);
//     SL=NormalizeDouble(price+sl,Digits);
     }

   r=OrderSend(Symbol(),type,Lot(type),NormalizeDouble(price,Digits),Slip,0,0,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountTrades()
  {
   int count=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()<2)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastOrderType()
  {
   int type=0;

   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0)
              {
               type=1; //buy
               break;
              }
            if(OrderType()==1)
              {
               type=2; //sell
               break;
              }
           }
        }
     }
   return(type);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
  {
   bool cl;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double profit=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()<2)
               profit+=OrderProfit()+OrderSwap()+OrderCommission();
           }
        }
     }
   return(profit);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot(int type)
{
   double lot=Lots;
   
   if(CountTrades()>0 && type==OP_BUY)
      lot=Lots*MathPow(KLot,CountTrades())*3/4;
   if(CountTrades()>0 && type==OP_SELL)
      lot=Lots*MathPow(KLot,CountTrades())*3/4;


      lot=NormalizeDouble(lot, 2);
      
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountOrders(int type)
  {
   int count=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==type)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()>1)
               del=OrderDelete(OrderTicket());
           }
        }
     }
   return;
  }
//+------------------------------------------------------------------+
//|      Замена  функции double Lot(int type)                        |
//+------------------------------------------------------------------+
double Lot2(int type)
{
   double lot_B=0, lot_S=0, lot=0;
   
   for(int i=OrdersTotal()-1;i>=0;i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderMagicNumber()==Magic)
            if(OrderSymbol()==Symbol())
              {
               double lt = OrderLots();
          
               if(OrderType()==OP_BUY)
                 lot_B=lot_B+lt;       // Суммируем все лоты ордеров на покупку 
               if(OrderType()==OP_SELL)
                 lot_S=lot_S+lt;       // Суммируем все лоты ордеров на продажу 
              } 
       if(type==OP_BUY)                // Если мы хотим посчитать лот очередного ордера на покупку, то
         lot=lot_S*2-lot_B;            // Берем удвоенный суммаррный лот на продажу и  
                                       // вычитаем все, что до этого успели выставить по покупкам.
                                       // В итоге, на уровне покупок у нас будет ровно в 2 раза > продаж.
       if(type==OP_SELL)               // Если мы хотим посчитать лот очередного ордера на продажу, то
         lot=lot_B*2-lot_S;            // Берем удвоенный суммаррный лот на покупку и  
                                       // вычитаем все, что до этого успели выставить по продажам.
                                       // В итоге, на уровне продаж у нас будет ровно в 2 раза > покупок.
           
    return(NormalizeDouble(lot, 2));   // В 2 разза можно заменить на KLot. Тоже интересно получится, если потестить.
}
//+------------------------------------------------------------------+

В функции Лот2.

Текста было много.Читать все с начала нет желания.Давайте начнем с начала и по порядку, по одной задаче.
1.Что Вы хотите от функции Лот2 и что не получается? Желательно еще и в примерах (цифрах), так будет понятнее.

Нашел, правда, не ту (картинку), что хотел, но тоже…


Редактирован: 8 апреля 2022, 19:06

Теперь оцифрую мысль.
Купили 1 лот. Цена пошла вниз на ширину канала. Продали лотом 1*2=2. Цена не дошла до БУ и и поднялась на уровень «byu», опять покупаем лотом весь Sell*2 минус имеющийся пока Buy=1. Итого SumSelLot*2 и — Sum Buy Lot'
Т.е. 2*2-1=3. Второй ордер на Buy будет не 4 лота, как обычно, а 3.
В результате Лотов на покупку будет 4, а на продажу в два раза меньше — 2 лота.
Следующий откат к Sell лот на продажу будет 4*2-2=6 лотов. 6 лотов и предыдущие открытые 2 лота на продажу, составят 8 лотов, а на покупку останется 4 лота. 1 к 2.

На картинке расчетные лоты в теле треугольников, а справа лоты по классическому расчету.
Редактирован: 7 апреля 2022, 22:02

Мало того, что с формулой лажа, так все время забываю, что работа идет отложками. Короче, шерстить весь алгоритм надо. Позже. Покимарить надо мальца.

Вы определились со стратегией и алгоритмом?

Поправил функцию, теперь ордера и стопы выставляются:

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type, double price=0)
  {
   int r=0;
   color clr=clrNONE;
   double lot=0,SL=0;
   double sl = OrderSL*Point;
//   double sl = Delta*4*KLot*Point;

   if(type==OP_SELLSTOP)
     {
     clr=clrRed;
   //  lot=Lot(OP_SELL);
     SL=NormalizeDouble(price+sl,Digits);
     }
   if(type==OP_BUYSTOP)
     {
     clr=clrBlue;
  //   lot=Lot(OP_SELL);
     SL=NormalizeDouble(price-sl,Digits);
     }

   r=OrderSend(Symbol(),type,Lot(type),NormalizeDouble(price,Digits),Slip,SL,0,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+

 

К стати, каким вариантом советника получили представленную кривую тестера.

Добрый день SSG. Ну и имя Вам папа дал. Не выговоришь и пером…
Хорошо, что я на диванчике валялся, а так бы со стула упал от Вашего вопроса. Извините, опять понесло. Скоро отпустит.

1. Давайте определимся: Вы программист?

2. Именно по этому направлению у меня разработана своя стратегия, ибо тема очень интересная. Дело в том, что сам мой алгоритм тяжело поддается формализации. Для формализации крайне необходимо полезное общение с «гуру». Ибо есть много полезных функция, с которыми я еще не подружился (например struct state(.,.,.,...)) и которые со мной сотрудничать не хотят. Убивают непонятными ошибками.
Алгоритм, как я говорил, математически безрисковый. Проделана огромная работа по снижению нагрузки на депо. Здесь без таблиц не обойтись. А это для меня в ближайшие годы не достижимо. Поэтому алгоритм разбавил самостоятельной стратегией названной мной «Минером». Здесь, в основном, применяется трал прибыли-убытка. Не совсем рационально. Я разработал свою систему защиты, но она (зараза) приносит прибыли больше, чем основная стратегия. Это по моим расчетам. И, как говорят врачи, все хорошо, но есть нюанс.
Т.е. это сложно и никто не возьмется. А зря.

3. Много идей по вопросам открытия ордеров, при чем не важно на какой индикатор трейдер опирается. Страхуемся от залипания" индюка и выжимаем максимум. Комбинированный trailingStop, Фрактальный трал прибыли-убытка, Разработал идею советника «Defender». Простой алгоритм, а тоже ошибками завалил. Пишешь все логично (мой конек — логика и вероятность), а не работает.
Но есть одно НО. Всюду пишут про уровень не ниже 3. Я еще не дорос.

4. Честно говоря, я не делал заявок с просьбами написать по моему алгоритму.
Я пока анализирую те советники, что здесь созданы или доработаны. Часто возникают вопросы, но ответы спецы не торопятся давать. Видимо, я что-то делаю не так. Стиль программирования попадается однобокий. Правильное использование готовых, проверенных (кем?) функций. Это рационально и здесь оправдано. Для меня, пока, почти ничего интересного. Но учеба всегда была бременем. Я не жалуюсь. Считаю, что перешел во второй класс. Главное, чтоб не остался на второй год.

5. И все же, что Вы имели ввиду, задавая свой вопрос?
Редактирован: 8 апреля 2022, 19:20

Добрый день.
1.Если Вы имеете в виду имею я ли образование как программист — нет.
2.Смогу ли я запрограммировать Вашу стратегию или часть её — не знаю, т.к. для меня Вы её не озвучили.
3.Попросить написать советник на этом сайте Вы можете или имея уровень 3 или при наличии поручителя с уровнем не ниже 3. Но имейте в виду заказать написание советника можно один раз в месяц.Поэтому поручитель будет только тогда когда стратегия покажется интересной для поручителя. Правда если удивите Андрея стратегией, возможно он напишет в виде исключения сразу.
4.На этом сайте Андрей пишет, в основном, советники только для проверки идеи.
Если идея и стратегия верна, тогда можно уже писать советник для торговли на реальном счёте.
5.О каком вопросе Вы говорите? Мой вопрос о стратегии вызван фразой:

Мало того, что с формулой лажа, так все время забываю, что работа идет отложками. Короче, шерстить весь алгоритм надо. Позже. Покимарить надо мальца.

Кроме публичного общения возможно и приватное общение.

extern double         Profit         = 5;        // профит в валюте
extern double         Lots           = 3.1;      // лот

При таких параметрах не мудрено получить прибыль. Вы готовы торговать таким лотом на реальном счете?

Для начала можете считать лоты отдельно по направления и «выкрутиться» так:

<code>


extern double Lots       = 0.01;     // лот
extern double MaxLot     = 5;        // максимальный торговый объем
extern double KLot       = 0;        // коэфициент увеличение лота
extern double PlusLot    = 0.01;     //прибавлять это значение к лоту последующих ордеров
extern double MinusLot   = 0.00;     //отнимать это значение от лота предыдущего ордера
extern int    DigitsLot  = 2;        //округление значения лота
extern double PLot       = 0.1;      // прибавление лота
extern int    Magic      = 123;      // магик
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double lotb()
  {
   double lotb=Lots;
   if(CountTrades(OP_BUY)>0)
   {
   if(!KLot==0 && PlusLot==0 && MinusLot==0){ lotb=NormalizeDouble(Lots*MathPow(KLot,CountTrades(OP_BUY)),DigitsLot);}
   if(!KLot==0 && !PlusLot==0 && MinusLot==0){lotb=NormalizeDouble(Lots+PlusLot*CountTrades(OP_BUY),DigitsLot);}  
   if(!KLot==0 && PlusLot==0 && !MinusLot==0){lotb=NormalizeDouble(Lots-MinusLot*CountTrades(OP_BUY),DigitsLot);}   
   if(!KLot==0 && !PlusLot==0 && !MinusLot==0){lotb=NormalizeDouble(Lots,DigitsLot);}
   } 
   if(lotb>MaxLot)lotb=Lots;
   return(lotb);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double lots()
  {
   double lots=Lots;
   if(CountTrades(OP_SELL)>0)
   {
   if(!KLot==0 && PlusLot==0 && MinusLot==0){ lots=NormalizeDouble(Lots*MathPow(KLot,CountTrades(OP_SELL)),DigitsLot);}
   if(!KLot==0 && !PlusLot==0 && MinusLot==0){lots=NormalizeDouble(Lots+PlusLot*CountTrades(OP_SELL),DigitsLot);}  
   if(!KLot==0 && PlusLot==0 && !MinusLot==0){lots=NormalizeDouble(Lots-MinusLot*CountTrades(OP_SELL),DigitsLot);}   
   if(!KLot==0 && !PlusLot==0 && !MinusLot==0){lots=NormalizeDouble(Lots,DigitsLot);}
   } 
   if(lots>MaxLot)lots=Lots;
   return(lots);
  }  
//+------------------------------------------------------------------+</code>

Редактирован: 8 апреля 2022, 15:14

Вообще конечно нет большого интереса быть «скорой помощью» и отвечать как то в «темную», не зная изначальный алгоритм и конечные цели. Поэтому и код будет может быть не самый оптимальный.
Вариантов ХеджМартинов здесь много. Посмотрите. Рассматривать повторно желания нет. Интересно обсудить новые варианты.Или в публичной плоскости или приватно.
Конечно так же можете писать и здесь. Наверно тоже сможете получить некоторые ответы.

А как это в привате? Я не в курсах.
Счас добиваю следующий вариант. Сброшу с настройками и быстрыми тестом по КТ. Попробовал по тикам, так ноут вообще отключился.

Отчет весь не отправлю. Не знаю как.
Общее: За последний год, по КТ, на Дневке, Евро-Доллар, 179 сделок, наибольшая просадка 0.47%, относительная — 8.68%.
Из 1.000 сделал 69.089. Не смейтесь — Lot 5,01. Тестер был ограничен пятью.
Пробуйте. Настройки дефолтные.

//+------------------------------------------------------------------+
//|                                             HedgeMartinStop3.mq4 |
//|                                              Copyright 2021, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "3.00"
#property strict

//--- Inputs
extern double         Loss           = 417;       // убыток в валюте
extern double         Profit         = 5;         // профит в валюте
extern double         Lots           = 3.0;       // лот
extern double         KLot           = 2.5;       // увеличение лота
extern double         OrderSL        = 90;        // Ограничение убытка ордера
extern double         MaxLot         = 10;        // максимальный лот
input ENUM_TIMEFRAMES TF_ATR         = PERIOD_M5; // Тайм Фрейм для ATR
extern int            PerATR         = 21;        // Период ATR
extern double         Level          = 0.0009;    // уровень
extern int            Delta          = 55;        // дельта
extern int            Slip           = 30;        // проскальзывание
extern int            Magic          = 123;       // магик

double buy=0,sel=0;
int num=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
{
 return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{
   double atr=iATR(Symbol(),TF_ATR,PerATR,0);

   if(AllProfit()>Profit || AllProfit()<-Loss)
     {
      CloseAll();
      DelOrder();
     }

   if(CountTrades()<1 && atr>Level)  // Если ордеров на графике нет ATR стало больше уровня
     {
      if(CountOrders(OP_BUYSTOP)<1)  // то, если нет Buy Stop ордеров
        {
         PutOrder(OP_BUYSTOP, buy);
         buy=NormalizeDouble(Bid+Delta*_Point,_Digits);
        }
      if(CountOrders(OP_SELLSTOP)<1)
        {
         PutOrder(OP_SELLSTOP,sel);
         sel=NormalizeDouble(Bid-Delta*_Point,_Digits);
        }
     }

   // открытие последующих ордеров
   if(num!=CountTrades())
     {
     if(LastOrderType()==1)
        {
        DelOrder();
        if(CountOrders(5)<1)
           PutOrder(5,sel);
        }
      if(LastOrderType()==2)
        {
        DelOrder();
        if(CountOrders(4)<1)
           PutOrder(4,buy);
        }
      num=CountTrades();
     }
/*   Comment("\n Profit: ",DoubleToString(AllProfit(),2),
           "\n Last Order Type: ",LastOrderType(),
           "\n Count Trades: ",CountTrades());*/
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type, double price=0)
{
   int r=0;
   color  clr = clrNONE;
   double SL  = 0;
   double sl  = OrderSL*Point;

   if(type==OP_SELLSTOP)
     {
     clr=clrRed;
     if(OrderSL>0)
        SL=NormalizeDouble(price+sl,Digits);
      else SL=0;
     }
   if(type==OP_BUYSTOP)
     {
     clr=clrBlue;
     if(OrderSL>0)
        SL=NormalizeDouble(price-sl,Digits);
      else SL=0;
     }
   r=OrderSend(Symbol(),type,Lot(type),NormalizeDouble(price,Digits),Slip,SL,0,"",Magic,0,clr);
   return;
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountTrades()
{
   int count=0;
   
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
            if(OrderType()<2)
               count++;
   return(count);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastOrderType()
{
   int type=0;

   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
           if(OrderType()==OP_BUY)
             return (OP_BUY);
           if(OrderType()==OP_SELL)
             return (OP_SELL);
           }
   return (-1); // Ордеров нет
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseAll()
{
   bool cl;
   
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
           if(OrderType()==OP_BUY)
             {
             RefreshRates();
             cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
             }
           if(OrderType()==OP_SELL)
             {
             RefreshRates();
             cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
             }
           }
}

Добавка.

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
{
   double profit=0;
   
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
            if(OrderType()==OP_BUY || OrderType()==OP_SELL)
               profit+=OrderProfit()+OrderSwap()+OrderCommission();
   return(profit);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot1(int type)
{
   double lot=Lots;
   
   if(CountTrades()>0 && type==OP_BUY)
      lot=Lots*MathPow(KLot,CountTrades())*3/4;
   if(CountTrades()>0 && type==OP_SELL)
      lot=Lots*MathPow(KLot,CountTrades())*3/4;


      lot=NormalizeDouble(lot, 2);
      
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountOrders(int type)
  {
   int count=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==type)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()>1)
               del=OrderDelete(OrderTicket());
           }
        }
     }
   return;
  }
//+------------------------------------------------------------------+
//|      Замена  функции double Lot(int type)                        |
//+------------------------------------------------------------------+
double Lot2(int type)
{
   double lot_B=0, lot_S=0, lot=0;
   
   for(int i=OrdersTotal()-1;i>=0;i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderMagicNumber()==Magic)
            if(OrderSymbol()==Symbol())
              {
               double lt = OrderLots();
          
               if(OrderType()==OP_BUY)
                 lot_B=lot_B+lt;       // Суммируем все лоты ордеров на покупку 
               if(OrderType()==OP_SELL)
                 lot_S=lot_S+lt;       // Суммируем все лоты ордеров на продажу 
              } 
       if(type==OP_BUY)                // Если мы хотим посчитать лот очередного ордера на покупку, то
         lot=lot_S*2-lot_B;            // Берем удвоенный суммаррный лот на продажу и  
                                       // вычитаем все, что до этого успели выставить по покупкам.
                                       // В итоге, на уровне покупок у нас будет ровно в 2 раза > продаж.
       if(type==OP_SELL)               // Если мы хотим посчитать лот очередного ордера на продажу, то
         lot=lot_B*2-lot_S;            // Берем удвоенный суммаррный лот на покупку и  
                                       // вычитаем все, что до этого успели выставить по продажам.
                                       // В итоге, на уровне продаж у нас будет ровно в 2 раза > покупок.
           
    return(NormalizeDouble(lot, 2));   // В 2 разза можно заменить на KLot. Тоже интересно получится., если потестить.
}
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double LastOrderLot(int type=-1)
{
   datetime time =0;
   double lot=0;
   
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
           double   lt = OrderLots();
           datetime cl = OrderOpenTime();
            
           if(type==OP_BUY)
             if(cl>time && (OrderType()==OP_BUY))// || OrderType()==OP_BUYSTOP))
               {  
               time = cl; 
               lot  = lt;
               }
           if(type==OP_SELL)
             if(cl>time && (OrderType()==OP_SELL))// || OrderType()==OP_SELLSTOP))
               {
               time = cl; 
               lot  = lt;
               }
           }
   return(NormalizeDouble(lot, 2));
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot(int type)
{
   double lot=Lots;
   
   if(CountOrders(OP_SELL)>0 && type==OP_BUY)
      lot=LastOrderLot(OP_SELL)*KLot;
//      lot=Lots*MathPow(KLot,CountTrades())*3/4;
   if(CountOrders(OP_BUY)>0 && type==OP_SELL)
      lot=LastOrderLot(OP_BUY)*KLot;
//      lot=Lots*MathPow(KLot,CountTrades())*3/4;

      lot=NormalizeDouble(lot, 2);
      
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
}
//+------------------------------------------------------------------+

Сюда можно Lot от эквити прицепить, но в тестере это бесполезно

1.Почему Вы тестируете " пр контрольным точкам" а не «по всем тикам».Там картина совсем другая.
2.Зачем у Вас в советнике функции Лот1 и Лот2 если они не используются.
3.Советник торгует всегда одним лотом указанным в настройках.Так задумано?
Проверьте функции:

<code>
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double LastOrderLot(int type=-1)
{
   datetime time =0;
   double lot=0;
   
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
           double   lt = OrderLots();
           datetime cl = OrderOpenTime();
            
           if(type==OP_BUY)
             if(cl>time && (OrderType()==OP_BUY))// || OrderType()==OP_BUYSTOP))
               {  
               time = cl; 
               lot  = lt;
               }
           if(type==OP_SELL)
             if(cl>time && (OrderType()==OP_SELL))// || OrderType()==OP_SELLSTOP))
               {
               time = cl; 
               lot  = lt;
               }
           }
   return(NormalizeDouble(lot, 2));
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot(int type)
{
  double lot=Lots;
   
   if(CountOrders(OP_SELL)>0 && type==OP_BUY)
      lot=LastOrderLot(OP_SELL)*KLot;
//      lot=Lots*MathPow(KLot,CountTrades())*3/4;
   if(CountOrders(OP_BUY)>0 && type==OP_SELL)
      lot=LastOrderLot(OP_BUY)*KLot;
//      lot=Lots*MathPow(KLot,CountTrades())*3/4;

      lot=NormalizeDouble(lot, 2);
      
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
}
//+------------------------------------------------------------------+
</code>

Что вы хотели получить таким кодом? Скорее всего Вы его откуда то часть скопировали а вторую часть сами дописали.Там и логические и синтаксические ошибки.
4.Судя по данной переписке советник интересует только нас. Предлагаю перенести переписку в приватную плоскость. Используйте в верхнем левом углу функции «создать запись»или функцию «Приват» под этим сообщением.
Редактирован: 8 апреля 2022, 19:55

То же, но с другими, более агрессивными настройками.
Сделок за год 3080, было 1.000 стало 460.000 баксов, абсолютная просадка 1.46%, относительная 28.06%. Проверить бы, хотя бы, на тиках.


Редактирован: 8 апреля 2022, 19:58

Озвучьте сначала алгоритм советника как Вы его видите. По пунктам 1,2,3,..,10.
Только тогда можно будет написать советник, а то сейчас как то все сумбурно происходит.Не будет прописанного алгоритма (плана) то и не будет и толку.

Почему опять контрольные точки а не тики. И опять дневки. У Вас индикатор на 5 минут. Тестируйте тоже на пять минут.

Или Вы «шутить изволите» или Вам нужно изучить работу тестера.
1.При тестировании тестеру известна история а также открытие, закрытие, максимальная и минимальная цена бара на котором идет тестирование.Это так называемые «контрольные точки». Отсюда и название метода тестирования.
2.Всего у тестера есть три метода тестирования
— по контрольным точкам,
— по ценам открытия,
— по тикам.
Выбор метода определяется и выбирается в строке «Модель»тестера.
Так что потрудитесь ознакомиться с работой тестера, поможет в будущем не потерять деньги из за сомообмана из за ложных итогов в тестере.
Поисковики Вам в помощь.
Ликбез устраивать не буду.
3.Не я к Вам обратился за помощью.
4.Как работает советник я знаю.И если мне его писал Андрей а не я сам себе — значит были на это причины.
5.Покажите пожалуйста что Вы «немного подправили» в советнике и это работает.
«Лоскутные одеяла» не работающих кусков кода не в счет.
6.Хотите воплотить в жизнь идею своего «бомбического» алгоритма и «таинственного» скрипта — можем пообщаться.Обсуждать старую идею желания нет.

Да и просто так, без пунктов. Старые идеи нужно обсуждать с целью их развития. Как говорит моя дочь-хирург: здоровых людей нет. Есть недообследованные.
Эта идея, единственная легальная безрисковая. Все остальные, из обнаруженных мною, имеют какую-то степень риска. Хоть порой и не плохие.
Профессор все знает в своей математике, а баба Клава с 3-мя классами, мало того, что таблицу умножения знает, так она еще и борщ умеет.
Это я к тому, что шоры нужны лошадям. А если мне говорят «гуру», что здесь денег нет, значит надо именно здесь и искать.
Причины две. Возможно где-то рядом грааль закопали, а во вторых, здесь никто не ищет.

Вы же знаете, что биржа, для того, что бы у ребенка игрушку забрать. Обладая безграничными возможностями, они создают роботов против любой известной стратегии. Мало того, они сливаю эти стратегии. И как только толпа освоит очередную супер, так их деньги становятся чужими. И так будет всегда. Лет 20 назад я ходил на курсы по сливу депозита. Добывал супер индикаторы. А когда надоело топтаться на месте, шутки ради начал работать против индикаторов перед началом евросессий. Попробуйте на дэмо. С тех пор я забил на индикаторы. Использую просто как тригер. Начальный толчек. Я давно не торгую. Упустил момент. Балую на дэмке. В этом моя слабость. Но призерство в физико-математических конкурсах в сочетании с «железной логикой» дают свои результаты. Я таки разработал лет за 6-ть математическую модель типа пофиг куда цена идет, лишь бы куда-нибудь шла. Поставил такого сова и спи спокойно. Главное предельная осторожность. Это важно, хоть и не все понимают.

Редактирован: 9 апреля 2022, 00:36

Исправленный, с двумя вариантами расчета лота на выбор Старый-новый. И со SL.

<code>//+------------------------------------------------------------------+
//|                                             HedgeMartinStop2.mq4 |
//|                                              Copyright 2021, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

//--- Inputs
extern double         Loss           = 708;       // убыток в валюте
extern double         Profit         = 18;        // профит в валюте
extern bool           StarVar        = false;     // Старый вариант расчета лота
extern double         Lots           = 1.0;       // лот
extern double         KLot           = 2.5;       // увеличение лота
extern double         OrderSL        = 33;        // Ограничение убытка ордера
extern double         MaxLot         = 12;        // максимальный лот
extern int            Delta          = 22;        // дельта
input ENUM_TIMEFRAMES TF_ATR         = PERIOD_M5; // Тайм Фрейм для ATR
extern int            PerATR         = 21;        // Период ATR
extern double         Level          = 0.0003;    // уровень
extern int            Slip           = 30;        // проскальзывание
extern int            Magic          = 123;       // магик
//---

double buy=0,sel=0;
int num=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
{
 return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double atr=iATR(Symbol(),TF_ATR,PerATR,0);

   if(AllProfit()>Profit || AllProfit()<-Loss)
     {
      CloseAll();
      DelOrder();
     }

   if(CountTrades()<1 && atr>Level)  // Если ордеров на графике нет ATR стало больше уровня
     {
      if(CountOrders(OP_BUYSTOP)<1)  // то, если нет Buy Stop ордеров
        {
         PutOrder(OP_BUYSTOP, buy);
         buy=NormalizeDouble(Bid+Delta*_Point,_Digits);
        }

      if(CountOrders(OP_SELLSTOP)<1)
        {
         PutOrder(OP_SELLSTOP,sel);
         sel=NormalizeDouble(Bid-Delta*_Point,_Digits);
        }
     }

// открытие последующих ордеров
   if(num!=CountTrades())
     {
      if(LastOrderType()==1)
        {
         DelOrder();
         if(CountOrders(5)<1)
            PutOrder(5,sel);
        }

      if(LastOrderType()==2)
        {
         DelOrder();
         if(CountOrders(4)<1)
            PutOrder(4,buy);
        }
      num=CountTrades();
     }
/*   Comment("\n Profit: ",DoubleToString(AllProfit(),2),
           "\n Last Order Type: ",LastOrderType(),
           "\n Count Trades: ",CountTrades());*/
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type, double price=0)
  {
   int r=0;
   color clr=clrNONE;
   double lot=0,SL=0;
   double sl = OrderSL*Point;
//   double sl = Delta*4*KLot*Point;

   if(type==OP_SELLSTOP)
     {
     clr=clrRed;
     lot=Lot(OP_SELL);
     if(OrderSL>0)
        SL=NormalizeDouble(price+sl,Digits);
      else SL=0;
     }
   if(type==OP_BUYSTOP)
     {
     clr=clrBlue;
     lot=Lot(OP_BUYSTOP);
     if(OrderSL>0)
        SL=NormalizeDouble(price-sl,Digits);
      else SL=0;
     }

   r=OrderSend(Symbol(),type,lot,NormalizeDouble(price,Digits),Slip,SL,0,"",Magic,0,clr);
   return;
  }//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountTrades()
  {
   int count=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()<2)
               count++;
           }
        }
     }
   return(count);
  }
</code>

Редактирован: 9 апреля 2022, 12:50

Исправленный, вторая часть.

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastOrderType()
  {
   int type=0;

   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0)
              {
               type=1; //buy
               break;
              }
            if(OrderType()==1)
              {
               type=2; //sell
               break;
              }
           }
        }
     }
   return(type);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
  {
   bool cl;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double profit=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()<2)
               profit+=OrderProfit()+OrderSwap()+OrderCommission();
           }
        }
     }
   return(profit);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot(int type)
{
   double lot=Lots;
   
   if(CountTrades()>0 && type==OP_BUY)
     if (StarVar)
       lot=Lots*MathPow(KLot,CountTrades());//*3/4;
     else
       lot=LastOrderLot(OP_SELL)*KLot;
    //---  
   if(CountTrades()>0 && type==OP_SELL)
     if (StarVar)
       lot=Lots*MathPow(KLot,CountTrades());//*3/4;
     else
       lot=LastOrderLot(OP_BUY)*KLot;

      lot=NormalizeDouble(lot, 2);
      
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double LastOrderLot(int type=-1)
{
   datetime time =0;
   double lot=0;
   
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
           double   lt = OrderLots();
           datetime cl = OrderOpenTime();
            
            if(OrderType()==OP_BUY  && cl>time)
              {  
              time = cl; 
              lot  = lt;
              }
            if(OrderType()==OP_SELL)
              {
              time = cl; 
              lot  = lt;
              }
           }
   return(NormalizeDouble(lot, 2));
}
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountOrders(int type)
  {
   int count=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==type)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()>1)
               del=OrderDelete(OrderTicket());
           }
        }
     }
   return;
  }
//+------------------------------------------------------------------+

Гонял по контрольным точкам, как автор топика, результат сильно отличается.
Вот с настройками по умолчанию:




вот с лотом 5.1 как у атора

Я не уточнял у автора, но возможно дело в истории или четырех-пятизнак.
У меня тоже далеко от приемлемых результатов, даже «по контрольным точкам ».

Если Ваша база позволяет сделать подгонку хотя бы за три месяца на тиках и сравнить с дефолтником, был бы вам благодарен

Если вы под подгонкой понимаете оптимизацию, то у меня очень слабый ноутбук(слабый процесор:2 Ггц,; встроенная видеокарта; и очень мало места на диске).Уж очень долго у меня она длится.

Второй вариант по тикам тоже хранически льёт без каких либо предпосылок к росту депозита.

Спасибо. Забудьте за него пока. Не тратте сил. Будет что нбудь новое, сообщу.