Autograf 4. Управление ордерами. Функция АТ. Пример стратегии 2.

Данная стратегия предназначена для работы в канале стандартных отклонений на пробой.

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

Управляющие воздействия, реализуемые стратегией:
- установка канала стандартных отклонений;
- установка на канал инструмента 12 Тянуть_Объект;
- установка отложенных ордеров BuyStop и SellStop на верхнюю и нижнюю границы канала;
- установка на ордера инструментов 11 Следование_За_Объектом с целью поддержания ордеров вблизи границ канала.

Блок 0-1. В представленном примере стратегии используются импортируемые функции, содержащиеся в файле AG_Lib.ex4. Это функции, обслуживающие исполнение функции автоматической торговли AG_AT(). В общем случае использование этих функций не является обязательным, но настоятельно рекомендуется.

Функция AG_Magic_Number() используется для вычисления

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

Функция AG_Message() используется для записи текстов сообщений в массив Message[].

Функция AG_Set_Instr() используется для записи параметров устанавливаемых инструментов в массив Manager[][].

Функция AG_Delete_Instr() используется для записи удаляемых инструментов в массив Manager[][].

Блок 1-2. Заголовок функции AG_Srtategy_Channal_Outside содержит перечень параметров, через которые в тело функции передаются различные данные, характеризующие текущую ситуацию.

Блок 2-3. При создании коммерческой версии стратегии исполнение основного кода выполняется в том случае, если пользователь правильно указал пароль к стратегии. Данный алгоритм обработки пароля предусматривает неограниченное использование стратегии на демо-счёте. В случае исполнения стратегии на реальном счёте выполняется анализ пароля. Здесь для примера представлен простой метод - правильным значением пароля является целое число, которое на 1 больше, чем номер реального счёта.

Если значение переменной Parol_S оказывается правильным, то управление передаётся в блок 3-4. Если же нет, то выводится сообщение о неправильном пароле и исполнение функции AG_Srtategy_Channal_Outside() заканчивается. При этом функция возвращает значение 0, которое воспринимается приложением AutoGraf 4 как указание на прекращение автоматического режима торговли.

Рассматриваемая стратегия распространяется бесплатно с открытым кодом, поэтому операторы этого блока закомментированы и управление всегда передаётся в блок 3-4, - начальный блок основного кода стратегии.

//жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж
// AG_Srtategy_Channal_Outside.mq4                                    Пример стратегии 2. 
// Отложенные ордера BuyStop и SellStop по границам канала. 
// Профитное движение вовнутрь канала (пробой). 
// Используется при построении функции автоматической торговли для приложения AutoGraf 4
// Сергей Ковалёв, Днепропетровск, sk@autograf.dp.ua, ICQ 64015987, http://autograf.dp.ua
//жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 0 жж
#property library   
 
#import "AG_Lib.ex4"
   int AG_Magic_Number();                          // Вычисление MN  
   int AG_Message(string& Message[], string _Text);// Запись сообщений в массив Message[]
                          // Запись управляющих воздействий ф-ии АТ в массив Manager[][]:
   int AG_Set_Instr(double& Manager[][], int ii, double v1, double v2, double v3,
                    double v4, double v5, double v6, int io , int ih); 
   int AG_Delete_Instr(double&Manager[][], int ii, int io,int ih);//Удаление инструментов
