Не совсем понятное ТЗ. Можете на скринах все показать?

Здравствуйте, h1 — уровень+ диапазон, это цена округленная. т.е 1.06 или 1.07, если шаг 500 то 1.0650, 1.070, 10750, сетка строится на высоту 5000 п в верх и в низ от тек цены. фракталы искать в пределах временных = d и ценовых h = 150 п от тек цены.

Редактирован: 27 ноября 2015, 09:38

//+------------------------------------------------------------------+
//| sesya.mq4 |
//| Moscow_ars |
//| |
//+------------------------------------------------------------------+
#property copyright «buy»
#property link ""

extern double SL_b=500; //б-500;s-750;
extern double TP_b=2500; //б-2500;s-2500
extern double lots=0.10; //начальный лот.
extern int Cikl_b=2; //б-2;s-3; //Время начала зоны разрешения.
extern int Start_time_b=8;//б-8;s-11; //временной период на открытие.
extern double uv_lot_martin=1; //число мартина.
extern int Luft_prokol_b =60; //б-60;s-75 // отступ цены от ключевого уровня.
extern double pauza=2;

extern double b_ma = 10;
extern double b_masdvig= 0;
double ma;

int tip=1;//2-buy;1-sell
int kol_vo_o; //количество ордеров в истории.
double lots_o; //лот после мартина.

//+------------------------------------------------------------------+
// — /
int start()
{
// — / система мартингейла.
kol_vo_o=OrdersHistoryTotal();
if (kol_vo_o==0)
{
lots_o = lots;
}
OrderSelect(kol_vo_o-1,SELECT_BY_POS,MODE_HISTORY);
if(OrderProfit()<0)
{
lots_o=OrderLots()*uv_lot_martin;
}
else
{
lots_o=lots;
}
// — / расчет ближайшего уровня в заданном диапазоне.
double Luft_up1000= NormalizeDouble(Ask,2)+Luft_prokol_b*Point; //округляем цену до 1й фигуры, расчет цены люфта выше уровеня.
double Luft_up500= NormalizeDouble(Ask,2)+0.00500+Luft_prokol_b*Point; //округляем цену до половины фигуры, расчет цены люфта выше уровеня.
double Luft_dw1000= NormalizeDouble(Ask,2)-Luft_prokol_b*Point; //расчет цены люфта ниже уровеня.
double Luft_dw500= NormalizeDouble(Ask,2)-0.00500-Luft_prokol_b*Point;
// — /
// — / Исполняемый модуль.
if (uroven(Luft_dw1000,Luft_up1000)==1)
{
if (OrdersTotal()==0) //если нет открытых и отложенных ордеров.
{
OrderSend(Symbol(),OP_BUY, lots_o, Ask, 3, (Ask — SL_b*Point), (Bid + TP_b*Point), "...", 125, 0, Blue);
}
OrderSelect(OrdersTotal()-1,SELECT_BY_POS,MODE_TRADES);
int H_th = TimeHour(OrderOpenTime());
int th = TimeHour(TimeCurrent());
if((OrdersTotal()!=0)&(th-H_th > pauza) )
{
OrderSend(Symbol(),OP_BUY, lots_o, Ask, 3, (Ask — SL_b*Point), (Bid + TP_b*Point), "...", 125, 0, Blue);
}
}
return(0);
}
//+------------------------------------------------------------------+
// — /функция ищет в истории отработку уровней для buy возвращает = 1;
int uroven(double In_dw1000,double In_up1000)
{
if(time_zona(Cikl_b,Start_time_b)==1) //разрешение на торговлю.
{
if(Ask < In_dw1000)// в данный момент цена вошла в нужную временную зону и находится ниже сигнального уровня.
{
int th= TimeHour(TimeCurrent()); //текущий час.
//найти в заданном диапазоне, цену выше сигнального уровня.
for(int time_bars=Cikl_b+1;time_bars<=th;time_bars++) //
{
double history_high =iHigh(NULL,0,th-time_bars); //получаем цену в указанне время,
if(history_high > In_up1000)//если цена бара в указанное время была выше уровня…
{
return(1);
}
}
}
}
}
// — /
//+------------------------------------------------------------------+
// функция считает время разрешения на торговлю.
int time_zona(int Cikl_in,int Start_time_in) //объявление в функции локальных параметров начала и конца зоны.
{
if((TimeHour(TimeCurrent()) > Cikl_in) && (TimeHour(TimeCurrent()) < (Start_time_in+Cikl_in)) ) //берем час от текущего времени и проверяем его на соответствие условию.
return(1); //если успех, вернем 1
return(5); //иначе 5.
}

