хеджирующий советник

Стол заказов MQL

Здравствуйте уважаемые программисты! Прошу написать хеджирующий советник по следующей стратегии:
По заданному условию открывается первый ордер buy либо sell (зависит от условия — скажем для buy: Open[1]<Close[1] && Open[0]>Close[1]
для sell: Open[1]>Close[1] && Open[0 ]<Close[1] ) Хотя не суть важно. У этого первого ордера
предположим buy, выставляется тейк профит и одновременно с ним на расстоянии N пунктов выставляется sellstop с увеличенным лотом. Если цена дошла до тейк профита-
sellstop удаляется и цикл начинается снова. Если цена пошла вниз и сработал sellstop-
тейк профит первого ордера удаляется и открывается buystop также с увеличенным лотом на уровне открытия первого ордера buy. Дальше если цена пошла вниз — ждём суммарного профита (в валюте) и закрываем все ордера. Если цена пошла вверх и сработал buystop — и цена пошла дальше — также ждём закрытия по суммарному профиту. И так далее.
Между ордерами sellstop и buystop всегда одинаковое расстояние заданное в меню.
stoploss ордеров не выставляется. Тейк профит выставляется только у первого ордера и удаляется после сработавшего за ним стопового ордера. Все ордера (их может быть
несколько, поэтому ввести в меню ограничение по колличеству) закрываются по достижению суммарного профита в валюте.
В меню должно быть:

— расстояние между ордерами (около 30)
— тейк профит первого ордера
— уровень суммарного профита для закрытия ордеров
— лот1 — 0.01
— лот2 — 0.02
— лот3 — 0.03
— лот4 — 0.06
— лот5 — 0.12
— лот6 — 0.24
— лот7 — 0.48
— лот8 — 0.96
— лот9 — 1.92
— лот10- 3.84
— колличество открытых ордеров ( хотя может это лишнее)
— проскальзывание цены
— магическое число

картинка для пояснения: shot.qip.ru/00GmGP-6Ogbqip2b/

разное

+3
Просмотров: 11393
5 октября 2015, 22:47
vikas

Понравилcя материал? Не забудьте поставить плюс и поделиться в социальной сети!

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

Предыдущая запись в группе Советник по индикатору BBands_Stop_v1	Следующая запись в группе Советник по времени 2
05 октября 2015	06 октября 2015

Cейчас начну делать.

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

6 октября 2015, 10:47
↓

Советник сложный, много всего в ТЗ наворочено.

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

6 октября 2015, 11:37
↓

Реализована где то треть ТЗ. Смотрите и дальше можно постепенно добавлять следующие пункты.


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

//--- Inputs
extern int    StopLoss       = 300;       // лось 
extern int    TakeProfit     = 500;       // язь
extern int    Delta          = 200;       // символ
extern double Profit         = 100;       // профит в валюте
extern double Lots           = 0.1;       // лот
extern int    Slip           = 30;        // проскальзывание
extern int    Count          = 1;         // количество открываемых ордеров
extern int    Magic          = 123;       // магик

double Lot[10]={0.01,0.02,0.03,0.06,0.12,0.24,0.48,0.96,1.92,3.84};
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
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()==OP_BUY || OrderType()==OP_SELL)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+  
void CloseAll()
  {
   bool cl=true;
   double pBid,pAsk;

   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            pBid=MarketInfo(OrderSymbol(),MODE_BID);
            pAsk=MarketInfo(OrderSymbol(),MODE_ASK);
            if(OrderType()==OP_BUY) cl=OrderClose(OrderTicket(),OrderLots(),fND(pBid),Slip,Blue);
            if(OrderType()==OP_SELL) cl=OrderClose(OrderTicket(),OrderLots(),fND(pAsk),Slip,Red);
           }
        }
     }
  }