#import
//жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 1 жж
int AG_Srtategy_Channal_Outside(int Parol_S, double Order[][], string Object[], 
                               double Instrument[][][][], int Ddraw_Object[][], 
                               double& Tuning[], double& Manager[][], string& Message[])
   {    
//================================================================================== 2 ==
/*
   if (!IsDemo())                                  // Для демо без ограничений
      {
      if(Parol_S != AccountNumber() + 1)           // Если введен неправильный пароль
         {                                         // Пример сообщения (макс. 62 симв)
         int Strategy = NormalizeDouble(Instrument[0][0][0][0],0);
         AG_Message(Message, "Введен неправильный пароль для стратегии ");// Сообщение
         AG_Message(Message, "AG_Srtategy_Channal_Outside ("+Strategy+").");// Сообщение
         return(0);                                // Выход из функции AT
         }                                         // AutoGraf автоматически отключит АТ
      }   
*/
//================================================================================== 3 ==
   int MN;                // MagicNumber рекомендуется вычислять в ф-ии AG_Magic_Number()
   int Ticket;                                     // Номер ордера
   string Comm = "AG_AT";                          // Комментарий (рекомендуется "AG_AT")
   static string My_Chan_Name="AT_Channal_Inside"; // Имя создаваемого канала
   int With = 180;                                 // Ширина канала в минутах(в барах М1)
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   double Lot= NormalizeDouble(Tuning[1],2);       // Значение лотов
   int Slip  = NormalizeDouble(Tuning[3],0);       // Проскальзывание (пунктов)
//================================================================================== 4 ==
   bool Channal   = false;                         // Искомого объекта заданного типа нет
   bool Manage_12 = false;                         // Объект заданного типа не назначен ..
                                                   // ..под управление инстр12
   if (ObjectFind(My_Chan_Name)>-1)                // Если объект есть ..
      {
      if(ObjectType(My_Chan_Name)==OBJ_STDDEVCHANNEL)// Если объект ожидаемого типа
         {         
         Channal = true;                           // .. запомним этот факт
         int Obj_Total_AG =StrToInteger(Object[0]);// Колич. объектов, рассматр. AG 4
         for(int k=1; k<=Obj_Total_AG; k++)        // Пройдёмся по рассматриваемым объ.
            {                                       
            if (Object[k] == My_Chan_Name)         // Попался объект с искомым именем
               {                                   
               for(int i=1; i<=Ddraw_Object[0][0]; i++)// По массиву объектов, ..
                  {                                // .. управляемых инструментом 12
                  if(Ddraw_Object[i][0] == k)      // Если объект уже назначен ..
                     {                             // .. под управл. инструмента 12
                     Manage_12 = true;             // Этот объект уже под управл. инстр 12
                     break;                        // Объект найден
                     }
                  }
               break;                              // Выходим (выносим индекс k)
               }
            }
         }
//---------------------------------------------------------------------------------- 5 --
      else                                         // Если тип у него не тот, подищем..
         {                                         // .. создаваемому объ. подходящее имя
         for (int pref=2; ;pref++)                 // Начиная с префикса 2
            {
            string New_Name = My_Chan_Name + pref; // Попробуем примерить такое имя
            if (ObjectFind(New_Name) == -1)        // Если это имя не занято..
               {
               My_Chan_Name = New_Name;
               break;                              // .. значит незанятое имя найдено
               }
            }
         } 
      }
//================================================================================== 6 ==
   if (Channal == false)                           // Если объекта заданного типа нет
      {
      ObjectCreate (My_Chan_Name, OBJ_STDDEVCHANNEL,0,0,0); // Создаём его.. 
      int Сoor_X2 = Time[0];                                // 1я точка СПРАВА, 2я СЛЕВА
      int Сoor_X1 = Time[With/Period()];                    // Канал длиной 3 часа
      ObjectSet(My_Chan_Name, OBJPROP_TIME1, Сoor_X1);      // Устанавливаем координаты
      ObjectSet(My_Chan_Name, OBJPROP_TIME2, Сoor_X2);      // Устанавливаем координаты 
      ObjectSet(My_Chan_Name, OBJPROP_COLOR, Orange);       // Устанавливаем координаты 
      AG_Message(Message, "АТ: Устанавливаем объект OBJ_STDDEVCHANNEL.");// Сообщение
      return(1);                 // Это необходимо, чтоб установл. канал был учтён AG 4
      }
//---------------------------------------------------------------------------------- 7 --
   if (Manage_12 == false)       // Объект есть, но не назначен под управление инстр 12
      {                          // Устанавливаем Инструмент 12 Тянуть_Объект на канал
      AG_Set_Instr(Manager, 12, 0, 0, 0, 0, 0, 0, k, 0); 
      AG_Message(Message, "АТ: Устанавливаем инструмент Тянуть объект."); // Сообщение
      }
//================================================================================== 8 ==
   int Total_Ord = NormalizeDouble(Order[0][0],0);          // Количество ордеров в окне
   
   bool BStp = true; // Пока считаем, что никаких Buy в окне нет,  поэтому BuyStop  нужен
   bool SStp = true; // Пока считаем, что никаких Sell в окне нет, поэтому SellStop нужен
   for (i=1; i<=Total_Ord; i++)
      {
      int Tip_Ord = NormalizeDouble(Order[i][6],0);         // Тип текущего ордера
      if (Tip_Ord==0 || Tip_Ord==2 || Tip_Ord==4)           // При любых баях считаем, ..
         BStp = false;                                      // ..что BuyStop нам не нужен
      if (Tip_Ord==1 || Tip_Ord==3 || Tip_Ord==5)           // При любых селах считаем,..
         SStp = false;                                      //..что SellStop нам не нужен
      }
//================================================================================== 9 ==
   int StopLevel = MarketInfo( Symbol(), MODE_STOPLEVEL);
   int STD = iStdDev(NULL,0,With,0,MODE_SMA,PRICE_CLOSE,0)/Point;
   int SL = 5*STD;
   if (SL < StopLevel)
      SL = StopLevel;
   int TP = 1*STD;
   if (TP < StopLevel)
      TP = StopLevel;
   double Price_Right = ObjectGet(My_Chan_Name, OBJPROP_PRICE2);// Правая коорд. канала
//--------------------------------------------------------------------------------- 10 --
   if (BStp == true && Ask < Price_Right+STD*Point)         //  BuyStop
      {
      double Price = NormalizeDouble(Price_Right+STD*Point,Digits);// Цена ордера
      if (Price < Ask + StopLevel*Point)                    // Проверка цены
         Price = Ask + StopLevel*Point;
      double SL_BS = NormalizeDouble(Price-SL*Point,Digits);// Проверка SL
      double TP_BS = NormalizeDouble(Price+TP*Point,Digits);// Проверка ТР
      MN = AG_Magic_Number();                               // Вычисл. MN (рекомендуется)
      OrderSend(Symbol(),OP_BUYSTOP,Lot,Price,Slip,SL_BS,TP_BS,Comm,MN);//  BuyStop
      return(1);              // Открылись и отдаём управление AG для учёта ордеров
      }
   if (SStp == true && Bid > Price_Right-STD*Point)         // SellStop
      {
      Price = NormalizeDouble(Price_Right-STD*Point,Digits);// Цена ордера
      if (Price > Bid - StopLevel*Point)                    // Проверка цены
         Price = Bid - StopLevel*Point;
      double SL_SS = NormalizeDouble(Price+SL*Point,Digits);// Проверка SL
      double TP_SS = NormalizeDouble(Price-TP*Point,Digits);// Проверка ТР
      MN = AG_Magic_Number();                               // Вычисл. MN (рекомендуется)
      OrderSend(Symbol(),OP_SELLSTOP,Lot,Price,Slip,SL_SS,TP_SS,Comm,MN);// SellStop
      return(1);              // Открылись и отдаём управление AG для учёта ордеров
      }
//================================================================================= 11 ==
   for (i=1; i<=Total_Ord; i++)
      {
      if (NormalizeDouble(Order[i][6],0) == 4)// Если тип ордера BuyStop
         {                                                                 
                        // Если инстр. Следование_За_Объектом на BuyStop не установлен
         if( NormalizeDouble(Instrument[i][1][11][0],1)< 1.0 )
            // i  = индекс ордера
            // 1  = индекс ордерной линии (OR)
            // 11 = индекс инструмента Следование_За_Объектом
            // 0  = признак установки инструмента
            // 1.0= инструмент установлен (0.5=подготовлен для настройки на линию, 
            //                             0.0 = не установлен)(Нормализация до 1 знака)
            {
            int Tm = 0; // Смещение по времени
                        // (смещение считается от текущего времени, поэтому инструмент..
                        // ..может "самопроизвольно" смещаться вправо в момент,..
                        // ..не совпадающий со временем образования 0 бара;это нормально)
            Ticket = NormalizeDouble(Order[i][4],0);
                        // Устанавливаем Инструмент 11, Следование_За_Объектом
            AG_Set_Instr(Manager, 11, Tm, 0, 0, 3, k, 0, Ticket, 1);
            // 11 = индекс инструмента
            // Tm = время смещения от настоящего момента, сек
            // 0  = параметр отсутствует
            // 0 = дистанция преследования 
            // 3  = шаг модификации
            // k  = индекс объекта в массиве Object[0] 
            // 1  = индекс линии объекта (RegLine = 32, UpLine=0, DnLine=1)
            // Ticket  = номер ордера
            // 1  = индекс ордерной линии (OR=1)
            AG_Message(Message, "На BuyStop " + Ticket+ " ");//Сообщение(макс 62сим)
            AG_Message(Message, "устанавливается инструмент Следование_За_Объектом.");
            }
         }
//--------------------------------------------------------------------------------- 12 --
      if (NormalizeDouble(Order[i][6],0) == 5)// Если тип ордера SellStop
         {                                                                 
                        // Если инстр. Следование_За_Объектом на SellStop не установлен
         if( NormalizeDouble(Instrument[i][1][11][0],1)< 1.0 )
            {
            Tm = 0;     // Смещение по времени
            Ticket = NormalizeDouble(Order[i][4],0);
                        // Устанавливаем Инструмент 11, Следование_За_Объектом
            AG_Set_Instr(Manager, 11, Tm, 0, 0, 3, k, 1,  Ticket, 1);    
            AG_Message(Message, "На SellStop " + Ticket+ " ");//Сообщение(макс 62сим)
            AG_Message(Message, "устанавливается инструмент Следование_За_Объектом.");
            }
         }      
      }
//================================================================================= 13 ==
   return(1);           // Нормальный выход
   }
//жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж Конец модуля жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 14 жж