Поможет ли-)

Больше поможет если сделаете как я просил в самом начале, скрины с подробным описанием.

Скажем сейчас цена 1.0629.
Провести на 100 баров 5 линий вверх и 5 вниз с шагом 1000 это можно.
Как посчитать количество фракталов на каждом этаже, это еще думать нужно?
Сделку на пробой круглого уровня тоже можно сделать.
А фракталы для чего считать?

Здравствуйте, 1-задаем количество шагов от округленной цены. можно 1000 а можно и 500 а можно и 250!!!
Редактирован: 27 ноября 2015, 10:50

2. считать фракталы просто, смотрим в истории d = 57 дней на данном целевом уровне + — 150 п -это h1 фракталы.

считать фракталы просто,

Пальцем на экране посчитать конечно просто!  

У вас сколько времени ушло чтобы сделать тот вариант который есть?

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

//+------------------------------------------------------------------+
//|                                                   DayFractal.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

extern int Step=1000;
extern int BarsCount=100;
extern int LevelsCount=5;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int FractalsOnLevel(double p1,double p2)
  {
   int k=0;
   double fup=0,fdn=0;
   for(int i=2; i<BarsCount; i++)
     {
      fup=iFractals(NULL,0,MODE_UPPER,i);
      if(fup!=0 && fup>p1 && fup<p2) k++;
      fdn=iFractals(NULL,0,MODE_LOWER,i);
      if(fdn!=0 && fdn>p1 && fdn<p2) k++;
     }
   return(k);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   int kup=0,kdn=0;
   double fup=0,fdn=0;
   for(int i=2; i<BarsCount; i++)
     {
      fup=iFractals(NULL,0,MODE_UPPER,i);
      if(fup!=0) kup++;
      fdn=iFractals(NULL,0,MODE_LOWER,i);
      if(fdn!=0) kdn++;
     }

   Comment("\n Верхних фракталов: ",kup,
           "\n Нижних фракталов: ",kdn,
           "\n Всего фракталов: ",kdn+kup,
           "\n На первом этаже: ",FractalsOnLevel(1.06,1.1));
  }
//+------------------------------------------------------------------+

напишите коментарии логики, потому что я не вьезжаю… моя головушка совсем диградировала.

чужой код потемки!  

блин, ну рас Вы столько времени потратили нужно же закончить как то, скажите будет итог или вы не будите делать…

Вот советник, который проверяет количество баров на этаже сравнивает их и открывает позицию.

//+------------------------------------------------------------------+
//|                                                   DayFractal.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 double Lots      = 0.1;      // лот
extern int StopLoss     = 500;      // лось
extern int TakeProfit   = 500;      // язь
extern int Slip         = 30;       // реквот
extern int Step         = 1000;     // высота этажа
extern int BarsCount    = 100;      // баров для расчета
extern int LevelsCount  = 5;        // число этажей
extern int Magic        = 123;      // магик

datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int FractalsOnLevel(int type,double p1,double p2)
  {
   int k=0;
   double fup=0,fdn=0;
   for(int i=2; i<BarsCount; i++)
     {
      fup=iFractals(NULL,0,MODE_UPPER,i);
      if(fup!=0 && fup>p1 && fup<p2)
        {
         if(type==0 || type==1)
           {
            k++;
           }
        }
      fdn=iFractals(NULL,0,MODE_LOWER,i);
      if(fdn!=0 && fdn>p1 && fdn<p2)
        {
         if(type==0 || type==2)
           {
            k++;
           }
        }
     }
   return(k);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double UpLevels(int count,int step)
  {
   double level=0;
   level=NormalizeDouble(Close[0],2)+count*step*Point;
   return(level);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double DnLevels(int count,int step)
  {
   double level=0;
   level=NormalizeDouble(Close[0],2)-count*step*Point;
   return(level);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutTrendLine(string name,datetime time1,datetime time2,double price)
  {
   ObjectCreate(0,name,OBJ_TREND,0,time1,price,time2,price);
//--- установим цвет линии
   ObjectSetInteger(0,name,OBJPROP_COLOR,Red);
//--- установим стиль отображения линии
   ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_SOLID);
//--- установим толщину линии
   ObjectSetInteger(0,name,OBJPROP_WIDTH,2);
//--- включим (true) или отключим (false) режим продолжения отображения линии вправо
   ObjectSetInteger(0,name,OBJPROP_RAY_RIGHT,true);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   int    r=0;
   double sl=0,tp=0;
   int up=FractalsOnLevel(1,DnLevels(1,Step),UpLevels(0,Step));
   int dn=FractalsOnLevel(2,DnLevels(1,Step),UpLevels(0,Step));

   for(int i=0; i<=LevelsCount; i++)
     {
      PutTrendLine("LineUP"+IntegerToString(i),Time[BarsCount],Time[0],UpLevels(i,1000));
      PutTrendLine("LineDN"+IntegerToString(i),Time[BarsCount],Time[0],DnLevels(i,1000));
     }
   if(t!=Time[0])
     {
      if(CountTrades()<1)
        {
         //--- sell conditions
         if(up>dn)
           {
            if(StopLoss>0) sl=NormalizeDouble(Bid+StopLoss*Point,Digits);
            if(TakeProfit>0) tp=NormalizeDouble(Bid-TakeProfit*Point,Digits);
            r=OrderSend(Symbol(),OP_SELL,Lots,NormalizeDouble(Bid,Digits),Slip,sl,tp,"",Magic,0,Red);
            t=Time[0];
            return;
           }

         //--- buy conditions
         if(dn>up)
           {
            if(StopLoss>0) sl=NormalizeDouble(Ask-StopLoss*Point,Digits);
            if(TakeProfit>0) tp=NormalizeDouble(Ask+TakeProfit*Point,Digits);
            r=OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,Digits),Slip,sl,tp,"",Magic,0,Blue);
            t=Time[0];
            return;
           }
        }
     }
//---
   Comment("\n Верхних фракталов: ",FractalsOnLevel(1,DnLevels(1,Step),UpLevels(0,Step)),
           "\n Нижних фракталов: ",FractalsOnLevel(2,DnLevels(1,Step),UpLevels(0,Step)),
           "\n Всего фракталов: ",FractalsOnLevel(0,DnLevels(1,Step),UpLevels(0,Step)),
           "\n Верхний уровень этажа: ",UpLevels(0,Step),
           "\n Нижний уровень этажа: ",DnLevels(1,Step));
  }
//+------------------------------------------------------------------+

1) задаем квадрат поиска скопления фракталов возле уровня. Тек цена 1.05800 значит потолок будет 1.06 а пол 1.05. задаем количество баров в истории по которым будем искать фракталы= 57 дням.
2) задаем отступ (150п) в верх и в низ от пола и потолка в котором будет осуществятся поиск фракталов, границы поиска будут 1.05850 и 1.06150 потолок, 1.05150 1.04850 пол.
3)Определяем важность уровня, к примеру количество фракталов должно быть больше 10, допустим на потолке только что образовался 11 фрактал, значит при росте цены до уровня 1.06 будет открыт короткий ордер. Допустим цена пошла ниже, и прошла сквозь уровень 1.05, ордера не были открыты так как уровень 1.05 не действительный — на полу мало гвоздей <10, цена опускается еще ниже, за это время на уровне 1.05 который теперь является потолком, образовывается новый фрактал, общее количество ламп превышает 10, значит уровень 1.05 стал действительным, при касании цены данного уровня откроется короткая сделка, но цена идет выше и стоп лось срабатывает, на 1.0550. после чего цена преодолевает уровень 1.06, но ордер в низ не открывается, так как в задоаном промежутке времени нужного количество фракталов нет, т. е уровень уже не является важным, т.е на потолке теперь не хватает ламп. далее все повторяется по логике.

extern double Lots = 0.1; // лот
extern int StopLoss = 500; // лось
extern int TakeProfit = 500; // язь
extern int Slip = 150; // реквот ОТСТУП!
extern int BarsCount = 100; // баров для расчета
extern int LevelsCount = 3; //1 — потолок, 2 — пол 3 — все в месте. сделки будут как в верх так и в низ. ОЧЕНЬ ВАЖНО!
extern int Magic = 123; // магик
extern int FRAKTALS_caunt = 10; // количество фракталов. для определения важности уровня.
extern int time_zona = 2 // растояние между ордерами, т.е раньше чем через 2 часа новый ордер не будет открыт, даже если поступит сигнал.
Редактирован: 30 ноября 2015, 19:02

// — / расчет ближайшего уровня в заданном диапазоне.
double Luft_up1000= NormalizeDouble(Ask,2)+Luft_prokol_b*Point; //округляем цену до 1й фигуры, расчет цены люфта выше уровеня.

double Luft_dw1000= NormalizeDouble(Ask,2)-Luft_prokol_b*Point; //расчет цены люфта ниже уровеня.


Редактирован: 1 декабря 2015, 16:23

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

Действительно времени и сил потрачено немерено, а конца так и не видно. Обратитесь к платному.