//+------------------------------------------------------------------+
double fND(double d,int n=-1)
  {
   if(n<0) return(NormalizeDouble(d, Digits));
   return(NormalizeDouble(d, n));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double profit=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      bool sel=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
         if(OrderType()==OP_BUY || OrderType()==OP_SELL) profit+=OrderProfit();
     }
   return(profit);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
        {
         if(OrderMagicNumber()!=Magic || OrderSymbol()!=Symbol()) continue;
           {
            if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
            if(OrderType()==OP_BUYSTOP)  del=OrderDelete(OrderTicket());
            if(OrderType()==OP_SELLSTOP) del=OrderDelete(OrderTicket());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastDealResult()
  {
   int result=0;
   if(OrdersHistoryTotal()==0)
     {
      result=0;
     }
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()>0)
        {
         result=1;//tp  
        }
      if(OrderProfit()<0)
        {
         result=2;//sl  
        }
     }
   return(result);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
// торгуем
   int res=0,i=0;
   double sl=0,tp=0,bid=0,ask=0,pr=0;
   
   i=CountTrades();
//---- buy 
   if(Open[1]<Close[1] && Open[0]>Close[1] && CountTrades()<Count)
     {
      bid=MarketInfo(Symbol(),MODE_BID);
      ask=MarketInfo(Symbol(),MODE_ASK);
      sl=NormalizeDouble(ask-StopLoss*Point,Digits);
      tp=NormalizeDouble(ask+TakeProfit*Point,Digits);
      res=OrderSend(Symbol(),OP_BUY,Lot[i],NormalizeDouble(ask,Digits),Slip,sl,tp,"",Magic,0,Blue);

      pr=ask-Delta*Point;
      sl=NormalizeDouble(pr+StopLoss*Point,Digits);
      tp=NormalizeDouble(pr-TakeProfit*Point,Digits);
      res=OrderSend(Symbol(),OP_SELLSTOP,Lot[i],NormalizeDouble(pr,Digits),Slip,sl,tp,"",Magic,0,Red);
      return;
     }

//---- sell   
   if(Open[1]>Close[1] && Open[0]<Close[1] && CountTrades()<Count)
     {
      bid=MarketInfo(Symbol(),MODE_BID);
      ask=MarketInfo(Symbol(),MODE_ASK);
      sl=NormalizeDouble(bid+StopLoss*Point,Digits);
      tp=NormalizeDouble(bid-TakeProfit*Point,Digits);
      res=OrderSend(Symbol(),OP_SELL,Lot[i],NormalizeDouble(bid,Digits),Slip,sl,tp,"",Magic,0,Red);

      pr=bid+Delta*Point;
      sl=NormalizeDouble(pr-StopLoss*Point,Digits);
      tp=NormalizeDouble(pr+TakeProfit*Point,Digits);
      res=OrderSend(Symbol(),OP_BUYSTOP,Lot[i],NormalizeDouble(pr,Digits),Slip,sl,tp,"",Magic,0,Blue);
      return;
     }

   if(CountTrades()>1)
     {

     }

   if(LastDealResult()==1)DelOrder();
   if(AllProfit()>=Profit) CloseAll();
   Comment("\n Profit: ",AllProfit());
  }
//+------------------------------------------------------------------+

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

6 октября 2015, 11:56
↓

да, хорошо. я тогда вечером посмотрю и отпишусь.
А то я не у компьютера.

9 vikas Автор Сообщений: 113 - Алексей

6 октября 2015, 12:15
↓

Сейчас реализовано 2/3 ТЗ. До вечера.
www.opentraders.ru/downloads/890/

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

6 октября 2015, 12:58
↓

