Советник пробойник "Б-М" / Стол заказов MQL 33
0
Насколько я понял нужно что то вроде :) 




//+------------------------------------------------------------------+
//|                                                       Grider.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 double Lot          = 0.1;      // Trade volume
extern double KLot         = 1.3;      // Lot increase
extern double MaxLot       = 5;        // Maximum lot
extern int StopLoss        = 0;        // Order sroploss
extern int TakeProfit      = 0;        // Order takeprofit
extern int Profit          = 0;        // Querency Profit
extern int TrailingStop    = 0;        // Trailing stop
extern int TrailingStep    = 0;        // Trailing step
extern int Count           = 5;        // Orders count
extern int Expiration      = 55;       // The expiry of the order in hours
extern int Step            = 100;      // Order step
extern int Delta           = 100;      // Distance from the price
extern int Slip            = 3;        // Slippage
extern int StopLimit       = 0;        // 0-Stop 1-Limit
extern int ClosePos        = 0;        // 1-Close Positions
extern int Magic           = 123;      // Magic number

datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
   if(!IsTradeAllowed())Alert("Allow the EA to trade!");
   if(!IsLibrariesAllowed())Alert("Allow DLL import!");
   if(!IsExpertEnabled()) Alert("Allow startup advisors!");

   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0,err=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,Lots(type),NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,TimeCurrent()+Expiration*3600,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Ступенчатый трал               if(TrailingStop>0) Trailing();    |
//+------------------------------------------------------------------+
void Trailing()
  {
   bool mod;
   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)
              {
               if(Bid-OrderOpenPrice()>TrailingStop*Point)
                 {
                  if(OrderStopLoss()<Bid-(TrailingStop+TrailingStep-1)*Point)
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*Point,Digits),OrderTakeProfit(),0,Yellow);
                    }
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if((OrderOpenPrice()-Ask)>TrailingStop*Point)
                 {
                  if(OrderStopLoss()>Ask+(TrailingStop+TrailingStep-1)*Point || OrderStopLoss()==0)
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*Point,Digits),OrderTakeProfit(),0,Yellow);
                    }
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
  {
   bool cl;
   int err=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Подсчет ордеров по типу                                          |
//+------------------------------------------------------------------+
int CountOrders(int type=-1)
  {
   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()==type || (OrderType()>=0 && type==-1)) count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//| Профит всех ордеров по типу ордера                               |
//+------------------------------------------------------------------+
double AllProfit(int ot=-1)
  {
   double pr=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }

            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//| Лот для усреднителя                                              |
//+------------------------------------------------------------------+
double Lots(int type)
  {
   double lots=Lot;
   lots=NormalizeDouble(Lot*MathPow(KLot,CountOrders(type)),2);
   if(lots>MaxLot)lots=Lot;
   return(lots);
  }
//+------------------------------------------------------------------+
//| Удаление отложенных ордеров                                      |
//+------------------------------------------------------------------+
void DelOrder(int type)
  {
   bool del;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==type) del=OrderDelete(OrderTicket());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(TrailingStop>0) Trailing();

   if(t!=Time[0])
     {
      if(Open[1]<Close[1])
        {
         DelOrder(5);
         DelOrder(2);

         for(int i=1; i<=Count;i++)
           {
            if(StopLimit==0)PutOrder(4,Bid+Delta*Point+Step*Point*i);//buystop
            if(StopLimit==1)PutOrder(3,Bid+Delta*Point+Step*Point*i);//selllimit
           }
        }

      if(Open[1]>Close[1])
        {
         DelOrder(4);
         DelOrder(3);

         for(int i=1; i<=Count;i++)
           {
            if(StopLimit==0)PutOrder(5,Bid-Delta*Point-Step*Point*i);//sellstop
            if(StopLimit==1)PutOrder(2,Bid-Delta*Point-Step*Point*i);//buylimit
           }
        }
      t=Time[0];
     }

   if(AllProfit()>Profit && Profit>0) CloseAll();
   if(ClosePos>0 && CountOrders(0)>0 && CountOrders(1)>0) CloseAll(0);
   if(ClosePos>0 && CountOrders(0)>0 && CountOrders(1)>0) CloseAll(1);

   Comment("\n All Profit: ",AllProfit(-1),
           "\n Buy Profit:  ",AllProfit(0),
           "\n Sell Profit: ",AllProfit(1),
           "\n Buy Positions:  ",CountOrders(0),
           "\n Sell Positions: ",CountOrders(1),
           "\n All Positions:  ",CountOrders(0)+CountOrders(1));
  }