яж деньгами на тел. рублей 700 скину!

Я сейчас не делаю платно.

а зачем не употребляете

Я трезвый себя намного лучше чувствую и постепенно совсем отказался.

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

//+------------------------------------------------------------------+
//|                                                   DayFractal.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 double Lots      = 0.1;      // лот
extern int StopLoss     = 500;      // лось
extern int TakeProfit   = 500;      // язь
extern int Slip         = 100;      // реквот
extern int Step         = 1000;     // высота этажа
extern int BarsCount    = 100;      // баров для расчета
extern int LevelsCount  = 3;        // число этажей
extern int Magic        = 123;      // магик

datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int FractalsOnLevel(int type,double p1,double p2)
  {
   int k=0;
   double fup=0,fdn=0;
   for(int i=2; i<BarsCount; i++)
     {
      fup=iFractals(NULL,0,MODE_UPPER,i);
      if(fup!=0 && fup>p1 && fup<p2)
        {
         if(type==0 || type==1)
           {
            k++;
           }
        }
      fdn=iFractals(NULL,0,MODE_LOWER,i);
      if(fdn!=0 && fdn<p1 && fdn>p2)
        {
         if(type==0 || type==2)
           {
            k++;
           }
        }
     }
   return(k);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double UpLevels(int count,int step)
  {
   double level=0;
   level=NormalizeDouble(Close[0],2)+count*step*Point;
   return(level);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double DnLevels(int count,int step)
  {
   double level=0;
   level=NormalizeDouble(Close[0],2)-count*step*Point;
   return(level);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutTrendLine(string name,datetime time1,datetime time2,double price)
  {
   ObjectDelete(name);
   ObjectCreate(0,name,OBJ_TREND,0,time1,price,time2,price);
//--- установим цвет линии
   ObjectSetInteger(0,name,OBJPROP_COLOR,Red);
//--- установим стиль отображения линии
   ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_SOLID);
//--- установим толщину линии
   ObjectSetInteger(0,name,OBJPROP_WIDTH,2);
//--- включим (true) или отключим (false) режим продолжения отображения линии вправо
   ObjectSetInteger(0,name,OBJPROP_RAY_RIGHT,true);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   int    r=0;
   double sl=0,tp=0,pr=0;
   int up=FractalsOnLevel(1,DnLevels(1,Step),UpLevels(0,Step));
   int dn=FractalsOnLevel(2,DnLevels(1,Step),UpLevels(0,Step));
   pr=NormalizeDouble(Close[0],2);
   
   for(int i=0; i<=LevelsCount; i++)
     {
      PutTrendLine("LineUP"+IntegerToString(i),Time[BarsCount],Time[0],UpLevels(i,Step));
      PutTrendLine("LineDN"+IntegerToString(i),Time[BarsCount],Time[0],DnLevels(i,Step));
     }

   if(CountTrades()<1)
     {
      //--- sell conditions
      if(Bid>=pr-Slip*Point && Bid<=pr+Slip*Point && Low[1]<pr)//цена на уровне
        {
         if(StopLoss>0) sl=NormalizeDouble(Bid+StopLoss*Point,Digits);
         if(TakeProfit>0) tp=NormalizeDouble(Bid-TakeProfit*Point,Digits);
         r=OrderSend(Symbol(),OP_SELL,Lots,NormalizeDouble(Bid,Digits),Slip,sl,tp,"",Magic,0,Red);
         t=Time[0];
         return;
        }

      //--- buy conditions
      if(Ask>=pr-Slip*Point && Ask<=pr+Slip*Point && High[1]>pr)//цена на уровне
        {
         if(StopLoss>0) sl=NormalizeDouble(Ask-StopLoss*Point,Digits);
         if(TakeProfit>0) tp=NormalizeDouble(Ask+TakeProfit*Point,Digits);
         r=OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,Digits),Slip,sl,tp,"",Magic,0,Blue);
         t=Time[0];
         return;
        }
     }
//---
   Comment("\n Верхних фракталов на потолке: ",FractalsOnLevel(1,pr,pr+Step*Point),
           "\n Нижних фракталов в подвале: ",FractalsOnLevel(2,pr,pr-Step*Point),
           "\n Потолок: ",pr+Step*Point,
           "\n Пол: ",pr,
           "\n Подвал: ",pr-Step*Point);
  }
//+------------------------------------------------------------------+

Добавил входы с учетом фракталов, но это ухудшило показатели системы.