Добрался до компа.
Так, нет как то всё не так. Давай с самого начала.
Сов начинает работу — открывается предположим buy. У него выставляется тейк профит.
Одновременно с этим выставляется sellstop(на величину дельта указанную в меню).
К примеру, цена до ТП не дошла, развернулась и пошла вниз. Сработал sellstop-
т.е. открылся sell. Сразу же выставляется buystop. Выставляется он на том же уровне что и первый ордер buy. Затем цена гуляет туда сюда и идёт вверх — сра-
батывает buystop, тут же выставляется sellstop (на том же уровне, что и предыдущий открытый ордер sell, дальше цена погуляла вверх, недобрала суммарного
профита и пошла круто вниз — сработал sellstop, естественно выставился buystop,
(у нас уже открыто 4 ордера, суммарный объём sell превышает суммарный объём buy)
но цена продолжила движение вниз, и как только суммарный профит достиг уровня указанного в меню т.е. как только профит ордеров sell превысил просадку ордеров
buy, советник закрывает все эти ордера.
Не должно быть никаких стоплосов. Тейк профит только у первоначального ордера и
удаляется если цена пошла в другую сторону и сработал стоповый ордер.
Посмотри пожалуйста картинку shot.qip.ru/00GmGP-3Ogbqip3K/
Все ордера buy по одной цене и все sell по одной цене, между ними дельта
лот каждого последующего открываемого ордера должен повышаться как в ТЗ
Редактирован: 6 октября 2015, 19:39

9 vikas Автор Сообщений: 113 - Алексей

6 октября 2015, 19:19
↓

Ваш уже завтра смотреть буду.

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

6 октября 2015, 22:38
↑
↓

Хорошо. Там у первоначального ордера не убирается ТП когда срабатывает стоповый ордер.

9 vikas Автор Сообщений: 113 - Алексей

6 октября 2015, 22:53
↓

Здорово! Я видел такие системы но не думал, что это так реализуется.
www.opentraders.ru/downloads/890/

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

7 октября 2015, 00:37
↓

У меня не получаются такие показатели, стремящиеся строго на север. *wall*

Входящие параметры не меняла, тестировала евро с июля по октябрь 2015. Ушло на юг *pardon*

27 Oxy Сообщений: 3418 - ..ιllιlι.lι.ιllι.ιlι..

7 октября 2015, 01:23
↑
↓

У меня не получаются такие показатели, стремящиеся строго на север.
Входящие параметры не меняла, тестировала евро с июля по октябрь 2015. Ушло на юг

Входные параметры по умолчанию, стоят левые. Ставила на оптимизацию?

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

7 октября 2015, 10:41
↑
↓

www.mql5.com/ru/market/product/11420
Это то самое.

Тогда чем не устраивает, советник с мкл? Если бы вы мне сразу дали ссылку на советник, мне это облегчило бы работу в разы.

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

7 октября 2015, 10:46
↑
↓

Андрей, доброе утро. У тебя наверное ТП задран под 500. Да, тогда все ордера
закрываются по суммарному профиту. Но если ТП первого ордера поставить 20
(каким он и должен быть) то ты увидишь, что ТП почемуто у всех ордеров. А он
должен быть только у первоначального ордера. Вот посмотри ССылку
www.mql5.com/ru/market/product/11420
Это то самое. Только у него закрываются по определённому колличеству пунктов
указанных в меню. А это я считаю не совсем правильно. Надо в валюте. Да с
йеной почемуто не работает. А так идёт на север.

Всё, убегаю на работу. Буду только поздно вечером.
Скачай, прогони на визуализации на Eurusd H1

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 07:10
↓

Да, каюсь, надо было так и сделать. Понадеялся что хватит
обьяснения. Насчет этого советника. нужно чтобы закрытие было
в валюте. во вторых он не работает с йеной -что то с запятой.
третье хотелось иметь возможность редактирования кода.

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 11:39
↓

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

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

//--- Inputs
extern int    StopLoss       = 300;       // лось 
extern int    TakeProfit     = 500;       // язь
extern int    Delta          = 200;       // дельта
extern double Profit         = 100;       // профит в валюте
extern double Lots           = 0.1;       // лот
extern int    Slip           = 30;        // проскальзывание
extern int    Count          = 1;         // количество открываемых ордеров
extern int    Magic          = 123;       // магик

double Lot[10]={0.01,0.02,0.03,0.06,0.12,0.24,0.48,0.96,1.92,3.84};
double BuyStopPrice=0, SellStopPrice=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
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()==OP_BUY || OrderType()==OP_SELL)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+  
int LastOrderType()
  {
   int type=0;
   if(OrderSelect(OrdersTotal()-1,SELECT_BY_POS,MODE_TRADES))
     {
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
        {
         if(OrderType()==OP_BUY)  type=1; //sell
         if(OrderType()==OP_SELL) type=2; //buy
        }
     }
   return(type);
  }
//+------------------------------------------------------------------+  
void CloseAll()
  {
   bool cl=true;
   double pBid,pAsk;

   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            pBid=MarketInfo(OrderSymbol(),MODE_BID);
            pAsk=MarketInfo(OrderSymbol(),MODE_ASK);
            if(OrderType()==OP_BUY) cl=OrderClose(OrderTicket(),OrderLots(),fND(pBid),Slip,Blue);
            if(OrderType()==OP_SELL) cl=OrderClose(OrderTicket(),OrderLots(),fND(pAsk),Slip,Red);
           }
        }
     }
  }
