mattew

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

  Торгую в компаниях:


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

Рейтинг 2089


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



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

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



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





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



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

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

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


РЕКОМЕНДУЮ



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

Лучшее от mattew



Советник для ренко-графика на индикаторе TMA Комментариев 27
2016-08-22 20:45:25Рейтинг 0

Модификация советника на ренко барах Комментариев 18
2016-10-11 18:14:34Рейтинг 0

Советник - помощник при переходе из флэта в тренд

Прошу написать советник, который помогает выйти из флэта в тренд.
Терминал МТ4. Советник включается и выключается вручную. После включения работает следующим образом:
1) удаляет все имеющиеся отложенные ордера;
2) в зависимости от выбранного параметра Buy или Sell определяет значение наибольшей убыточной позиции только по
ордерам выбранного параметра;
3) сравнивает выбранное значение с разницей между балансом и первоначальным депозитом;
4) закрывает наиболее убыточный ордер в случае, когда положительная разница между балансом и первоначальным
депозитом больше, чем убыток (если убыток больше, то ожидает, пока убыток не станет меньше положительной разницы);
5) при наличии соответствующей убыточной позиции цикл повторяется, но обязательно только c п.2.
Устанавливаемые параметры:
1. Buy или Sell.
2. Сумма первоначального депозита.
Отложки удаляются, т.к. в тренде изменяется лот (открытие ордеров — задача другого советника).
  • 0
  • Просмотров: 1576
  • 1 мая 2016, 23:30
  • mattew
Понравилcя материал? Не забудьте поставить плюс и поделиться в социальной сети!

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

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

+
0
Сейчас займусь, если получится быстро сделать будет советник :) 
avatar

  34  AM2 Сообщений: 15886 - Андрей

  • 2 мая 2016, 08:22
+
0
В данной версии смоделирована для тестера ситуация с несколькими открытыми ордерами. В нужный момент удаляются отложки и закрывается самый убыточный ордер заданного направления.




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

//--- Inputs
extern double Lots       = 0.1;      // лот
extern int StopLoss      = 0;        // лось
extern int TakeProfit    = 0;        // язь
extern int Slip          = 30;       // реквот
extern int BuySell       = 0;        // 0-ищем максимальный убыток по бай. 1-по селл.
extern int Magic         = 0;        // магик

int bt=0,st=0,ti=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
      if(StopLoss>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
     }

   r=OrderSend(NULL,type,Lots,NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double pr=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)
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
void CloseByTicket(int ticket)
  {
   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)
              {
               RefreshRates();
               cl=OrderClose(ticket,OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1)
              {
               RefreshRates();
               cl=OrderClose(ticket,OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Удаление отложенных ордеров                                      |
//+------------------------------------------------------------------+
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());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Профит самого убыточного ордера                                  |
//+------------------------------------------------------------------+
double MinProfit(int type)
  {
   double pr=0,min=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)
              {
               pr=OrderProfit();
               if(pr<min) 
                 {
                  min=pr;
                  if(OrderType()==0 && type==0) bt=OrderTicket();
                  if(OrderType()==1 && type==1) st=OrderTicket();
                 }
              }
           }
        }
     }
   return(min);
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
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);
              }
           }
        }
     }
  }  
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(OrdersTotal()<1 && IsTesting())
     {
      for(int i=1;i<=5;i++)
        {
         PutOrder(3,Ask+300*Point*i);//selllimit 5
        }

      for(int i=1;i<=4;i++)
        {
         PutOrder(4,Ask+200*Point*i);//buystop 4
        }
     }

   if(Hour()>=20)
     {
      DelOrder();
      if(BuySell==0 && AccountEquity()-AccountBalance()>-MinProfit(0)) CloseByTicket(bt);
      if(BuySell==1 && AccountEquity()-AccountBalance()>-MinProfit(1)) CloseByTicket(st);
     }
     
   Comment("\n Profit: ",AllProfit(),
           "\n MaxBuyLoss: ",MinProfit(0),
           "\n MaxSellLoss: ",MinProfit(1),
           "\n MaxBuyLossTicket: ",bt,
           "\n MaxSellLossTicket: ",st,
           "\n Equity: ",AccountEquity(),
           "\n Balance: ",AccountBalance());
  }
