• Уважаемый гость! Чтобы просмотреть скрытую часть информации Вам нужно зарегистрироваться.

    Быстрая регистрация!

Советник Пишу советника КАЧЕЛИ, нужна помощь

  • Автор темы artemov2012
  • Дата начала
artemov2012

artemov2012

Участник
Регистрация
24.02.2014
Сообщения
32
Реакции
0
Пишу советника по стратегии КАЧЕЛИ, нужна помощь.
Позже выложу ТЗ и алгоритм, а сейчас вопрос:

Чтобы редактировать открытый ордер, его сначала ОБЯЗАТЕЛЬНО нужно выбрать (OrderSelect), а уже потом можно его редактировать (OrderModify)
Я всё правильно понял?
________________________
Только что заметил, что в соседней теме davidd уже выложил ТЗ советника.
только не надо говорить, что стратегия плохая и сов убыточный, я его пишу для того, чтобы лучше понять язык MQL
________________________
Вот примерный алгоритм того, что я хочу
 

Вложения

  • Панель управления
  • #2
Admin

Admin

Команда форума
Администратор
Регистрация
03.01.2013
Сообщения
2 212
Реакции
514
artemov2012 сказал(а):
Пишу советника по стратегии КАЧЕЛИ, нужна помощь.
Позже выложу ТЗ и алгоритм, а сейчас вопрос:

Чтобы редактировать открытый ордер, его сначала ОБЯЗАТЕЛЬНО нужно выбрать (OrderSelect), а уже потом можно его редактировать (OrderModify)
Я всё правильно понял?
________________________
Только что заметил, что в соседней теме davidd уже выложил ТЗ советника.
только не надо говорить, что стратегия плохая и сов убыточный, я его пишу для того, чтобы лучше понять язык MQL
________________________
Вот примерный алгоритм того, что я хочу
Нажмите, чтобы раскрыть...
Выкладывайте код и Ваши рассуждения, по мере возможности помогу...
 
artemov2012

artemov2012

Участник
Регистрация
24.02.2014
Сообщения
32
Реакции
0
Выкладывать пока даже нечего, в день пишу по 3 строки кода, 4 из которых не правильные ;D
 
artemov2012

artemov2012

Участник
Регистрация
24.02.2014
Сообщения
32
Реакции
0
Код: 
for(int i=OrdersTotal()-1; i>=0; i--)              
      if(OrderSelect(i,SELECT_BY_POS))
Какой ордер тут выбирается? Последний открытый?
Про циклы сколько не читал и не смотрел, один фиг ничего не понятно.
Т.е. понятно как работает, перебирает ордера, пока i не будет больше или равно нулю. А перебирает с последнего открытого или с первого?

1. Ну и что это дало, то что все ордера перебрали?
2. Зачем после OrdersTotal() пишется -1

Просьба объяснить про циклы как ребенку лет пяти
 
  • Панель управления
  • #5
Admin

Admin

Команда форума
Администратор
Регистрация
03.01.2013
Сообщения
2 212
Реакции
514
artemov2012 сказал(а):
Код: 
for(int i=OrdersTotal()-1; i>=0; i--)              
      if(OrderSelect(i,SELECT_BY_POS))
Какой ордер тут выбирается? Последний открытый?
Про циклы сколько не читал и не смотрел, один фиг ничего не понятно.
Т.е. понятно как работает, перебирает ордера, пока i не будет больше или равно нулю. А перебирает с последнего открытого или с первого?

1. Ну и что это дало, то что все ордера перебрали?
2. Зачем после OrdersTotal() пишется -1

Просьба объяснить про циклы как ребенку лет пяти
Нажмите, чтобы раскрыть...
1 перебор в данном случае с самого старого
2 при переборе ордеров мы видим все данные о каждом ордере, видим все данные ...
3 в языке программирования все начинается с 0 , 0 1 2 цифры 3 но последняя два, ордеров в терминале например 3 но в программе идет учет 0 1 2 и закончить мы должны на 2 а не на 3 в результате имеем 3-1
Я пишу видео со всеми обьяснениями , позже дам ссылку
 
artemov2012

artemov2012