//+------------------------------------------------------------------+
double fND(double d,int n=-1)
  {
   if(n<0) return(NormalizeDouble(d, Digits));
   return(NormalizeDouble(d, n));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double profit=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      bool sel=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
         if(OrderType()==OP_BUY || OrderType()==OP_SELL) profit+=OrderProfit();
     }
   return(profit);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
        {
         if(OrderMagicNumber()!=Magic || OrderSymbol()!=Symbol()) continue;
           {
            if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
            if(OrderType()==OP_BUYSTOP)  del=OrderDelete(OrderTicket());
            if(OrderType()==OP_SELLSTOP) del=OrderDelete(OrderTicket());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastDealResult()
  {
   int result=0;
   if(OrdersHistoryTotal()==0)
     {
      result=0;
     }
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()>0)
        {
         result=1;//tp  
        }
      if(OrderProfit()<0)
        {
         result=2;//sl  
        }
     }
   return(result);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
// торгуем
   int res=0,i=0;
   double tp=0,bid=0,ask=0,pr=0;

   bid=MarketInfo(Symbol(),MODE_BID);
   ask=MarketInfo(Symbol(),MODE_ASK);

   i=CountTrades();
// открытие первого ордера по условию
   if(CountTrades()<1)
     {
      //---- buy 
      if(Open[1]<Close[1] && Open[0]>Close[1])
        {
         tp=NormalizeDouble(ask+TakeProfit*Point,Digits);
         res=OrderSend(Symbol(),OP_BUY,Lot[i],NormalizeDouble(ask,Digits),Slip,0,tp,"",Magic,0,Blue);
         BuyStopPrice=ask;
         SellStopPrice=ask-Delta*Point;
         i++;
         return;
        }

      //---- sell   
      if(Open[1]>Close[1] && Open[0]<Close[1])
        {
         tp=NormalizeDouble(bid-TakeProfit*Point,Digits);
         res=OrderSend(Symbol(),OP_SELL,Lot[i],NormalizeDouble(bid,Digits),Slip,0,tp,"",Magic,0,Red);
         SellStopPrice=bid;
         BuyStopPrice=pr=bid+Delta*Point;         
         i++;
         return;
        }
     }

// открытие последующих ордеров
   if(CountTrades()>0)
     {
      if(LastOrderType()==1)
        {
         pr=SellStopPrice;
         res=OrderSend(Symbol(),OP_SELLSTOP,Lot[i],NormalizeDouble(pr,Digits),Slip,0,0,"",Magic,0,Red);
         i++;
         return;
        }

      if(LastOrderType()==2)
        {
         pr=BuyStopPrice;
         res=OrderSend(Symbol(),OP_BUYSTOP,Lot[i],NormalizeDouble(pr,Digits),Slip,0,0,"",Magic,0,Blue);
         i++;
         return;
        }
     }

   if(LastDealResult()==1)DelOrder();
   if(AllProfit()>=Profit) {CloseAll();DelOrder();}
   
   Comment("\n Profit: ",AllProfit(),
           "\n Last Order Type: ",LastOrderType());
  }
//+------------------------------------------------------------------+

</code>

Редактирован: 7 октября 2015, 12:28

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

7 октября 2015, 12:25
↑
↓

хорошо, пусть стопы останутся, я ними разберусь. Но всётаки тейк профит
должен быть только у первоначального ордера и удаляться если сработал
отложенник. А дальше все должно закрыться по суммарному профиту в валюте. Ты же ведь смотрел наверное работу советника.
(закроется не закроется — другой вопрос. Но логика должна быть такая)
Иначе нарушается стратегия. Конечно многое зависит от того, какой я
выставлю суммарный профит в меню. Тут есть свои тонкости. Надо вводить коэффициент по уровню суммарного профита после срабатывании очередного
отложенника. Но это уже другая история. Я лишь прошу повторить алгоритм
того советника.

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 13:24
↓

Советник с мкл у меня не запускается в тестере. А поставить нолики вместо стопов, надеюсь сможете самостоятельно. Если есть еще вопросы по логике работы советника, пожалуйста.

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

7 октября 2015, 13:28
↑
↓

в меню советника в первой строке измени мануал на работу по индикатору.
По йене — дело не в ноликах. Когда я ставлю дельту 30, советник устанавливает её 3000. Я бы рад поставить в меню 0.3, так не даёт.

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 13:35
↓

А, с ноликами то это про стопы а я тут про йену. Туплю.

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 13:42
↓

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

третье хотелось иметь возможность редактирования кода.

Неужели пункт с дельтой и условием вызывает у вас затруднения?

По йене — дело не в ноликах. Когда я ставлю дельту 30, советник устанавливает её 3000. Я бы рад поставить в меню 0.3, так не даёт.

Дельта в настройках. Нужно всего лишь поменять инт на дабл.

extern int Delta = 200; // дельта

А для входов вызвать индикатор и прописать условие.

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

7 октября 2015, 13:45
↓

Да я имел ввиду советник который по ссылке. А там только exe файл.

Редактирован: 7 октября 2015, 14:00

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 13:49
↓

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

в меню советника в первой строке измени мануал на работу по индикатору.

Какой индикатор?

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

7 октября 2015, 16:10
↑
↓

Сделал все стопы отключаемыми и дабл дельту.


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

//--- Inputs ---        Если 0-нет стопа
extern int    StopLoss       = 300;       // лось для рыночного ордера
extern int    TakeProfit     = 500;       // язь для рыночного ордера
extern int    SStopLoss      = 300;       // лось для отложенного ордера
extern int    STakeProfit    = 500;       // язь для отложенного ордера
extern double Delta          = 200;       // дельта
extern double Profit         = 100;       // профит в валюте
extern int    Slip           = 30;        // проскальзывание для рыночного ордера
extern int    Sslip          = 0;         // проскальзывание для отложенного ордера
extern int    Count          = 1;         // количество открываемых ордеров
extern int    Magic          = 123;       // магик