//+------------------------------------------------------------------+
avatar

  34  AM2 Сообщений: 15886 - Андрей

  • 2 мая 2016, 11:00
+
0
Спасибо! На практике открытых убыточных ордеров часто бывает намного больше десятка, а то и двух. Они будут мониториться?
avatar

  18  mattew Автор Сообщений: 31

  • 2 мая 2016, 11:38
  • ↑
+
0
Это только набросок для тестера.
avatar

  34  AM2 Сообщений: 15886 - Андрей

  • 2 мая 2016, 11:51
  • ↑
+
0
Гоняйте в тестере, если все нормально лишнее уберу.
avatar

  34  AM2 Сообщений: 15886 - Андрей

  • 2 мая 2016, 13:46
+
0
К сожалению, я никогда раньше с тестером не работал. Сегодня впервые попробывал, но оценить результаты не могу. Наверное, для этого нужен опыт, которого у мня совсем нет.
avatar

  18  mattew Автор Сообщений: 31

  • 2 мая 2016, 14:37
  • ↑
+
0
Тогда пробуйте на демо как будет работать вот эта штука:


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

//--- Inputs
extern double Lots       = 0.1;      // лот
extern int StopLoss      = 0;        // лось
extern int TakeProfit    = 0;        // язь
extern int Slip          = 30;       // реквот
extern int BuySell       = 0;        // 0-ищем максимальный убыток по бай. 1-по селл.
extern int Magic         = 0;        // магик

int bt=0,st=0,ti=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
      if(StopLoss>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
     }

   r=OrderSend(NULL,type,Lots,NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double pr=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)
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
void CloseByTicket(int ticket)
  {
   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)
              {
               RefreshRates();
               cl=OrderClose(ticket,OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1)
              {
               RefreshRates();
               cl=OrderClose(ticket,OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Удаление отложенных ордеров                                      |
//+------------------------------------------------------------------+
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());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Профит самого убыточного ордера                                  |
//+------------------------------------------------------------------+
double MinProfit(int type)
  {
   double pr=0,min=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)
              {
               pr=OrderProfit();
               if(pr<min)
                 {
                  min=pr;
                  if(OrderType()==0 && type==0) bt=OrderTicket();
                  if(OrderType()==1 && type==1) st=OrderTicket();
                 }
              }
           }
        }
     }
   return(min);
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
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);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(OrdersTotal()<1 && IsTesting())
     {
      for(int i=1;i<=5;i++)
        {
         PutOrder(3,Ask+300*Point*i);//selllimit 5
        }

      for(int i=1;i<=4;i++)
        {
         PutOrder(4,Ask+200*Point*i);//buystop 4
        }
     }

   DelOrder();
   if(BuySell==0 && AccountEquity()-AccountBalance()>-MinProfit(0)) CloseByTicket(bt);
   if(BuySell==1 && AccountEquity()-AccountBalance()>-MinProfit(1)) CloseByTicket(st);

   Comment("\n Profit: ",AllProfit(),
           "\n MaxBuyLoss: ",MinProfit(0),
           "\n MaxSellLoss: ",MinProfit(1),
           "\n MaxBuyLossTicket: ",bt,
           "\n MaxSellLossTicket: ",st,
           "\n Equity: ",AccountEquity(),
           "\n Balance: ",AccountBalance());
  }
//+------------------------------------------------------------------+
avatar

  34  AM2 Сообщений: 15886 - Андрей

  • 2 мая 2016, 16:11
+
0
Хорошо, буду пробовать на демо
avatar

  18  mattew Автор Сообщений: 31

  • 2 мая 2016, 16:38
  • ↑

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