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

Разбираем топовый сигнал "AD AUDUSD" / Торговые системы 13

0

Скачать советник: www.opentraders.ru/downloads/1613/

AM2

18 июня 2017, 22:27

Разбираем топовый сигнал "AD AUDUSD" / Торговые системы 13

0

этот момент я сейчас доделываю

AM2

18 июня 2017, 18:10

Разбираем топовый сигнал "AD AUDUSD" / Торговые системы 13

+1

Еще больше наоптимизировал!

AM2

18 июня 2017, 17:49

Разбираем топовый сигнал "AD AUDUSD" / Торговые системы 13

+1

Эх не успел добавить советник

AM2

18 июня 2017, 16:58

советник лок лох / Стол заказов MQL 9

0

Сделал в упрощенном виде. Не ожидал что будет прибыль со случайными настройками: www.opentraders.ru/downloads/1612/

AM2

18 июня 2017, 12:23

РОБОТ – СТОХАСТИК DSS / Стол заказов MQL 6

0

Теперь все по ТЗ: www.opentraders.ru/downloads/1611/

AM2

18 июня 2017, 11:46

РОБОТ – СТОХАСТИК DSS / Стол заказов MQL 6

0

Есть все кроме этого:

Для этого Стохан должен вернуться за уровень, а потом опять пробить его.


//+------------------------------------------------------------------+
//|                                                       Stohan.mq4 |
//|                                              Copyright 2017, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, 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      = 250;      // лось
extern int TakeProfit    = 150;      // язь
extern int Count         = 10;       // число трейдов
extern int CloseSig      = 1;        // закрытие по сигналу
extern int Slip          = 30;       // реквот
extern int Shift         = 1;        // на каком баре сигнал индикатора
extern int Magic         = 123;      // магик

extern string IndName    = "DssBresert";
extern int EMAPeriod     =  25;
extern int StochPeriod   =  80;
extern int Level         =  15;

datetime t=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;

   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,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;
   if(CountTrades()>0) lot=NormalizeDouble(Lots*MathPow(KLot,CountTrades()),2);
   if(lot>MaxLot)lot=Lots;
   return(lot);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OpenPos()
  {
   double st1=iCustom(NULL,0,IndName,EMAPeriod,StochPeriod,1,Shift);
   double st2=iCustom(NULL,0,IndName,EMAPeriod,StochPeriod,1,Shift+1);

   if(st1>st2 && st1<Level)
     {
      PutOrder(0,Ask);
     }

   if(st1<st2 && st1>100-Level)
     {
      PutOrder(1,Bid);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void ClosePos()
  {
   double st1 = iCustom(NULL,0,IndName,EMAPeriod,StochPeriod,1,Shift);
   double st2 = iCustom(NULL,0,IndName,EMAPeriod,StochPeriod,1,Shift+1);
//---
   if(st1<st2 && st1>100-Level)
     {
      CloseAll(0);
     }

   if(st1>st2 && st1<Level)
     {
      CloseAll(1);
     }
  }
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера                                  |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
  {
   bool cl;
   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);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double st1 = iCustom(NULL,0,IndName,EMAPeriod,StochPeriod,1,Shift);
   double st2 = iCustom(NULL,0,IndName,EMAPeriod,StochPeriod,1,Shift+1);

   if(t!=Time[0])
     {
      if(CountTrades()<=Count) OpenPos();
      if(CloseSig>0) ClosePos();
      t=Time[0];
     }

   Comment("\n st1: ",st1,
           "\n st2: ",st2);
  }
//+------------------------------------------------------------------+

AM2

18 июня 2017, 11:31

Переделка в советник при условии fatl>rftl>satl>rstl то покупка,при satl<rstl закрытие,при fatl<rftl<satl<rstl то продажа, при satl>rstl закрытие,EURUSD 5M. / Стол заказов MQL 5

0

По сути ваш индикатор это 4 мувинга: www.opentraders.ru/downloads/1610/

AM2

18 июня 2017, 09:47

Подскажите как описать / Стол заказов MQL 5

0

Но не могу понять как мне сделать полоску не на весь экран, а только в пределах одной свечи?

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutTrendLine(string name,datetime time1,double price1,datetime time2,double price2,color clr)
  {
   ObjectCreate(0,name,OBJ_TREND,0,time1,price1,time2,price2);
//--- установим цвет линии 
   ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
//--- установим стиль отображения линии 
   ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_DOT);
//--- установим толщину линии 
   ObjectSetInteger(0,name,OBJPROP_WIDTH,1);
//--- включим (true) или отключим (false) режим продолжения отображения линии вправо 
   ObjectSetInteger(0,name,OBJPROP_RAY_RIGHT,false);
  }

AM2

17 июня 2017, 19:05

Подскажите как описать / Стол заказов MQL 5

+1

Отдельно группы нет, форума тоже. если только в чате кодеры подскажут или здесь кому не лень

AM2

17 июня 2017, 16:06

Советник Bheurekso pattern / Стол заказов MQL 9

0

Вот то что получилось, как смог отловил сигнал. Далее если захотите продолжить, то самостоятельно или к платному:


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

//--- Inputs
extern double Lots       = 0.1;      // лот
extern int StopLoss      = 0;        // лось
extern int TakeProfit    = 0;        // язь
extern int Slip          = 30;       // реквот
extern int Shift         = 1;        // на каком баре сигнал индикатора
extern int CloseSig      = 1;        // 1-кроем по сигналу 
extern int Magic         = 123;      // магик

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

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
long ArrowCode()
  {
   long code=0;
   for(int i=0;i<ObjectsTotal();i++)
     {
      if(StringFind(ObjectName(i),"Arrow",0)>=0) code=ObjectGetInteger(0,ObjectName(i),OBJPROP_ARROWCODE);
     }
   return(code);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
string ArrowName()
  {
   string nm="";
   for(int i=0;i<ObjectsTotal();i++)
     {
      if(StringFind(ObjectName(i),"Arrow",0)>=0) nm=ObjectName(i);
     }
   return(nm);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int ArrowFind()
  {
   int type=0;
   for(int i=0;i<ObjectsTotal();i++)
     { 
      if(StringFind(ObjectName(i),"Arrow-",0)>=0) type=2;//sell
      if(StringFind(ObjectName(i),"Arrow+",0)>=0) type=1;//buy
     }
   return(type);
  }
//+------------------------------------------------------------------+
//| Установка ордера                                                 |
//+------------------------------------------------------------------+
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,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);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OpenPos()
  {
   if(ArrowFind()==1)
     {
      PutOrder(0,Ask);
     }

   if(ArrowFind()==2)
     {
      PutOrder(1,Bid);
     }
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---

  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double ind=iCustom(NULL,0,"Bheurekso_pattern",true,500,true,0);

   if(t!=Time[0])
     {
      if(CountTrades()<1) OpenPos();
      t=Time[0];
     }

   Comment("\n Code: ",ArrowCode(),
           "\n Name: ",ArrowName(),
           "\n Trade: ",ArrowFind());
  }
//+------------------------------------------------------------------+

AM2

16 июня 2017, 23:48

Советник Bheurekso pattern / Стол заказов MQL 9

0

Стрелки сливаются с текстом, поэтому их не видно. Буферы индикатора не содержат значений. По именам стрелок тоже не представляется возможным отловить сигнал.