double Lot[10]={0.01,0.02,0.03,0.06,0.12,0.24,0.48,0.96,1.92,3.84};
double BuyStopPrice=0, SellStopPrice=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
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()==OP_BUY || OrderType()==OP_SELL)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+  
int LastOrderType()
  {
   int type=0;
   if(OrderSelect(OrdersTotal()-1,SELECT_BY_POS,MODE_TRADES))
     {
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
        {
         if(OrderType()==OP_BUY)  type=1; //sell
         if(OrderType()==OP_SELL) type=2; //buy
        }
     }
   return(type);
  }
//+------------------------------------------------------------------+  
void CloseAll()
  {
   bool cl=true;
   double pBid,pAsk;

   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            pBid=MarketInfo(OrderSymbol(),MODE_BID);
            pAsk=MarketInfo(OrderSymbol(),MODE_ASK);
            if(OrderType()==OP_BUY) cl=OrderClose(OrderTicket(),OrderLots(),fND(pBid),Slip,Blue);
            if(OrderType()==OP_SELL) cl=OrderClose(OrderTicket(),OrderLots(),fND(pAsk),Slip,Red);
           }
        }
     }
  }
//+------------------------------------------------------------------+
double fND(double d,int n=-1)
  {
   if(n<0) return(NormalizeDouble(d, Digits));
   return(NormalizeDouble(d, n));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double profit=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      bool sel=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
         if(OrderType()==OP_BUY || OrderType()==OP_SELL) profit+=OrderProfit();
     }
   return(profit);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
        {
         if(OrderMagicNumber()!=Magic || OrderSymbol()!=Symbol()) continue;
           {
            if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
            if(OrderType()==OP_BUYSTOP)  del=OrderDelete(OrderTicket());
            if(OrderType()==OP_SELLSTOP) del=OrderDelete(OrderTicket());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastDealResult()
  {
   int result=0;
   if(OrdersHistoryTotal()==0)
     {
      result=0;
     }
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()>0)
        {
         result=1;//tp  
        }
      if(OrderProfit()<0)
        {
         result=2;//sl  
        }
     }
   return(result);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
// торгуем
   int res=0,i=0;
   double sl=0,tp=0,bid=0,ask=0,pr=0;

   bid=MarketInfo(Symbol(),MODE_BID);
   ask=MarketInfo(Symbol(),MODE_ASK);

   i=CountTrades();
// открытие первого ордера по условию
   if(CountTrades()<1)
     {
      //---- buy 
      if(Open[1]<Close[1] && Open[0]>Close[1])
        {
         if(StopLoss>0) sl=NormalizeDouble(ask-StopLoss*Point,Digits); else sl=0;
         if(TakeProfit>0) tp=NormalizeDouble(ask+TakeProfit*Point,Digits);  else tp=0;
         res=OrderSend(Symbol(),OP_BUY,Lot[i],NormalizeDouble(ask,Digits),Slip,sl,tp,"",Magic,0,Blue);
         BuyStopPrice=ask;
         SellStopPrice=ask-Delta*Point;
         i++;
         return;
        }

      //---- sell   
      if(Open[1]>Close[1] && Open[0]<Close[1])
        {
         if(StopLoss>0) sl=NormalizeDouble(bid+StopLoss*Point,Digits); else sl=0;
         if(TakeProfit>0) tp=NormalizeDouble(bid-TakeProfit*Point,Digits);  else tp=0;
         res=OrderSend(Symbol(),OP_SELL,Lot[i],NormalizeDouble(bid,Digits),Slip,sl,tp,"",Magic,0,Red);
         SellStopPrice=bid;
         BuyStopPrice=pr=bid+Delta*Point;         
         i++;
         return;
        }
     }

// открытие последующих ордеров
   if(CountTrades()>0)
     {
      if(LastOrderType()==1)
        {
         pr=SellStopPrice;
         if(SStopLoss>0) sl=NormalizeDouble(pr+SStopLoss*Point,Digits); else sl=0;
         if(STakeProfit>0) tp=NormalizeDouble(pr-STakeProfit*Point,Digits);  else tp=0;
         res=OrderSend(Symbol(),OP_SELLSTOP,Lot[i],NormalizeDouble(pr,Digits),Sslip,sl,tp,"",Magic,0,Red);
         i++;
         return;
        }

      if(LastOrderType()==2)
        {
         pr=BuyStopPrice;
         if(SStopLoss>0) sl=NormalizeDouble(pr-SStopLoss*Point,Digits); else sl=0;
         if(STakeProfit>0) tp=NormalizeDouble(pr+STakeProfit*Point,Digits);  else tp=0;
         res=OrderSend(Symbol(),OP_BUYSTOP,Lot[i],NormalizeDouble(pr,Digits),Sslip,sl,tp,"",Magic,0,Blue);
         i++;
         return;
        }
     }

   if(LastDealResult()==1)DelOrder();
   if(AllProfit()>=Profit) {CloseAll();DelOrder();}
   
   Comment("\n Profit: ",AllProfit(),
           "\n Last Order Type: ",LastOrderType());
  }
