PetrovMaxim
Максим

 
Уровень 7
Добро пожаловать в мой блог!


Группа "Стол заказов MQL"

Рейтинг 2146


_



UPDATE: Внимание! С ноября 2024 финансирование Стола заказов прекращено

Подробности здесь — zakaz.opentraders.ru/132091.html



Если Вы хотите заказать советник или индикатор, то публикуйте в эту группу тех. задание. Если Ваш заказ не очень сложный, то велика вероятность, что Вам его смогут сделать даже бесплатно



Программистам MQL: подпишитесь на группу, чтобы получать уведомления о заказах.

Не забывайте указывать платформу: MT4 или MT5



Свыше 4000 заказов уже выполнено бесплатно!





Перед заказом прочитайте Правила работы Стола заказов



СДЕЛАТЬ ЗАКАЗ →

* нужно быть зарегистрированным на сайте для создания заказа

** уровень должен быть 3 или выше, чтобы заказ был рассмотрен штатным программистом Стола (см. правила)


РЕКОМЕНДУЮ



*Реклама от создателя группы

Лучшее от PetrovMaxim



Написание советника, с поиском поручителя Комментариев 16
2017-11-10 16:56:15Рейтинг 0

Написание советника Комментариев 5
2017-11-08 09:11:06Рейтинг 0

Поправить советник Комментариев 7
2018-03-30 09:17:48Рейтинг 0

Поправить советник Комментариев 8
2016-09-01 22:14:11Рейтинг 0

Поправить советник Комментариев 8
2016-09-07 09:30:35Рейтинг 0

Создание советника помощника

Андрей добрый день!!!
Возможно реализовать советник который не открывает ордера. Суть советника: в настройках задаем прибыль допустим 10 долларов и как счет увеличивает на 10 долларов, советник закрывает один самый убыточный (дальний) ордер и т.д.
Спасибо!
  • 0
  • Просмотров: 1814
  • 2 февраля 2017, 10:12
  • PetrovMaxim
Понравилcя материал? Не забудьте поставить плюс и поделиться в социальной сети!

Вступите в группу "Стол заказов MQL", чтобы следить за обновлениями
ПРИСОЕДИНИТЬСЯ К ГРУППЕ
присоединиться
  Предыдущая запись в группе
модификация "чертилки"
29 января 2017
02 февраля 2017

Брокер для ваших роботов, 15 лет на рынке

Комментарии (19)

+
0
Простой советник. Сегодня займусь.
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 2 февраля 2017, 17:02
+
0
Спасибо, Андрей!!!
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 2 февраля 2017, 17:12
+
0
Желательно с откусыванием от дальних ордеров частями:
в пределах накопленных новых 10$ закрывает самый дальний ордер полностью или частью,
если его сумма меньше новой накопленной,
а в счёт остатка накопленной суммы закрывает другие, или часть следующего и т.д.
avatar

  11  preasto Сообщений: 445

  • 2 февраля 2017, 17:45
+
0
Я сделал набросок. но мне чтобы проверить работу советника нужно смоделировать ситуацию в рынке. Покажите на скринах как можно подробнее все ордера и когда нужно закрывать?

Вот сырой набросок: 




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

input double Profit=10;
double LastEquity=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---

  }
//+------------------------------------------------------------------+
//| Check for open order conditions                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
     }

   r=OrderSend(NULL,type,0.1,NormalizeDouble(price,Digits),5,0,0,"",0,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Профит всех ордеров по типу ордера                               |
//+------------------------------------------------------------------+
double AllProfit(int ot=-1)
  {
   double pr=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol())
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }

            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseLastMinus()
  {
   bool cl;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol())
           {
            if(OrderType()==0)
              {
               if(OrderProfit()<0) cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),5,White);
               break;
              }
            if(OrderType()==1)
              {
               if(OrderProfit()<0) cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),5,White);
               break;
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(IsTesting() && OrdersTotal()<1)
     {
      for(int i=1;i<=5;i++) PutOrder(2,Ask-200*Point*i);
      for(int i=1;i<=3;i++) PutOrder(5,Ask-150*Point*i);
     }

   if(AccountEquity()-LastEquity>Profit)
     {
      CloseLastMinus();
      LastEquity=AccountEquity();
     }

   Comment("\n Profit: ",AllProfit(),
           "\n Account Equity: ",AccountEquity(),
           "\n Last Equity: ",LastEquity);
  }
