Alkmena

 
Уровень 10
Добро пожаловать в мой блог!


Группа "Стол заказов MQL"

Рейтинг 2151


_



UPDATE: Внимание! С ноября 2024 финансирование Стола заказов прекращено

Подробности здесь — zakaz.opentraders.ru/132091.html



Если Вы хотите заказать советник или индикатор, то публикуйте в эту группу тех. задание. Если Ваш заказ не очень сложный, то велика вероятность, что Вам его смогут сделать даже бесплатно



Программистам MQL: подпишитесь на группу, чтобы получать уведомления о заказах.

Не забывайте указывать платформу: MT4 или MT5



Свыше 4000 заказов уже выполнено бесплатно!





Перед заказом прочитайте Правила работы Стола заказов



СДЕЛАТЬ ЗАКАЗ →

* нужно быть зарегистрированным на сайте для создания заказа

** уровень должен быть 3 или выше, чтобы заказ был рассмотрен штатным программистом Стола (см. правила)


РЕКОМЕНДУЮ



*Реклама от создателя группы

Лучшее от Alkmena



Доработка советника сетка зигзаг Комментариев 9
2021-01-31 20:38:31Рейтинг 0

StopLoss по цене открытия предыдущей свечи. Комментариев 8
2018-05-05 11:52:39Рейтинг 0

советник тел и хвостов Комментариев 17
2019-11-11 19:13:52Рейтинг 0

Закрывашка открывашка Комментариев 4
2020-02-13 17:11:24Рейтинг 0

Сетка PERIOD_D1 Комментариев 6
2020-09-06 09:18:15Рейтинг 0

прошу Вас добавить в советнике

Добрый день Андрей прошу Вас изменить в советнике заказ zakaz.opentraders.ru/57055.html стоплос, чтобы он выставлялся по средней (по размеру) за последние 100 свечей но не меньше минимально разрешенного брокером расстояния. За ранее благодарен.
  • 0
  • Просмотров: 1122
  • 3 августа 2021, 12:00
  • Alkmena
Понравилcя материал? Не забудьте поставить плюс и поделиться в социальной сети!

Вступите в группу "Стол заказов MQL", чтобы следить за обновлениями
ПРИСОЕДИНИТЬСЯ К ГРУППЕ
присоединиться
  Предыдущая запись в группе
Стоповые ордера
Следующая запись в группе  
Добавленить настройки в советник
02 августа 2021
03 августа 2021

Брокер для ваших роботов, 15 лет на рынке

Комментарии (4)

+
0 
//+------------------------------------------------------------------+
//|                                                      Winner2.mq4 |
//|                                              Copyright 2021, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

//--- Inputs
extern double Lots       = 0.1;      // лот
extern double KLot       = 2;        // умножение лота
extern double MaxLot     = 5;        // максимальный лот

extern int StopLoss      = 0;        // лось
extern int Numbers       =100;       // кол-во баровв для SL
extern int TakeProfit    = 5000;     // язь
extern int TrailingStop  = 25;       // трал

extern int Spread        = 15;       // спред
extern int Delta         = 250;      // расстояние от цены
extern int Slip          = 30;       // реквот

extern int Magic         = 123;      // магик

extern int Depth         = 12;
extern int Dev           = 5;
extern int Back          = 3;