//+------------------------------------------------------------------+

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

7 октября 2015, 16:28
↓

Андрей, наверное я плохо объясняю. Такое ощущение что мы общаемся через переводчика. Но всётаки, тейк профит должен быть только у первоначального ордера и удаляться если сработал следующий за ним отложенник. А дальше все должно закрыться по суммарному профиту в валюте. Больше ничего делать не надо.
Вот посмотри на картинку shot.qip.ru/00GmGP-5Ogbqip5F/
Это последняя твоя версия. Всё замечательно. Только первый рыночный ордер BUY
закрылся по своему ТП уже после того как сработали отложенники. А нужно было
чтобы ТП этого первого ордера удалился после сработки sellstop и чтобы этот первый BUY закрылся вместе со всеми.

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 23:10
↓

Андрей, наверное я плохо объясняю. Такое ощущение что мы общаемся через переводчика. Но всётаки, тейк профит должен быть только у первоначального ордера и удаляться если сработал следующий за ним отложенник.

Хорошо. Там у первоначального ордера не убирается ТП когда срабатывает стоповый ордер.

Вы определитесь пожалуйста.

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

7 октября 2015, 23:20
↑
↓

Ну так да. Выставился BUY. У него выставился ТП. Одновременно выставился Sellstop.
Здесь нормально. Дальше цена пошла вниз сработал Sellstop. ТП ордера Buy должен
удалиться. А он не удаляется. Что не так?

9 vikas Автор Сообщений: 113 - Алексей

7 октября 2015, 23:44
↓

Я вот давал тебе ссылку на советника с сайта mql5. Ты говоришь он у тебя в тестере не запускается. Там просто в меню в первой строчке надо надо поменять «manual»
на «by indicator». Тогда он тестится. (если тебе это ещё интересно)

9 vikas Автор Сообщений: 113 - Алексей

8 октября 2015, 00:04
↓

vikas, реально интересный советник

Думаете, он будет лучше работать, если закрытие в валюте, а не в пунктах?

27 Oxy Сообщений: 3418 - ..ιllιlι.lι.ιllι.ιlι..

8 октября 2015, 04:58
↑
↓

Странно как то, вы же когда то делали мне похожий советник и вас тогда не заинтересовало.

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

14 beton2011 Сообщений: 895

8 октября 2015, 09:20
↑
↓

beton2011, ваша идея не дала такого графика, стремящегося на север

27 Oxy Сообщений: 3418 - ..ιllιlι.lι.ιllι.ιlι..

8 октября 2015, 15:10
↑
↓

Oxy, доброе утро. Честно, не знаю. Но попробовать надо. Дело в том что во флете
он иногда открывает очень много ордеров. Очень здорово растёт маржа. По пунктам
он не доходит до закрытия. А вот в валюте мог бы. Ну и вообще я хотел поиграться
с кодом — изменить например условия открытия ордера, ввести какие нибудь коэффициенты, фильтры и т.д. Я уже так делал в предыдущих ваших с Андреем советниках.

9 vikas Автор Сообщений: 113 - Алексей

8 октября 2015, 06:44
↓

Много ордеров, это большой минус этого советника.
Одно из решений — более точные сигналы для входа.

27 Oxy Сообщений: 3418 - ..ιllιlι.lι.ιllι.ιlι..

8 октября 2015, 15:13
↑
↓

Вот это условие не срабатывает чтобы я ни пытался:

if(CountTrades()==2)

Так работает удаляет тейк:

if(DelTP==1) DellTP();

А так ни в какую:


   if(CountTrades()==2)
     {
      if(DelTP==1) DellTP();
     }

Смотрите может у вас получится:


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

//--- Inputs
extern int    StopLoss       = 300;       // лось 
extern int    TakeProfit     = 500;       // язь
extern int    Delta          = 200;       // дельта
extern int    DelTP          = 1;         // 0-тейк не убирается 1-убирается
extern double Profit         = 100;       // профит в валюте
extern double Lots           = 0.1;       // лот
extern int    Slip           = 30;        // проскальзывание
extern int    Count          = 1;         // количество открываемых ордеров
extern int    Magic          = 123;       // магик

