по индикатору сделать советник / Стол заказов MQL / OpenTraders - блогплатформа для трейдеров финансовых рынков

+1

Часам к 9 набросаю вариант.

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

11 марта 2016, 17:08
↓

0

Спасибо Андрей *good*

3 qiparisum Автор Сообщений: 11

11 марта 2016, 18:32
↑
↓

0

присылайте задание, сделаю платно и качественно.
sovetnikov.net/

2 DKeN Сообщений: 38 - Александр Гаврилин

11 марта 2016, 17:31
↓

+3

Андрей хорошо реализует идеи в рамках этой группы бесплатно. И если советник оправдывает ожидания, то и здесь запрограммируют платно и качественно.
Редактирован: 11 марта 2016, 17:48

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

11 марта 2016, 17:46
↑
↓

0

Александр, сколько у вас стоит подобный советник?

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

11 марта 2016, 19:26
↑
↓

0

такой 4000 руб

2 DKeN Сообщений: 38 - Александр Гаврилин

11 марта 2016, 21:39
↑
↓

0

такой 4000 руб

А такой? strategy.opentraders.ru/31204.html

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

11 марта 2016, 21:56
↑
↓

0

такой 4000 руб

чего-то я тогда дешево делаю

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

11 марта 2016, 22:38
↑
↓

+1

Александр тут качественно и бесплатно. Можешь проверить напиши тех задание… но надо набрать 3 уровень *good*

13 Jora1973 Сообщений: 114

11 марта 2016, 17:51
↓

0

Готово:


//+------------------------------------------------------------------+
//|                                                           FL.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 double KLot       = 1;        // умножение лота
extern double MaxLot     = 5;        // максимальный лот
extern int StopLoss      = 0;        // лось
extern int TakeProfit    = 0;        // язь
extern int BULevel       = 0;        // уровень БУ
extern int BUPoint       = 30;       // пункты БУ
extern int TrailingStop  = 300;      // трал
extern int Slip          = 30;       // реквот
extern int Shift         = 1;        // сдвиг
extern int Magic         = 123;      // магик
extern string IndName    = "FL01";

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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,Lot(),NormalizeDouble(price,Digits),Slip,sl,tp,"",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);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OpenPos()
  {
   double up = iCustom(NULL,0,IndName,1,Shift);
   double dn = iCustom(NULL,0,IndName,2,Shift);

   if(Open[1]<dn && Close[1]>dn)
     {
      PutOrder(0,Ask);
     }

   if(Open[1]>up && Close[1]<up)
     {
      PutOrder(1,Bid);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void ClosePos()
  {
   double up = iCustom(NULL,0,IndName,1,Shift);
   double dn = iCustom(NULL,0,IndName,2,Shift);
//---
   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(Open[1]>up && Close[1]<up)
                 {
                  if(!OrderClose(OrderTicket(),OrderLots(),Bid,Slip,White))
                     Print("OrderClose error ",GetLastError());
                 }
              }
            if(OrderType()==OP_SELL)
              {
               if(Open[1]<dn && Close[1]>dn)
                 {
                  if(!OrderClose(OrderTicket(),OrderLots(),Ask,Slip,White))
                     Print("OrderClose error ",GetLastError());
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot()
  {
   double lot=Lots;

   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()<0)
        {
         lot=OrderLots()*KLot;
        }
     }
   if(lot>MaxLot)lot=Lots;
   return(lot);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Trailing()
  {
   bool mod;
   for(int i=0; i<OrdersTotal(); i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() || OrderMagicNumber()==Magic)
           {
            if(OrderType()==OP_BUY)
              {
               if(Bid-OrderOpenPrice()>TrailingStop*Point)
                 {
                  if(OrderStopLoss()<Bid-TrailingStop*Point)
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*Point,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if((OrderOpenPrice()-Ask)>TrailingStop*Point)
                 {
                  if((OrderStopLoss()>(Ask+TrailingStop*Point)) || (OrderStopLoss()==0))
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+TrailingStop*Point,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void BU()
  {
   bool m;
   for(int i=0; i<OrdersTotal(); i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() || OrderMagicNumber()==Magic)
           {
            if(OrderType()==OP_BUY)
              {
               if(OrderOpenPrice()<=(Bid-(BULevel+BUPoint)*Point) && OrderOpenPrice()>OrderStopLoss())
                 {
                  m=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+BUPoint*Point,OrderTakeProfit(),0,Green);
                  return;
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if(OrderOpenPrice()>=(Ask+(BULevel+BUPoint)*Point) && OrderOpenPrice()<OrderStopLoss())
                 {
                  m=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-BUPoint*Point,OrderTakeProfit(),0,Green);
                  return;
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double up = iCustom(NULL,0,IndName,1,Shift);
   double dn = iCustom(NULL,0,IndName,2,Shift);

   if(CountTrades()<1)
     {
      OpenPos();
     }
   else ClosePos();

   if(BULevel>0) BU();
   if(TrailingStop>0) Trailing();

   Comment("\n UP: ",up,
           "\n DN: ",dn);
  }
//+------------------------------------------------------------------+

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

11 марта 2016, 20:06
↓

0

хороший код, но
1. вместо значений типа ордеров используйте их именованные константы
2. в настройки добавить рабочий ТФ, иначе при переключении ТФ советник будет работать уже по другому тф.

2 DKeN Сообщений: 38 - Александр Гаврилин

11 марта 2016, 21:45
↑
↓

0

1. вместо значений типа ордеров используйте их именованные константы
2. в настройки добавить рабочий ТФ, иначе при переключении ТФ советник будет работать уже по другому тф.

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

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

11 марта 2016, 21:53
↑
↓

0

DKeN, от вас странное «но»
Так как если рассматривать этот код чисто только для «стола заказов», то придраться не к чему — соответствует формату. Если его писать платно, то много чего в нем надо изменить и добавить. Поэтому повторюсь, эти два замечания от вас странны.
Редактирован: 11 марта 2016, 22:43

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

11 марта 2016, 22:43
↑
↓

0

Андрей, спасибо за код, опробовал — работает, но как то не так, как бы хотелось, пока пробую сам разобраться. Стесняется открывать больше одной позиции, много ложных входов и закрытий, возможно самого индюка FL01.mq4 нужно подшаманить, в общем буду ковыряться. Ещё раз спасибо. *good*

3 qiparisum Автор Сообщений: 11

12 марта 2016, 10:14
↑
↓

0

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

У меня стоит условие на вход выход пересечение линий индикатора. Множественное открытие позиций можно сделать.

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

12 марта 2016, 13:08
↓

0

если можно сделать множественное открытий позиций, хотя бы до 5-ти, (дальше наступает слив, как не крути) то сделайте плз, а можно сделать регулировку закрытия позиции +5,7,9… пунктов от существующего условия закрытия? и очень неудобно когда одна позиция закрывается и тут же открывается противоположная, тоже бы какую нибудь регулировку придумать, хотя бы таймаут в секундах прикрутить. Андрей если это в ваших силах, добавьте эти условия, за раннее благодарен.
Редактирован: 13 марта 2016, 10:15

3 qiparisum Автор Сообщений: 11

12 марта 2016, 14:28
↑
↓

+1

Сейчас вход при пересечении а выход при касании, плюс несколько позиций: www.opentraders.ru/downloads/1094/

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

13 марта 2016, 20:33
↓

0

Андрей, спасибо, на первых парах теста уже вижу — то что надо! огроменное спасибо. буду мучить в тестере, думаю с него что то толковое должно получится *good*

Редактирован: 14 марта 2016, 05:54

3 qiparisum Автор Сообщений: 11

14 марта 2016, 05:52
↑
↓

0

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

3 qiparisum Автор Сообщений: 11

14 марта 2016, 08:57
↑
↓

0

Там есть стопы


extern int StopLoss      = 0;        // лось
extern int TakeProfit    = 0;        // язь

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

14 марта 2016, 09:18
↑
↓

0

да я видел и использовал их, но закрытие всё равно происходит по сценарию скрипта, т.е. закрывает по пересечению линий, а хотелось бы отменить сценарий и заменить на тр и sl, чтоб игнорировалось закрытие при пересечении линий, а выжидался тр или sl *stesnitelno*

скажем так: входы по скрипту верны, а вот выход из позиции только по TP и\или SL. Если так скрипт будет работать, то не возникнет ли ситуация, что будут открываться локирующие ордера(только со смещением)при увеличении тр и sl, т.е. он будет держать ордер в buy и пересичение линии даст сигнал на sell и исполнит его???
Редактирован: 14 марта 2016, 11:49

3 qiparisum Автор Сообщений: 11

14 марта 2016, 11:40
↑
↓

0

Всем доброго суток. А вход разве не на пересечении в селл это когда пересекает красную линию???
А в бай пересечение синей снизу вверх??? Вроде на скринах Андрея (AM2) пересечение желтой.
Скрин автора стрелками более ранний вход?

13 Pesha Сообщений: 222 - ¯\_(ツ)_/¯

14 марта 2016, 09:44
↓

0

Перерисовывается индикатор, когда реалтайм нормально все.

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

14 марта 2016, 11:32
↑
↓

+1

Сделал отключаемое закрытие


//+------------------------------------------------------------------+
//|                                                           FL.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 double KLot       = 1;        // умножение лота
extern double MaxLot     = 5;        // максимальный лот
extern int StopLoss      = 0;        // лось
extern int TakeProfit    = 0;        // язь
extern int BULevel       = 0;        // уровень БУ
extern int BUPoint       = 30;       // пункты БУ
extern int TrailingStop  = 300;      // трал
extern int Slip          = 30;       // реквот
extern int Count         = 5;        // максимальное количество позиций
extern int CloseOn       = 0;        // 1-закрытие по сигналу
extern int Shift         = 1;        // сдвиг
extern int Magic         = 123;      // магик
extern string IndName    = "FL01";

datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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,Lot(),NormalizeDouble(price,Digits),Slip,sl,tp,"",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);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OpenPos()
  {
   double up = iCustom(NULL,0,IndName,1,Shift);
   double dn = iCustom(NULL,0,IndName,2,Shift);

   if(Open[1]<dn && Close[1]>dn)
     {
      PutOrder(0,Ask);
     }

   if(Open[1]>up && Close[1]<up)
     {
      PutOrder(1,Bid);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void ClosePos()
  {
   double up = iCustom(NULL,0,IndName,1,Shift);
   double dn = iCustom(NULL,0,IndName,2,Shift);
//---
   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(Close[0]>up)
                 {
                  if(!OrderClose(OrderTicket(),OrderLots(),Bid,Slip,White))
                     Print("OrderClose error ",GetLastError());
                 }
              }
            if(OrderType()==OP_SELL)
              {
               if(Close[1]<dn)
                 {
                  if(!OrderClose(OrderTicket(),OrderLots(),Ask,Slip,White))
                     Print("OrderClose error ",GetLastError());
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot()
  {
   double lot=Lots;

   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()<0)
        {
         lot=OrderLots()*KLot;
        }
     }
   if(lot>MaxLot)lot=Lots;
   return(lot);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Trailing()
  {
   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(Bid-OrderOpenPrice()>TrailingStop*Point)
                 {
                  if(OrderStopLoss()<Bid-TrailingStop*Point)
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*Point,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if((OrderOpenPrice()-Ask)>TrailingStop*Point)
                 {
                  if((OrderStopLoss()>(Ask+TrailingStop*Point)) || (OrderStopLoss()==0))
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+TrailingStop*Point,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void BU()
  {
   bool m;
   
   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(OrderOpenPrice()<=(Bid-(BULevel+BUPoint)*Point) && OrderOpenPrice()>OrderStopLoss())
                 {
                  m=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+BUPoint*Point,OrderTakeProfit(),0,Green);
                  return;
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if(OrderOpenPrice()>=(Ask+(BULevel+BUPoint)*Point) && OrderOpenPrice()<OrderStopLoss())
                 {
                  m=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-BUPoint*Point,OrderTakeProfit(),0,Green);
                  return;
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double up = iCustom(NULL,0,IndName,1,Shift);
   double dn = iCustom(NULL,0,IndName,2,Shift);

   if(CountTrades()<=Count && t!=Time[0])
     {
      OpenPos();
      t=Time[0];
     }
   else if(CloseOn>0) ClosePos();

   if(BULevel>0) BU();
   if(TrailingStop>0) Trailing();

   Comment("\n UP: ",up,
           "\n DN: ",dn);
  }
//+------------------------------------------------------------------+

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

14 марта 2016, 12:03
↓

0

спасибо, буду его мучить

3 qiparisum Автор Сообщений: 11

14 марта 2016, 12:14
↑
↓

0

спасибо, буду его мучить.Андрей, конечно не по теме, но хотелось очень сильно узнать, возможно ли в скрипте прикручивать, допустим — «Уровни Фибоначи» по прошедшей истории за определённый промежуток времени, тиков, фигур… и полагаться(выстраивать) работу роботяги только на них?

3 qiparisum Автор Сообщений: 11

14 марта 2016, 12:37
↑
↓

0

Посмотрите в базе есть несколько советников по фибо, может подойдет какой то.

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

14 марта 2016, 13:13
↑
↓

0

А можно добавить закрытие по профиту в валюте. И ещё бы добавить разрешение на торговлю отдельно в бай и сел и магики отдельно в бай и сел. Хочу закрывать отдельно бай и сел по профиту.
Редактирован: 17 марта 2016, 12:30

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

17 марта 2016, 12:19
↓

0

похожий сов — dasaero.opentraders.ru/

4 dasAero Сообщений: 38

17 марта 2016, 13:42
↓

0

так выложите сам сов а не картинки с графика

4 sidoyy Сообщений: 80

18 марта 2016, 00:28
↑
↓

0

ограничусь пока публикацией сигнала, а не продажей сова…

4 dasAero Сообщений: 38

18 марта 2016, 09:15
↑
↓

Предыдущая запись в группе Индикатор.Отрисовка импульса	Следующая запись в группе Доработать советник HelloDual
09 марта 2016	11 марта 2016

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

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

РЕКОМЕНДУЮ

Лучшее от qiparisum

по индикатору сделать советник

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

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

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

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

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

	qiparisum Уровень 3

Авторизация

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

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

РЕКОМЕНДУЮ

Лучшее от qiparisum

по индикатору сделать советник

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

СМАЙЛИКИ

Позитив

Негатив

Роли

Еще

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

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

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

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

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

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