//+------------------------------------------------------------------+

Редактирован: 2 февраля 2017, 20:20
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 2 февраля 2017, 20:05
+
0
Что скажет ТС, но по мне бы гасить дальние убыточные ордера примерно так:



avatar

  11  preasto Сообщений: 445

  • 2 февраля 2017, 21:10
  • ↑
+
0
ок, смотрю, спасибо!
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 2 февраля 2017, 20:40
+
0
Андрей, при получении прибыли в размере 10 советник не закрыл убыточный, как было 3 buy так и остались


Андрей и можно еще зависимость сделать от баланса
if(AccountEquity()-LastEquity>Profit)
Редактирован: 2 февраля 2017, 23:05
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 2 февраля 2017, 21:56
+
0
Андрей, при получении прибыли в размере 10 советник не закрыл убыточный, как было 3 buy так и остались

По скринам видно что не было прибыли в 10 баксов, поэтому и не закрыл.
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 3 февраля 2017, 01:37
  • ↑
+
0
Андрей, еще одна картинка, видно что закрыл ордер селл, хотя есть дальние ордера на бай
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 3 февраля 2017, 07:06
+
0
Андрей, а возможно еще добавить в советник помощник функцию безубытка, только не через пункты, а с открытием новой свечи!!!
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 3 февраля 2017, 08:15
+
0
Андрей, еще одна картинка, видно что закрыл ордер селл, хотя есть дальние ордера на бай

В советнике есть контроль по символу. В ТЗ не было указано что позы будут по разным символам.
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 3 февраля 2017, 17:19
  • ↑
+
0
Андрей, а советник стоит на одной валютной паре!!!
Редактирован: 3 февраля 2017, 17:25
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 3 февраля 2017, 17:23
+
0
Нужно более подробное ТЗ с учетом поз по разным парам.
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 3 февраля 2017, 17:25
  • ↑
+
0
У меня стоит один советник который открывает ордера и советник который должен закрывать дальний ордер тоже стоит на тоже паре!!!
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 3 февраля 2017, 17:28
+
0
Попробуйте этот вариант:


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

input double Profit=10;
double LastEquity=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---

  }
//+------------------------------------------------------------------+
//| Check for open order conditions                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
     }

   r=OrderSend(NULL,type,0.1,NormalizeDouble(price,Digits),5,0,0,"",0,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Профит всех ордеров по типу ордера                               |
//+------------------------------------------------------------------+
double AllProfit(int ot=-1)
  {
   double pr=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol())
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }

            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseLastMinus()
  {
   bool cl;
   for(int i=0;i<=OrdersTotal()-1;i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol())
           {
            if(OrderType()==0)
              {
               if(OrderProfit()<0) cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),5,White);
               break;
              }
            if(OrderType()==1)
              {
               if(OrderProfit()<0) cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),5,White);
               break;
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(IsTesting() && OrdersTotal()<1)
     {
      for(int i=1;i<=5;i++) PutOrder(2,Ask-200*Point*i);
      for(int i=1;i<=3;i++) PutOrder(5,Ask-150*Point*i);
     }

   if(AccountEquity()-LastEquity>Profit)
     {
      CloseLastMinus();
      LastEquity=AccountEquity();
     }

   Comment("\n Profit: ",AllProfit(),
           "\n Account Equity: ",AccountEquity(),
           "\n Last Equity: ",LastEquity);
  }
//+------------------------------------------------------------------+
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 3 февраля 2017, 19:25
+
0
Не я с ним запыхался. К платному.
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 3 февраля 2017, 19:31
+
0
Понятно, спасибо!!!
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 3 февраля 2017, 19:40
+
0
Андрей, а взамен этого советника сможете написать советник чтобы переводил ордера в безубыток с нового бара ордера открытые на предыдущем!!!
avatar

  7  PetrovMaxim Автор Сообщений: 119 - Максим

  • 3 февраля 2017, 21:20
+
0
Скидывайте подробное ТЗ новым топиком.
avatar

  35  AM2 Сообщений: 16266 - Андрей

  • 4 февраля 2017, 06:44
  • ↑

Зарегистрируйтесь или авторизуйтесь, чтобы оставить комментарий