Участник
Регистрация
24.02.2014
Сообщения
32
Реакции
0
Сейчас попробовал откомпилировать советник, чтобы проверить на наличие ошибок, выдает ошибки в функции OnInit()
'OnInit' - unexpected token Ka4eli2.mq4 21 5
'int' - some operator expected Ka4eli2.mq4 21 1
'return' - semicolon expected Ka4eli2.mq4 26 4
'{' - some operator expected Ka4eli2.mq4 22 3
'return' - semicolon expected Ka4eli2.mq4 26 4
'return' - expressions are not allowed on a global scope Ka4eli2.mq4 26 4
'}' - expressions are not allowed on a global scope Ka4eli2.mq4 27 3


Как исправить не знаю

Код: 
//+------------------------------------------------------------------+
//|                                                      Ka4eli2.mq4 |
//|                                                   Artemov Sergey |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Artemov Sergey"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
#property show_inputs

extern double StartLot = 0.01;       //Стартовый лот
input int Slip = 30;                //Проскальзывание
input int Magic = 865;              //Меджик номер
input int Trall = 100;              //Тралл
input int Koridor = 400;            //Расстояние между ордерами BUY и SELL
input double Multiplikator = 2.0    //Множитель следующего лота
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

//================================================//
// Открываем ордер                                //
//================================================//

if (OrdersTotal() == 0)   //Если открытых ордеров нету, то
      {
      OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrLime); //Открыть ордер BUY по текущей цене лотом StartLot
      }
//================================================//
// Выбираем ордер и тралим                        //
//================================================//
   double tr=NormalizeDouble(Trall*Point(),_Digits);  //Нормализуем параметр Trall
   for(int i=OrdersTotal()-1; i>=0; i--)              //Перебираем ордера
      if(OrderSelect(i,SELECT_BY_POS))                //Выбираем ордер
              {
              double oop=OrderOpenPrice();             //И так понятно
              double sl=OrderStopLoss();              //И так понятно
               if(OrderType()==OP_BUY)                //Если ордер на ПОКУПКУ, то тралим его
                 {
                if (oop < Ask && (Ask - oop) > Koridor) //Если цена открытия ордера < Ask и (Ask - цена открытия ордера) > параметра Koridor
                  if((Ask-tr)>oop)
                     if((Ask-tr)>sl)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Ask-tr),_Digits),OrderTakeProfit(),0,clrRed))
                           Print(" Error Trall BUY ",GetLastError());
                 }

                 
               if(OrderType()==OP_SELL)               //Если ордер на продажу, то тралим его
                 {
               if (oop > Bid && (oop - Bid) > Koridor) //Если цена открытия ордера < Bid и (Bid - цена открытия ордера) > параметра Koridor
                  if((Bid+tr)<oop)
                     if((Bid+tr)<sl || sl==0)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Bid+tr),_Digits),OrderTakeProfit(),0,clrRed))
                        Print(" Error Trall SELL ",GetLastError());
                 }
              }   
//================================================//
//Если цена пошла не в сторону последнего ордера  //
//================================================//
   for(int j=OrdersTotal()-1; j>=0; j--)              //Цикл
      if(OrderSelect(j,SELECT_BY_POS))                //Пытаемся выбрать последний ордер
         if(OrderType()==OP_BUY)                      //Если ордер на ПОКУНКУ
            if(OrderOpenPrice() > Ask && (OrderOpenPrice() - Ask) > Koridor) //Если ордер ушел в убыток на KORIDOR пунктов
               {
               StartLot = StartLot * Multiplikator; //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
               }






//================================================//
// Комменты для настройки сова                    //
//================================================//
Comment(
"OrderOpenPrice: " + OrderOpenPrice() +
"\nAsk: " + Ask +
"\nOrderOpenPrice - Ask: " + (OrderOpenPrice() - Ask));
  
}
//+------------------------------------------------------------------+
Прошу еще обратить внимание на 86 строку, правильно ли сделал?
Код: 
              StartLot = StartLot * Multiplikator; //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
 
  • Панель управления
  • #7
Admin

Admin

Команда форума
Администратор
Регистрация
03.01.2013
Сообщения
2 212
Реакции
514
artemov2012 сказал(а):
Сейчас попробовал откомпилировать советник, чтобы проверить на наличие ошибок, выдает ошибки в функции OnInit()
'OnInit' - unexpected token Ka4eli2.mq4 21 5
'int' - some operator expected Ka4eli2.mq4 21 1
'return' - semicolon expected Ka4eli2.mq4 26 4
'{' - some operator expected Ka4eli2.mq4 22 3
'return' - semicolon expected Ka4eli2.mq4 26 4
'return' - expressions are not allowed on a global scope Ka4eli2.mq4 26 4
'}' - expressions are not allowed on a global scope Ka4eli2.mq4 27 3