//+------------------------------------------------------------------+
//|                                                   DayFractal.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 double Lots      = 0.1;      // лот
extern int StopLoss     = 500;      // лось
extern int TakeProfit   = 500;      // язь
extern int Slip         = 100;      // реквот
extern int Step         = 1000;     // высота этажа
extern int FCount       = 5;        // количество фракталов
extern int BarsCount    = 100;      // баров для расчета
extern int LevelsCount  = 3;        // число этажей
extern int Magic        = 123;      // магик

datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

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

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int FractalsOnLevel(int type,double p1,double p2)
  {
   int k=0;
   double fup=0,fdn=0;
   for(int i=2; i<BarsCount; i++)
     {
      fup=iFractals(NULL,0,MODE_UPPER,i);
      if(fup!=0 && fup>p1 && fup<p2)
        {
         if(type==0 || type==1)
           {
            k++;
           }
        }
      fdn=iFractals(NULL,0,MODE_LOWER,i);
      if(fdn!=0 && fdn<p1 && fdn>p2)
        {
         if(type==0 || type==2)
           {
            k++;
           }
        }
     }
   return(k);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double UpLevels(int count,int step)
  {
   double level=0;
   level=NormalizeDouble(Close[0],2)+count*step*Point;
   return(level);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double DnLevels(int count,int step)
  {
   double level=0;
   level=NormalizeDouble(Close[0],2)-count*step*Point;
   return(level);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutTrendLine(string name,datetime time1,datetime time2,double price)
  {
   ObjectDelete(name);
   ObjectCreate(0,name,OBJ_TREND,0,time1,price,time2,price);
//--- установим цвет линии
   ObjectSetInteger(0,name,OBJPROP_COLOR,Red);
//--- установим стиль отображения линии
   ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_SOLID);
//--- установим толщину линии
   ObjectSetInteger(0,name,OBJPROP_WIDTH,2);
//--- включим (true) или отключим (false) режим продолжения отображения линии вправо
   ObjectSetInteger(0,name,OBJPROP_RAY_RIGHT,true);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   int    r=0;
   double sl=0,tp=0,pr=0;
   pr=NormalizeDouble(Close[0],2);
   int up=FractalsOnLevel(1,pr,pr+Step*Point);
   int dn=FractalsOnLevel(2,pr,pr-Step*Point);
   
   for(int i=0; i<=LevelsCount; i++)
     {
      PutTrendLine("LineUP"+IntegerToString(i),Time[BarsCount],Time[0],UpLevels(i,Step));
      PutTrendLine("LineDN"+IntegerToString(i),Time[BarsCount],Time[0],DnLevels(i,Step));
     }

   if(CountTrades()<1)
     {
      //--- sell conditions
      if(Bid>=pr-Slip*Point && Bid<=pr+Slip*Point)//цена на уровне
        {
         if(dn>FCount)//фракталов в подвале больше FCount
           {
            if(StopLoss>0) sl=NormalizeDouble(Bid+StopLoss*Point,Digits);
            if(TakeProfit>0) tp=NormalizeDouble(Bid-TakeProfit*Point,Digits);
            r=OrderSend(Symbol(),OP_SELL,Lots,NormalizeDouble(Bid,Digits),Slip,sl,tp,"",Magic,0,Red);
            t=Time[0];
            return;
           }
        }

      //--- buy conditions
      if(Ask>=pr-Slip*Point && Ask<=pr+Slip*Point)//цена на уровне
        {
         if(up>FCount)//фракталов в подвале больше FCount
           {
            if(StopLoss>0) sl=NormalizeDouble(Ask-StopLoss*Point,Digits);
            if(TakeProfit>0) tp=NormalizeDouble(Ask+TakeProfit*Point,Digits);
            r=OrderSend(Symbol(),OP_BUY,Lots,NormalizeDouble(Ask,Digits),Slip,sl,tp,"",Magic,0,Blue);
            t=Time[0];
            return;
           }
        }
     }
//---
   Comment("\n Верхних фракталов на потолке: ",up,
   "\n Нижних фракталов в подвале: ",dn,
   "\n Потолок: ",pr+Step*Point,
   "\n Пол: ",pr,
   "\n Подвал: ",pr-Step*Point);
  }
//+------------------------------------------------------------------+

Сегодня посмотрю что там со временем.

Добавил время: www.opentraders.ru/downloads/952/

Первые результаты тестирования, пока не перебирался Sl и TP. Сделка происходит примерно каждые 3-4 дня.

Редактирован: 3 декабря 2015, 20:01

Лучший результат

Скачать
Fraktalniy snayper.mq4 (8 Kb)

Прогон бота по истории которая не была оптимизирована, показал подтверждение работоспособности бота -85% за 3 года, что составляет 28% годовых.