int num=0;
double last=0;

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;
   double lo=Low[iLowest(NULL,0,MODE_LOW,Numbers,1)];
   double hi=High[iHighest(NULL,0,MODE_HIGH,Numbers,1)];
   double sl2=(hi-lo)/2;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0)
        {
         sl=NormalizeDouble(price+StopLoss*_Point,_Digits);
        }
      else
        {
          sl=NormalizeDouble(price+sl2,_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);
        }
      else
        {
          sl=NormalizeDouble(price-sl2,_Digits);
        }
      if(TakeProfit>0)
         tp=NormalizeDouble(price+TakeProfit*_Point,_Digits);
     }

   r=OrderSend(NULL,type,Lot(),NormalizeDouble(price,_Digits),Slip,sl,tp,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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()<2)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot()
  {
   double lot=Lots;
   for(int i=OrdersHistoryTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
        {
         if(OrderProfit()>0)
            break;
         if(OrderProfit()<0)
           {
            lot=OrderLots()*KLot;
            break;
           }
        }
     }
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double ZZPrice(int ne=0)
  {
   double zz;
   int    i,k=iBars(NULL,0),ke=0;

   for(i=1; i<k; i++)
     {
      zz=iCustom(NULL,0,"ZigZag",Depth,Dev,Back,0,i);
      if(zz!=0)
        {
         ke++;
         if(ke>ne)
            return(zz);
        }
     }
   Print("GetExtremumZZPrice(): Экстремум ЗигЗага номер ",ne," не найден");
   return(0);
  }
//+------------------------------------------------------------------+
//| Подсчет ордеров по типу                                          |
//+------------------------------------------------------------------+
int CountOrders(int type)
  {
   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)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Trailing()
  {
   bool mod;
   double sl=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)
              {
               if(Bid-OrderOpenPrice()>TrailingStop*_Point)
                 {
                  sl=NormalizeDouble(Bid-TrailingStop*_Point,_Digits);
                  if(OrderStopLoss()<sl)
                    {
                     Print("SL: ",sl, " TP: ",OrderTakeProfit());
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if(OrderOpenPrice()-Ask>TrailingStop*_Point)
                 {
                  sl=NormalizeDouble(Ask+TrailingStop*_Point,_Digits);
                  if(OrderStopLoss()>sl || (OrderStopLoss()==0))
                    {
                     Print("SL: ",sl, " TP: ",OrderTakeProfit());
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double zz1=ZZPrice(0);
   double zz2=ZZPrice(1);
   double spread=MarketInfo(NULL,MODE_SPREAD);

   if(TrailingStop>0)
      Trailing();
   /*
   1. поступил сигнал
   2. счетчик равен +=1
   3. поставили ордера
   4. если счетчик четный не ставим
   */

   if(last!=zz1 && spread<=Spread)
     {
      num++;
      if(MathMod(num,2)==1)
        {
         if(zz1>zz2)
           {
            PutOrder(5,Low[1]-Delta*_Point);
            PutOrder(3,High[1]+Delta*_Point);
           }
         if(zz1<zz2)
           {
            PutOrder(4,High[1]+Delta*_Point);
            PutOrder(2,Low[1]-Delta*_Point);
           }
        }
      last=zz1;
     }

   Comment("\n ZZ1: ",zz1,
           "\n ZZ2: ",zz2,
           "\n Count: ",num,
           "\n Mod: ",MathMod(num,2));
  }
//+------------------------------------------------------------------+
avatar

  14  verta81 Сообщений: 440

  • 3 августа 2021, 20:25
+
0
спасибо за оперативность а где это условие «но не меньше минимально разрешенного брокером расстояния»
Редактирован: 4 августа 2021, 09:02
avatar

  10  Alkmena Автор Сообщений: 139

  • 4 августа 2021, 08:51
+
0
Добавил.

//+------------------------------------------------------------------+
//|                                                      Winner2.mq4 |
//|                                              Copyright 2021, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

//--- Inputs
extern double Lots       = 0.1;      // лот
extern double KLot       = 2;        // умножение лота
extern double MaxLot     = 5;        // максимальный лот

extern int StopLoss      = 0;        // лось
extern int Numbers       =100;       // кол-во баровв для SL
extern int TakeProfit    = 5000;     // язь
extern int TrailingStop  = 25;       // трал

extern int Spread        = 15;       // спред
extern int Delta         = 250;      // расстояние от цены
extern int Slip          = 30;       // реквот

extern int Magic         = 123;      // магик

extern int Depth         = 12;
extern int Dev           = 5;
extern int Back          = 3;

int num=0;
double last=0;

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;
   double isl=MarketInfo(Symbol(),MODE_STOPLEVEL);
   double lo=Low[iLowest(NULL,0,MODE_LOW,Numbers,1)];
   double hi=High[iHighest(NULL,0,MODE_HIGH,Numbers,1)];
   double sl2=(hi-lo)/2;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0)
        {
         sl=NormalizeDouble(price+StopLoss*_Point,_Digits);
        }
      if(isl==0 || sl2>isl)
        {
          sl=NormalizeDouble(price+sl2,_Digits);
        }
      else
        {
          sl=NormalizeDouble(price+isl,_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(isl==0 || sl2>isl)
        {
          sl=NormalizeDouble(price-sl2,_Digits);
        }
      else
        {
          sl=NormalizeDouble(price-isl,_Digits);
        }
      if(TakeProfit>0)
         tp=NormalizeDouble(price+TakeProfit*_Point,_Digits);
     }

   r=OrderSend(NULL,type,Lot(),NormalizeDouble(price,_Digits),Slip,sl,tp,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
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()<2)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Lot()
  {
   double lot=Lots;
   for(int i=OrdersHistoryTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
        {
         if(OrderProfit()>0)
            break;
         if(OrderProfit()<0)
           {
            lot=OrderLots()*KLot;
            break;
           }
        }
     }
   if(lot>MaxLot)
      lot=Lots;
   return(lot);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double ZZPrice(int ne=0)
  {
   double zz;
   int    i,k=iBars(NULL,0),ke=0;

   for(i=1; i<k; i++)
     {
      zz=iCustom(NULL,0,"ZigZag",Depth,Dev,Back,0,i);
      if(zz!=0)
        {
         ke++;
         if(ke>ne)
            return(zz);
        }
     }
   Print("GetExtremumZZPrice(): Экстремум ЗигЗага номер ",ne," не найден");
   return(0);
  }
//+------------------------------------------------------------------+
//| Подсчет ордеров по типу                                          |
//+------------------------------------------------------------------+
int CountOrders(int type)
  {
   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)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Trailing()
  {
   bool mod;
   double sl=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)
              {
               if(Bid-OrderOpenPrice()>TrailingStop*_Point)
                 {
                  sl=NormalizeDouble(Bid-TrailingStop*_Point,_Digits);
                  if(OrderStopLoss()<sl)
                    {
                     Print("SL: ",sl, " TP: ",OrderTakeProfit());
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }

            if(OrderType()==OP_SELL)
              {
               if(OrderOpenPrice()-Ask>TrailingStop*_Point)
                 {
                  sl=NormalizeDouble(Ask+TrailingStop*_Point,_Digits);
                  if(OrderStopLoss()>sl || (OrderStopLoss()==0))
                    {
                     Print("SL: ",sl, " TP: ",OrderTakeProfit());
                     mod=OrderModify(OrderTicket(),OrderOpenPrice(),sl,OrderTakeProfit(),0,Yellow);
                     return;
                    }
                 }
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double zz1=ZZPrice(0);
   double zz2=ZZPrice(1);
   double spread=MarketInfo(NULL,MODE_SPREAD);

   if(TrailingStop>0)
      Trailing();
   /*
   1. поступил сигнал
   2. счетчик равен +=1
   3. поставили ордера
   4. если счетчик четный не ставим
   */

   if(last!=zz1 && spread<=Spread)
     {
      num++;
      if(MathMod(num,2)==1)
        {
         if(zz1>zz2)
           {
            PutOrder(5,Low[1]-Delta*_Point);
            PutOrder(3,High[1]+Delta*_Point);
           }
         if(zz1<zz2)
           {
            PutOrder(4,High[1]+Delta*_Point);
            PutOrder(2,Low[1]-Delta*_Point);
           }
        }
      last=zz1;
     }

   Comment("\n ZZ1: ",zz1,
           "\n ZZ2: ",zz2,
           "\n Count: ",num,
           "\n Mod: ",MathMod(num,2));
  }
//+------------------------------------------------------------------+
avatar

  14  verta81 Сообщений: 440

  • 4 августа 2021, 16:07
+
0
спасибо
avatar

  10  Alkmena Автор Сообщений: 139

  • 4 августа 2021, 18:07

Зарегистрируйтесь или авторизуйтесь, чтобы оставить комментарий