Как исправить не знаю

Код: 
//+------------------------------------------------------------------+
//|                                                      Ka4eli2.mq4 |
//|                                                   Artemov Sergey |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Artemov Sergey"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
#property show_inputs

extern double StartLot = 0.01;       //Стартовый лот
input int Slip = 30;                //Проскальзывание
input int Magic = 865;              //Меджик номер
input int Trall = 100;              //Тралл
input int Koridor = 400;            //Расстояние между ордерами BUY и SELL
input double Multiplikator = 2.0 [color=red][b];[/b][/color]   [color=red]//Множитель следующего лота[/color]
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

//================================================//
// Открываем ордер                                //
//================================================//

if (OrdersTotal() == 0)   //Если открытых ордеров нету, то
      {
      OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrLime); //Открыть ордер BUY по текущей цене лотом StartLot
      }
//================================================//
// Выбираем ордер и тралим                        //
//================================================//
   double tr=NormalizeDouble(Trall*Point(),_Digits);  //Нормализуем параметр Trall
   for(int i=OrdersTotal()-1; i>=0; i--)              //Перебираем ордера
      if(OrderSelect(i,SELECT_BY_POS))                //Выбираем ордер
              {
              double oop=OrderOpenPrice();             //И так понятно
              double sl=OrderStopLoss();              //И так понятно
               if(OrderType()==OP_BUY)                //Если ордер на ПОКУПКУ, то тралим его
                 {
                if (oop < Ask && (Ask - oop) > Koridor) //Если цена открытия ордера < Ask и (Ask - цена открытия ордера) > параметра Koridor
                  if((Ask-tr)>oop)
                     if((Ask-tr)>sl)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Ask-tr),_Digits),OrderTakeProfit(),0,clrRed))
                           Print(" Error Trall BUY ",GetLastError());
                 }

                 
               if(OrderType()==OP_SELL)               //Если ордер на продажу, то тралим его
                 {
               if (oop > Bid && (oop - Bid) > Koridor) //Если цена открытия ордера < Bid и (Bid - цена открытия ордера) > параметра Koridor
                  if((Bid+tr)<oop)
                     if((Bid+tr)<sl || sl==0)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Bid+tr),_Digits),OrderTakeProfit(),0,clrRed))
                        Print(" Error Trall SELL ",GetLastError());
                 }
              }   
//================================================//
//Если цена пошла не в сторону последнего ордера  //
//================================================//
   for(int j=OrdersTotal()-1; j>=0; j--)              //Цикл
      if(OrderSelect(j,SELECT_BY_POS))                //Пытаемся выбрать последний ордер
         if(OrderType()==OP_BUY)                      //Если ордер на ПОКУНКУ
            if(OrderOpenPrice() > Ask && (OrderOpenPrice() - Ask) > Koridor) //Если ордер ушел в убыток на KORIDOR пунктов
               {
               StartLot = StartLot * Multiplikator; //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
               }






//================================================//
// Комменты для настройки сова                    //
//================================================//
Comment(
"OrderOpenPrice: " + OrderOpenPrice() +
"\nAsk: " + Ask +
"\nOrderOpenPrice - Ask: " + (OrderOpenPrice() - Ask));
  
}
//+------------------------------------------------------------------+
Прошу еще обратить внимание на 86 строку, правильно ли сделал?
Код: 
              StartLot = StartLot * Multiplikator; //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
Нажмите, чтобы раскрыть...
input double Multiplikator = 2.0 ; //Множитель следующего лота

Вроде верно
 
  • Панель управления
  • #8
Admin

Admin

Команда форума
Администратор
Регистрация
03.01.2013
Сообщения
2 212
Реакции
514
вот посмотрите я закончил.
https://youtu.be/KJNFw1y1U7s
 
artemov2012

artemov2012

Участник
Регистрация
24.02.2014
Сообщения
32
Реакции
0
Не могу понять, почему не правильно работает.
Открывается ордер BUY, если цена ушла в убыток на Koridor пунктов, то должен открыться один ордер SELL, а у меня их открывается огромное количество

Если раскомментировать 90 строку, то при компиляции будет ошибка