double Lot[10]={0.01,0.02,0.03,0.06,0.12,0.24,0.48,0.96,1.92,3.84};
double BuyStopPrice=0,SellStopPrice=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
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()==OP_BUY || OrderType()==OP_SELL)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+  
int LastOrderType()
  {
   int type=0;
   if(OrderSelect(OrdersTotal()-1,SELECT_BY_POS,MODE_TRADES))
     {
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
        {
         if(OrderType()==OP_BUY)  type=1; //sell
         if(OrderType()==OP_SELL) type=2; //buy
        }
     }
   return(type);
  }
//+------------------------------------------------------------------+  
void CloseAll()
  {
   bool cl=true;
   double pBid,pAsk;

   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            pBid=MarketInfo(OrderSymbol(),MODE_BID);
            pAsk=MarketInfo(OrderSymbol(),MODE_ASK);
            if(OrderType()==OP_BUY) cl=OrderClose(OrderTicket(),OrderLots(),fND(pBid),Slip,Blue);
            if(OrderType()==OP_SELL) cl=OrderClose(OrderTicket(),OrderLots(),fND(pAsk),Slip,Red);
           }
        }
     }
  }
//+------------------------------------------------------------------+
double fND(double d,int n=-1)
  {
   if(n<0) return(NormalizeDouble(d, Digits));
   return(NormalizeDouble(d, n));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double profit=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      bool sel=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
         if(OrderType()==OP_BUY || OrderType()==OP_SELL) profit+=OrderProfit();
     }
   return(profit);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
        {
         if(OrderMagicNumber()!=Magic || OrderSymbol()!=Symbol()) continue;
           {
            if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
            if(OrderType()==OP_BUYSTOP)  del=OrderDelete(OrderTicket());
            if(OrderType()==OP_SELLSTOP) del=OrderDelete(OrderTicket());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastDealResult()
  {
   int result=0;
   if(OrdersHistoryTotal()==0)
     {
      result=0;
     }
   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()>0)
        {
         result=1;//tp  
        }
      if(OrderProfit()<0)
        {
         result=2;//sl  
        }
     }
   return(result);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DellTP()
  {
   bool mod;
   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)
              {
               if(OrderTakeProfit()>0) mod=OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),0,0,Yellow);
               return;
              }
            if(OrderType()==OP_SELL)
              {
               if(OrderTakeProfit()>0) mod=OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),0,0,Yellow);
               return;
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
// торгуем
   int res=0,i=0;
   double tp=0,bid=0,ask=0,pr=0;

   bid=MarketInfo(Symbol(),MODE_BID);
   ask=MarketInfo(Symbol(),MODE_ASK);

   i=CountTrades();
// открытие первого ордера по условию
   if(CountTrades()<1)
     {
      //---- buy 
      if(Open[1]<Close[1] && Open[0]>Close[1])
        {
         tp=NormalizeDouble(ask+TakeProfit*Point,Digits);
         res=OrderSend(Symbol(),OP_BUY,Lot[i],NormalizeDouble(ask,Digits),Slip,0,tp,"",Magic,0,Blue);
         BuyStopPrice=ask;
         SellStopPrice=ask-Delta*Point;
         i++;
         return;
        }

      //---- sell   
      if(Open[1]>Close[1] && Open[0]<Close[1])
        {
         tp=NormalizeDouble(bid-TakeProfit*Point,Digits);
         res=OrderSend(Symbol(),OP_SELL,Lot[i],NormalizeDouble(bid,Digits),Slip,0,tp,"",Magic,0,Red);
         SellStopPrice=bid;
         BuyStopPrice=pr=bid+Delta*Point;
         i++;
         return;
        }
     }

// открытие последующих ордеров
   if(CountTrades()>0)
     {
      if(LastOrderType()==1)
        {
         pr=SellStopPrice;
         res=OrderSend(Symbol(),OP_SELLSTOP,Lot[i],NormalizeDouble(pr,Digits),Slip,0,0,"",Magic,0,Red);
         i++;
         return;
        }

      if(LastOrderType()==2)
        {
         pr=BuyStopPrice;
         res=OrderSend(Symbol(),OP_BUYSTOP,Lot[i],NormalizeDouble(pr,Digits),Slip,0,0,"",Magic,0,Blue);
         i++;
         return;
        }
     }
     
   if(CountTrades()==2)
     {
      if(DelTP==1) DellTP();
     }
     
   if(LastDealResult()==1)DelOrder();
   if(AllProfit()>=Profit) {CloseAll();DelOrder();}


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

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

