Комментарии / Публикации AM2 / OpenTraders - блогплатформа для трейдеров финансовых рынков

фрактальный снайпер. / Стол заказов MQL 69

0

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


//+------------------------------------------------------------------+
//|                                                   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);
  }
//+------------------------------------------------------------------+

Авторизация

Новости сообщества:

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

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