Код: 
//+------------------------------------------------------------------+
//|                                                      Ka4eli2.mq4 |
//|                                                   Artemov Sergey |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Artemov Sergey"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
#property show_inputs

extern double StartLot = 0.01;       //Стартовый лот
input int Slip = 30;                //Проскальзывание
input int Magic = 865;              //Меджик номер
input int Trall = 100;              //Тралл
input int Koridor = 400;            //Расстояние между ордерами BUY и SELL
input double Multiplikator = 2.0;    //Множитель следующего лота
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

//================================================//
// Открываем ордер                                //
//================================================//

if (OrdersTotal() == 0)   //Если открытых ордеров нету, то
      {
      OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrLime); //Открыть ордер BUY по текущей цене лотом StartLot
      }
//================================================//
// Выбираем ордер и тралим                        //
//================================================//
   double tr=NormalizeDouble(Trall*Point(),_Digits);  //Нормализуем параметр Trall
   for(int i=OrdersTotal()-1; i>=0; i--)              //Перебираем ордера
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))    //Выбираем ордер
              {
              double oop=OrderOpenPrice();            //И так понятно
              double sl=OrderStopLoss();              //И так понятно
               if(OrderType()==OP_BUY)                //Если ордер на ПОКУПКУ, то тралим его
                 {
                if (oop < Ask && (Ask - oop) > (NormalizeDouble(Koridor*_Point,_Digits))) //Если цена открытия ордера < Ask и (Ask - цена открытия ордера) > параметра Koridor
                  if((Ask-tr)>oop)
                     if((Ask-tr)>sl)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Ask-tr),_Digits),OrderTakeProfit(),0,clrRed))
                           Print(" Error Trall BUY ",GetLastError());
                 }

                 
               if(OrderType()==OP_SELL)               //Если ордер на продажу, то тралим его
                 {
               if (oop > Bid && (oop - Bid) > (NormalizeDouble(Koridor*_Point,_Digits))) //Если цена открытия ордера < Bid и (Bid - цена открытия ордера) > параметра Koridor
                  if((Bid+tr)<oop)
                     if((Bid+tr)<sl || sl==0)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Bid+tr),_Digits),OrderTakeProfit(),0,clrRed))
                        Print(" Error Trall SELL ",GetLastError());
                 }
              }   
//=====================================================//
//Если цена пошла не в сторону последнего ордера,      //
//то открываем противоположный ордер увеличенным лотом //
//=====================================================//
   for(int j=OrdersTotal()-1; j>=0; j--)              //Цикл
      if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))                //Пытаемся выбрать последний ордер
        {
        
         if(OrderType()==OP_BUY)                      //Если ордер на ПОКУПКУ
            if(OrderOpenPrice() > Ask)            //Если ордер BUY ушел в убыток на KORIDOR пунктов
               if((OrderOpenPrice() - Ask) > (NormalizeDouble(Koridor*_Point,_Digits)))
                   {
                   //StartLot = StartLot * Multiplikator                                //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
                  OrderSend(Symbol(),OP_SELL,StartLot,Bid,Slip,0,0,NULL,Magic,0,clrRed);  //Открываем противоположный ордер
                   }
//=====================================================//            
            if(OrderType()==OP_SELL)
               {
               if(Bid > OrderOpenPrice() && (Bid - OrderOpenPrice()) > (NormalizeDouble(Koridor*_Point,_Digits)));          //Если ордер SELL ушел в убыток на KORIDOR пунктов
               StartLot = StartLot * Multiplikator;                                       //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
                  OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrBlue);  //Открываем противоположный ордер
               }

}


//================================================//
// Комменты для настройки сова                    //
//================================================//
Comment(
"OrderOpenPrice - Ask: " + (OrderOpenPrice() - Ask) +
"\nKORIDOR:   " + (NormalizeDouble(Koridor*_Point,_Digits)) +
"\nAsk: " + Ask +
"\nOrderOpenPrice - Ask: " + (OrderOpenPrice() - Ask));
  
}
//+------------------------------------------------------------------+
Последний открытый ордер выбирается так:
OrderSelect(OrdersTotal()-1,SELECT_BY_POS);
Верно?
 
  • Панель управления
  • #10
Admin

Admin

Команда форума
Администратор
Регистрация
03.01.2013
Сообщения
2 212
Реакции
514
artemov2012 сказал(а):
Не могу понять, почему не правильно работает.
Открывается ордер BUY, если цена ушла в убыток на Koridor пунктов, то должен открыться один ордер SELL, а у меня их открывается огромное количество

Если раскомментировать 90 строку, то при компиляции будет ошибка


Код: 
//+------------------------------------------------------------------+
//|                                                      Ka4eli2.mq4 |
//|                                                   Artemov Sergey |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Artemov Sergey"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
#property show_inputs

extern double StartLot = 0.01;       //Стартовый лот
input int Slip = 30;                //Проскальзывание
input int Magic = 865;              //Меджик номер
input int Trall = 100;              //Тралл
input int Koridor = 400;            //Расстояние между ордерами BUY и SELL
input double Multiplikator = 2.0;    //Множитель следующего лота
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{

//================================================//
// Открываем ордер                                //
//================================================//

if (OrdersTotal() == 0)   //Если открытых ордеров нету, то
      {
      OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrLime); //Открыть ордер BUY по текущей цене лотом StartLot
      }
//================================================//
// Выбираем ордер и тралим                        //
//================================================//
   double tr=NormalizeDouble(Trall*Point(),_Digits);  //Нормализуем параметр Trall
   for(int i=OrdersTotal()-1; i>=0; i--)              //Перебираем ордера
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))    //Выбираем ордер
              {
              double oop=OrderOpenPrice();            //И так понятно
              double sl=OrderStopLoss();              //И так понятно
               if(OrderType()==OP_BUY)                //Если ордер на ПОКУПКУ, то тралим его
                 {
                if (oop < Ask && (Ask - oop) > (NormalizeDouble(Koridor*_Point,_Digits))) //Если цена открытия ордера < Ask и (Ask - цена открытия ордера) > параметра Koridor
                  if((Ask-tr)>oop)
                     if((Ask-tr)>sl)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Ask-tr),_Digits),OrderTakeProfit(),0,clrRed))
                           Print(" Error Trall BUY ",GetLastError());
                 }

                 
               if(OrderType()==OP_SELL)               //Если ордер на продажу, то тралим его
                 {
               if (oop > Bid && (oop - Bid) > (NormalizeDouble(Koridor*_Point,_Digits))) //Если цена открытия ордера < Bid и (Bid - цена открытия ордера) > параметра Koridor
                  if((Bid+tr)<oop)
                     if((Bid+tr)<sl || sl==0)
                        if(!OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble((Bid+tr),_Digits),OrderTakeProfit(),0,clrRed))
                        Print(" Error Trall SELL ",GetLastError());
                 }
              }   
//=====================================================//
//Если цена пошла не в сторону последнего ордера,      //
//то открываем противоположный ордер увеличенным лотом //
//=====================================================//
   for(int j=OrdersTotal()-1; j>=0; j--)              //Цикл
      if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))                //Пытаемся выбрать последний ордер
        {
        
         if(OrderType()==OP_BUY)                      //Если ордер на ПОКУПКУ
            if(OrderOpenPrice() > Ask)            //Если ордер BUY ушел в убыток на KORIDOR пунктов
               if((OrderOpenPrice() - Ask) > (NormalizeDouble(Koridor*_Point,_Digits)))
                   {
                   //StartLot = StartLot * Multiplikator                                //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
                  OrderSend(Symbol(),OP_SELL,StartLot,Bid,Slip,0,0,NULL,Magic,0,clrRed);  //Открываем противоположный ордер
                   }
//=====================================================//            
            if(OrderType()==OP_SELL)
               {
               if(Bid > OrderOpenPrice() && (Bid - OrderOpenPrice()) > (NormalizeDouble(Koridor*_Point,_Digits)));          //Если ордер SELL ушел в убыток на KORIDOR пунктов
               StartLot = StartLot * Multiplikator;                                       //Тут пытался умножить лот для следующих ордеров, в настройках EXTERN double StartLot
                  OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrBlue);  //Открываем противоположный ордер
               }

}


//================================================//
// Комменты для настройки сова                    //
//================================================//
Comment(
"OrderOpenPrice - Ask: " + (OrderOpenPrice() - Ask) +
"\nKORIDOR:   " + (NormalizeDouble(Koridor*_Point,_Digits)) +
"\nAsk: " + Ask +
"\nOrderOpenPrice - Ask: " + (OrderOpenPrice() - Ask));
  
}
//+------------------------------------------------------------------+
Последний открытый ордер выбирается так:
OrderSelect(OrdersTotal()-1,SELECT_BY_POS);
Верно?
Нажмите, чтобы раскрыть...
Нет, что бы найти последний открытый ордер нужно в цикле сделать перебор с поиском последнего ордера по времени...
 
artemov2012

artemov2012

Участник
Регистрация
24.02.2014
Сообщения
32
Реакции
0
Уже 100 раз переписывал код и начинал заново по порядку писать, ничего не выходит.
Вот попытался написать опять с начала
Код: 
//+------------------------------------------------------------------+
//|                                                       TEST_3.mq4 |
//|                                                   Artemov Sergey |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Artemov Sergey"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
#property show_inputs

extern double StartLot = 0.01; //Стартовый лот
input int Slip = 30; //Проскальзывание
input int Magic = 865; //Меджик
input int Koridor = 400; //Коридор
input double Multiplikator = 2.0; //Множитель лота
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {

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

   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//+------------------------------------------------------------------+
//| Код советника                                                    |
//+------------------------------------------------------------------+
  if(OrdersTotal()==0) 
      {
      OrderSend(Symbol(),OP_BUY,StartLot,Ask,Slip,0,0,NULL,Magic,0,clrBlue);
      }
//================================================//
// Выбираем последний ордер                       //
//================================================//
int last = OrderSelect(OrdersTotal()-1,SELECT_BY_TICKET); //Выбрали последний ордер и записали в переменную last
int oop = OrderOpenPrice();
int delta = Ask - oop;
   if(OrderType()==OP_BUY)
      {
      if(Ask > oop)   
      if(delta > NormalizeDouble(Koridor*_Point,_Digits))
            {
            StartLot = StartLot * Multiplikator;
            OrderSend(Symbol(),OP_SELL,StartLot,Bid,Slip,0,0,NULL,Magic,0,clrRed);
            }
         
      }


   if(OrderType()==OP_SELL)
      {
      
      }















Comment(
"Всего ордеров: " + OrdersTotal()
);



   
  }
//+------------------------------------------------------------------+
Почему одновременно с первым лотом открывается ордер SELL? Там же указано условие, что ордер SELL должен открыться если предыдущий ордер уйдет в убыток на KORIDOR пунктов
Код: 
int last = OrderSelect(OrdersTotal()-1,SELECT_BY_TICKET); //Выбрали последний ордер и записали в переменную last
int oop = OrderOpenPrice();
int delta = Ask - oop;
   if(OrderType()==OP_BUY)
      {
      if(Ask > oop)   
      if(delta > NormalizeDouble(Koridor*_Point,_Digits))
            {
            StartLot = StartLot * Multiplikator;
            OrderSend(Symbol(),OP_SELL,StartLot,Bid,Slip,0,0,NULL,Magic,0,clrRed);
            }
         
      }


   if(OrderType()==OP_SELL)
      {
      
      }
 
  • Панель управления
  • #12
Admin

Admin

Команда форума
Администратор
Регистрация
03.01.2013
Сообщения
2 212
Реакции
514
artemov2012 сказал(а):
Уже 100 раз переписывал код и начинал заново по порядку писать, ничего не выходит.
Вот попытался написать опять с начала
Нажмите, чтобы раскрыть...
Код: 
//+------------------------------------------------------------------+
datetime time=0; int type=-1; double lots=0,open_price=0;
for(int i=OrdersTotal()-1; i>=0; i--)
   if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
      if(OrderSymbol()==Symbol())
         if(OrderMagicNumber()==Magic)
            if(OrderOpenTime()>time)    // перебираем все ордера и находим только самый последний
              {                         // запоминаем данные последнего ордера
               time=OrderOpenTime();
               type=OrderType();
               lots=OrderLots();
               open_price=OrderOpenPrice();
              }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
if(type==-1) // Если цикл не нашол ни одного ордера то type==-1 значит ордеров нет и используем начальный лот
  {
   lots=StartLot;
  }
else  // Если цикл нашол ордера то type== будет мемть тип последнего ордера значит используем увеличенный лот
   lots=lots*Multiplikator;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
if(type==OP_BUY)
  {
   if(NormalizeDouble(Bid+koridor*Point(),Digits)<open_price)
   //открыть ордер селл
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
if(type==OP_SELL)
  {

  }
//+------------------------------------------------------------------+
 
Для ответа нужно войти/зарегистрироваться
Теги Нет
Верх