8 октября 2015, 11:09
↓

хорошо я конечно буду пробовать.
Тогда может его не удалять а загнать
куда подальше. А в меню указать куда?
главное ведь что бы он не мешал.
Все равно ведь закрытие то в валюте?
Короче модифицировать?

9 vikas Автор Сообщений: 113 - Алексей

8 октября 2015, 11:26
↓

Можно поставить 0 или сделать побольше пунктов.

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

8 октября 2015, 12:25
↑
↓

Андрей это ты что имел ввиду? Поставить сразу в меню?
Или в процессе модификации?
Если первое то не подходит.
Если второе то я об этом и говорил.

9 vikas Автор Сообщений: 113 - Алексей

8 октября 2015, 12:48
↓

Андрей, посмотрел последнюю версию. Давай закончим на этом. Тебе большое
спасибо за упорство и терпение. Дальше я сам.

9 vikas Автор Сообщений: 113 - Алексей

8 октября 2015, 17:47
↓

Проблема решена.

9 vikas Автор Сообщений: 113 - Алексей

8 октября 2015, 20:29
↓

и как решили?, можно поинтересоватся *pardon*

Редактирован: 17 октября 2015, 04:40

16 cerber04 Сообщений: 409

17 октября 2015, 04:39
↑
↓

изменил блок void DellTP() на:

void ModifyOrders() {
  int tip,Ticket;
   double SL=0,TP=0;
   double OOP;
  
   for (int i=0; i<OrdersTotal(); i++) 
   {  
      if (OrderSelect(i, SELECT_BY_POS,MODE_TRADES))
      {  
         tip = OrderType();
         if (OrderSymbol()==Symb && OrderMagicNumber()==Magic && (OrderType()==OP_BUY || OrderType()==OP_SELL))
         {
            
            
            {  
               OOP   = OrderOpenPrice();
               Ticket = OrderTicket();
                
               if (tip==OP_BUY)             
               {
                  if (STakeProfit!=0) TP = NormalizeDouble(OOP + STakeProfit*Point,Digits); 
                  if (SStopLoss!=0)   SL = NormalizeDouble(OOP - SStopLoss*Point,Digits);  
                    
                  if(OrderTakeProfit()!=TP)  int number =OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,Yellow);
                 
               }  
                                                       
               if (tip==OP_SELL)        
               {
                  if (STakeProfit!=0) TP = NormalizeDouble(OOP - STakeProfit*Point,Digits); 
                  if (SStopLoss!=0)   SL = NormalizeDouble(OOP + SStopLoss*Point,Digits);
                  
                  if(OrderTakeProfit()!=TP)  int number1 =OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,Yellow);              
                  
                  
               } 
            }
         }
      }
      
   }

}

9 vikas Автор Сообщений: 113 - Алексей

20 октября 2015, 22:34
↑
↓

Обманула систему

Научилась делать графики, смотрящие строго на север.
Осталось выровнять кривую баланса.

27 Oxy Сообщений: 3418 - ..ιllιlι.lι.ιllι.ιlι..

8 октября 2015, 23:20
↓

Шпильки пускаешь?

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

9 октября 2015, 14:26
↑
↓

доработанный по золоту за 2 года shot.qip.ru/00GmGP-5Ogbqip64/

9 vikas Автор Сообщений: 113 - Алексей

9 октября 2015, 06:54
↓

Советник класный делает прибыль, но не срабатывают на некоторых парах отложки и получается прибыль есть но маленькая. Пожалуста посмотрите почему не выставляются ордера.

Вот советник

yadi.sk/d/42dCUGHJpPpKE

15 cashyra Сообщений: 392 - Юра

24 февраля 2016, 10:23
↓

Пожалуста посмотрите почему не выставляются ордера.

Нужно ставить на отладку, а это трейдерам от 3-го уровня после создания топика с столе заказов.

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

24 февраля 2016, 20:30
↓

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

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

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

РЕКОМЕНДУЮ

Лучшее от vikas

хеджирующий советник

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

ЧАТ ТРЕЙДЕРОВ

Быстрое соединение

Текущие конкурсы и акции

Из недавнего:

	vikas Алексей Уровень 9

Авторизация

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

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

РЕКОМЕНДУЮ

Лучшее от vikas

хеджирующий советник

Вставка изображения

СМАЙЛИКИ

Позитив

Негатив

Роли

Еще

Плакаты, знаки

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

ЧАТ ТРЕЙДЕРОВ

Быстрое соединение

Текущие конкурсы и акции

Из недавнего: