Сова

[*]

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

Здраствуйте Андрей сделайте пожалуйста сову на основе двух индикаторов:

moving_averages.mq4 (10 Kb)

moving_averages.ex4 (15 Kb)
параметры скользящей 105, применить к close
и второй индикатор

WPR.mq4 (2 Kb)

WPR.ex4 (8 Kb)
параметры индюка WPR период 21, уровни -95 и -5
вход в бай если цена выше скользящей и касается уровня -95 в индюке WPR
вход в сел если цена ниже скользящей и касается уровня-5 в индюке WPR
В сове должны быть:
1 Тейк стоп
2 время тороговли
3 увеличение лота после минусовой сделки
4 регулироваемый лот
5 возможность изменение уровней и периода индикатора WPR в сове
6 изменение настроек параметров скользящей тоже в сове
7 вход в сделку с на текущей свече или на закрытой
8 сделки или на каждый сигнал или 1 вход пока не достигнем или тейка или стопа функция переключаемая
пример скриншота вход в селл

пример входа в бай

разное

+2
Просмотров: 2623
1 ноября 2016, 00:47
ruslan71

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

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

Предыдущая запись в группе Советник помошник	Следующая запись в группе Советник для MT4, работающий с мувингами
30 октября 2016	02 ноября 2016

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

Помню делал с МА и WPR, посмотрите в базе, если не найдете тогда с нуля напишу.

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

1 ноября 2016, 05:06
↓

Ок посмотрю отпишусь

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 09:53
↓

Андрей просто с WPR нашел с ма нет

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 10:10
↓

Сделал все по ТЗ: www.opentraders.ru/downloads/1375/


//+------------------------------------------------------------------+
//|                                                   MissMarple.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 string StartTime  = "00:00";  // время начала торговли
extern string EndTime    = "23:00";  // время окончания торговли
extern double Lots       = 0.1;      // лот
extern double KLot       = 1;        // умножение лота
extern double MaxLot     = 5;        // максимальный лот
extern int StopLoss      = 2000;     // лось
extern int TakeProfit    = 3000;     // язь
extern int Slip          = 30;       // реквот
extern int MAPeriod      = 12;       // период МА
extern int WPRPeriod     = 21;       // период WPR
extern int WPRLevel      = 5;        // уровень WPR
extern int Shift         = 1;        // на каком баре сигнал индикатора
extern int OnePos        = 1;        // 1-одна поза 0-несколько
extern int Magic         = 123;      // магик

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;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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 ma=iMA(NULL,0,MAPeriod,0,0,0,Shift);
   double wpr1=iWPR(NULL,0,WPRPeriod,Shift);
   double wpr2=iWPR(NULL,0,WPRPeriod,Shift+1);

   if(Ask>ma && wpr1>-100+WPRLevel && wpr2<-100+WPRLevel)
     {
      PutOrder(0,Ask);
     }

   if(Bid<ma && wpr2>-WPRLevel && wpr1<-WPRLevel)
     {
      PutOrder(1,Bid);
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   datetime End=StringToTime(EndTime);
   datetime Start=StringToTime(StartTime);

   if(TimeCurrent()>Start && TimeCurrent()<End)
     {
      if(t!=Time[0] && OnePos<1)
        {
         OpenPos();
         t=Time[0];
        }

      if(CountTrades()<1 && OnePos>0) OpenPos();
     }
  }
//+------------------------------------------------------------------+

Редактирован: 1 ноября 2016, 10:18

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

1 ноября 2016, 10:12
↓

вобщем все нормально только в настройки совы в ведите пожалуста параметры уровней индикатора WPR чтобы можно было менять в настройках совы

и также с индюком скользящей

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 22:58
↑
↓

Для впр уровень считает так:
верхний = — WPRLevel,
нижний = -100 + WPRLevel.

extern int WPRLevel = 5;  // уровень WPR

Настройки МА добавил:


extern int MAShift       = 0;        // сдвиг МА
extern int MAMethod      = 0;        // метод МА
extern int MAPrice       = 0;        // цены МА


//+------------------------------------------------------------------+
//|                                                   MissMarple.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 string StartTime  = "00:00";  // время начала торговли
extern string EndTime    = "23:00";  // время окончания торговли
extern double Lots       = 0.1;      // лот
extern double KLot       = 1;        // умножение лота
extern double MaxLot     = 5;        // максимальный лот
extern int StopLoss      = 2000;     // лось
extern int TakeProfit    = 3000;     // язь
extern int Slip          = 30;       // реквот
extern int MAPeriod      = 12;       // период МА
extern int MAShift       = 0;        // сдвиг МА
extern int MAMethod      = 0;        // метод МА
extern int MAPrice       = 0;        // цены МА
extern int WPRPeriod     = 21;       // период WPR
extern int WPRLevel      = 5;        // уровень WPR
extern int Shift         = 1;        // на каком баре сигнал индикатора
extern int OnePos        = 1;        // 1-одна поза 0-несколько
extern int Magic         = 123;      // магик

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;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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 ma=iMA(NULL,0,MAPeriod,MAShift,MAMethod,MAPrice,Shift);
   double wpr1=iWPR(NULL,0,WPRPeriod,Shift);
   double wpr2=iWPR(NULL,0,WPRPeriod,Shift+1);

   if(Ask>ma && wpr1>-100+WPRLevel && wpr2<-100+WPRLevel)
     {
      PutOrder(0,Ask);
     }

   if(Bid<ma && wpr2>-WPRLevel && wpr1<-WPRLevel)
     {
      PutOrder(1,Bid);
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   datetime End=StringToTime(EndTime);
   datetime Start=StringToTime(StartTime);

   if(TimeCurrent()>Start && TimeCurrent()<End)
     {
      if(t!=Time[0] && OnePos<1)
        {
         OpenPos();
         t=Time[0];
        }

      if(CountTrades()<1 && OnePos>0) OpenPos();
     }
  }
//+------------------------------------------------------------------+

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

1 ноября 2016, 23:19
↑
↓

Спасибо огромное протестю вечерком

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 15:27
↓

Андрей как в сове настроить уровни идикатора WPR там два уровня стоят по умолчанию в положении5 написано чтобы можно было менять уровни

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 22:30
↓

За настройки ма спасибо насчет уровней индюка WPR не понял *wall*

как проставить уровни -95 и -5 а то поумолчанию -80 -20

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 23:35
↓

как проставить уровни -95 и -5

WPRLevel = 5.

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

2 ноября 2016, 01:54
↑
↓

Уважаемый Андрей обьясните тогда почему при выставлении в индюке МА переменной период который мне нужен при выключении тестора индюк МА остается в том положении который я задал в сове а индюк WPR при цифре 5 уровни все равно остаються по у молчанию?

22 ruslan71 Автор Сообщений: 995 - Руслан

2 ноября 2016, 08:42
↑
↓

индюк WPR при цифре 5 уровни все равно остаются по у молчанию?

У разработчиков терминала спросите.

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

2 ноября 2016, 08:48
↑
↓

какое бы я числовое значение extern int WPRLevel не ставил ве равно остаеться -20 и -80

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 23:43
↓

какое бы я числовое значение extern int WPRLevel не ставил ве равно остаеться -20 и -80

Торгует по тем у ровням что прописали, а в тестере уровни ставятся по умолчанию.

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

2 ноября 2016, 01:53
↑
↓

можно в сову в вести уровни идюка какие я бы прописывал такие бы и были?

22 ruslan71 Автор Сообщений: 995 - Руслан

1 ноября 2016, 23:57
↓

можно в сову в вести уровни идюка какие я бы прописывал такие бы и были?

Это нужно только когда уровни разные, например верх -10 низ -70.

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

2 ноября 2016, 01:57
↑
↓

Уважаемый Андрей огромное спасибо за сову все работает как нужно вы были правы насчет индюка WPR на графике по че муто в тесторе он показывает уровни по умолчанию а торгует потем уровням которым нужно Просьба огромная если есть время у вас возможно ли добавить в сову одну функцию расстояние цены от МА в пунктиках тобишь вы ставляю 1 пукт значит входы от одного пункта и больше при 0 не входим или 3 пункта торгуем от 3 и больше если возможно конечно *stesnitelno*

на скрине ниже

22 ruslan71 Автор Сообщений: 995 - Руслан

2 ноября 2016, 21:18
↓

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

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

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

РЕКОМЕНДУЮ

Сова

[*]

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

Рейтинг брокеров FOREX

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

	ruslan71 Руслан Уровень 22

Авторизация

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

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

РЕКОМЕНДУЮ

Сова [*]

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

СМАЙЛИКИ

Позитив

Негатив

Роли

Еще

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

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

Рейтинг брокеров FOREX

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

Сова

[*]