//+------------------------------------------------------------------+
avatar

AM2

  • 22 июня 2016, 19:03
Советник пробойник "Б-М" / Стол заказов MQL 33
0
Осталось только сделать так, чтоб закрывались все ордера, когда есть замок между ордерами.

Объясните этот момент максимально подробно со скринами.
avatar

AM2

  • 22 июня 2016, 18:42
Советник пробойник "Б-М" / Стол заказов MQL 33
0
Все:


//+------------------------------------------------------------------+
//|                                                       Grider.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 double Lot          = 0.1;      // Trade volume
extern double KLot         = 1.3;      // Lot increase
extern double MaxLot       = 5;        // Maximum lot
extern int StopLoss        = 0;        // Order sroploss
extern int TakeProfit      = 0;        // Order takeprofit
extern int Profit          = 0;        // Querency Profit
extern int TrailingStop    = 0;        // Trailing stop
extern int TrailingStep    = 0;        // Trailing step
extern int Count           = 5;        // Orders count
extern int Expiration      = 55;       // The expiry of the order in hours
extern int Step            = 100;      // Order step
extern int Delta           = 100;      // Distance from the price
extern int Slip            = 3;        // Slippage
extern int StopLimit       = 0;        // 0-Stop 1-Limit
extern int ClosePos        = 0;        // 1-Close Positions
extern int Magic           = 123;      // Magic number

datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
   if(!IsTradeAllowed())Alert("Allow the EA to trade!");
   if(!IsLibrariesAllowed())Alert("Allow DLL import!");
   if(!IsExpertEnabled()) Alert("Allow startup advisors!");

   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0,err=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,Lots(type),NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,TimeCurrent()+Expiration*3600,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Ступенчатый трал               if(TrailingStop>0) Trailing();    |
//+------------------------------------------------------------------+
void Trailing()
  {
   bool mod;
   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)
              {
               if(Bid-OrderOpenPrice()>TrailingStop*Point)
                 {
                  if(OrderStopLoss()<Bid-(TrailingStop+TrailingStep-1)*Point)
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-TrailingStop*Point,Digits),OrderTakeProfit(),0,Yellow);
                    }
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if((OrderOpenPrice()-Ask)>TrailingStop*Point)
                 {
                  if(OrderStopLoss()>Ask+(TrailingStop+TrailingStep-1)*Point || OrderStopLoss()==0)
                    {
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+TrailingStop*Point,Digits),OrderTakeProfit(),0,Yellow);
                    }
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
  {
   bool cl;
   int err=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Подсчет ордеров по типу                                          |
//+------------------------------------------------------------------+
int CountOrders(int type=-1)
  {
   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()==type || (OrderType()>=0 && type==-1)) count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//| Профит всех ордеров по типу ордера                               |
//+------------------------------------------------------------------+
double AllProfit(int ot=-1)
  {
   double pr=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0 && (ot==0 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }

            if(OrderType()==1 && (ot==1 || ot==-1))
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//| Лот для усреднителя                                              |
//+------------------------------------------------------------------+
double Lots(int type)
  {
   double lots=Lot;
   lots=NormalizeDouble(Lot*MathPow(KLot,CountOrders(type)),2);
   if(lots>MaxLot)lots=Lot;
   return(lots);
  }
//+------------------------------------------------------------------+
//| Удаление отложенных ордеров                                      |
//+------------------------------------------------------------------+
void DelOrder(int type)
  {
   bool del;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==type) del=OrderDelete(OrderTicket());
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(TrailingStop>0) Trailing();
   
   if(t!=Time[0])
     {
      if(Open[1]<Close[1])
        {
         DelOrder(5);
         DelOrder(2);
         if(ClosePos>0) CloseAll();
         for(int i=1; i<=Count;i++)
           {
            if(StopLimit==0)PutOrder(4,Bid+Delta*Point+Step*Point*i);//buystop
            if(StopLimit==1)PutOrder(3,Bid+Delta*Point+Step*Point*i);//selllimit
           }
        }

      if(Open[1]>Close[1])
        {
         DelOrder(4);
         DelOrder(3);
         if(ClosePos>0) CloseAll();
         for(int i=1; i<=Count;i++)
           {
            if(StopLimit==0)PutOrder(5,Bid-Delta*Point-Step*Point*i);//sellstop
            if(StopLimit==1)PutOrder(2,Bid-Delta*Point-Step*Point*i);//buylimit
           }
        }
      t=Time[0];
     }
     
   if(AllProfit()>Profit && Profit>0) CloseAll();
   
   Comment("\n All Profit: ",AllProfit(-1),
           "\n Buy Profit:  ",AllProfit(0),
           "\n Sell Profit: ",AllProfit(1),
           "\n Buy Positions:  ",CountOrders(0),
           "\n Sell Positions: ",CountOrders(1),
           "\n All Positions:  ",CountOrders(0)+CountOrders(1));
  }
//+------------------------------------------------------------------+
avatar

AM2

  • 22 июня 2016, 10:56
Советник пробойник "Б-М" / Стол заказов MQL 33
0
Сейчас буду смотреть.
avatar

AM2

  • 22 июня 2016, 10:32
Индикатор "Market Profile" / Блог им. AM2 35
+1
Слишком ранние входы. Цена еще недостаточно поболталась на уровне, срывает стопы и идет куда положено.

avatar

AM2

  • 22 июня 2016, 06:59
Переделать Эксперт "РСИ + КЕЛТНЕР". / Стол заказов MQL 3
0
Замените эту строчку: 
if(lot>MaxLot)lot=Lots;

На: 
if(lot>MaxLot)lot=MaxLot;

avatar

AM2

  • 21 июня 2016, 19:55
Переделать сову. В ней ошибка фикса-входа. / Стол заказов MQL 4
0
Править чужой код я не возьмусь. Если будет простенькое ТЗ для того момента что не получается, по своему напишу.
avatar

AM2

  • 21 июня 2016, 19:46
Переделать сову. В ней ошибка фикса-входа. / Стол заказов MQL 4
0
Посмотрю сегодня.
avatar

AM2

  • 21 июня 2016, 18:08
Индикатор "Market Profile" / Блог им. AM2 35
+2
Еще одна в плюс закрылась. А сейчас думаю входить или нет?

avatar

AM2

  • 21 июня 2016, 07:55
Индикатор "Market Profile" / Блог им. AM2 35
+1
Индикатор слева :) 

avatar

AM2

  • 21 июня 2016, 07:49
Переделать Эксперт "РСИ + КЕЛТНЕР". / Стол заказов MQL 3
0
Оно? www.opentraders.ru/downloads/1184/

avatar

AM2

  • 20 июня 2016, 21:21
Индикатор "Market Profile" / Блог им. AM2 35
0
Сегодня открывался в сторону закрытия гепа. Желательно держать сделку до тейка и мониторить.



avatar

AM2

  • 20 июня 2016, 20:51
Советник - помошник. / Стол заказов MQL 12
0
Ставим на один график, стопы бу и трал будут сколько укажете в ваших пунктах. в общем тестируйте.
avatar

AM2

  • 20 июня 2016, 08:50
Советник - помошник. / Стол заказов MQL 12
0
Есть, работает: www.opentraders.ru/downloads/1213/

avatar

AM2

  • 19 июня 2016, 16:22
Индикатор "Market Profile" / Блог им. AM2 35
0
Buy, Sell, другое — напр. флет, «средний уровень-зона», ожидание разворота (зона приближения экстремума) и т.п.

Это все очень идивидуально, наблюдайте, стройте свою ТС. Моей всего 5 дней от роду :) 
avatar

AM2

  • 18 июня 2016, 14:15
Индикатор "Market Profile" / Блог им. AM2 35
0
ну почему отсутствие системы? ты же по market profile торговал — а это и есть система


ТС еще только формируется. У меня получилось 2-4 трейда в день, оптимальные стопы по результатам недели сл — 125 тп -250.
avatar

AM2

  • 18 июня 2016, 14:05
камонсава-сова на индюках / Стол заказов MQL 23
0
может быть, и кстати еще БУ не ставиться на цену открытия

По скринам у вас бу отключен. Д.б. уровень бу 100 пукты бу 0.

Андрей заметил пропуск открытия ордеров



На данный момент советник не видит индикаторы.
avatar

AM2

  • 18 июня 2016, 13:59
Индикатор "Market Profile" / Блог им. AM2 35
+1
Мой результат за неделю, при полном отсутствии системы и навыков ручной торговли.

avatar

AM2

  • 17 июня 2016, 22:05
Советник на 2-х МА. / Стол заказов MQL 48
0
Будет оплачиваемый заказ, буду смотреть.
avatar

AM2

  • 17 июня 2016, 20:07
Советник - помошник. / Стол заказов MQL 12
0
У меня ограничение по количеству заказов. Не возьмусь.
avatar

AM2

  • 17 июня 2016, 20:04