Попробуйте заменить таймфрейм на 100 - MQL4 и MetaTrader 4

Tretyakov Rostyslav 2020.01.21 12:40 #10451

Стандартный код Машки

#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Red
//--- indicator parameters
input int            InpMAPeriod=13;        // Period
input int            InpMAShift=0;          // Shift
input ENUM_MA_METHOD InpMAMethod=MODE_SMA;  // Method
//--- indicator buffer
double ExtLineBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit(void)
  {
   string short_name;
   int    draw_begin=InpMAPeriod-1;
//--- indicator short name
   switch(InpMAMethod)
     {
      case MODE_SMA  : short_name="SMA(";                break;
      case MODE_EMA  : short_name="EMA(";  draw_begin=0; break;
      case MODE_SMMA : short_name="SMMA(";               break;
      case MODE_LWMA : short_name="LWMA(";               break;
      default :        return(INIT_FAILED);
     }
   IndicatorShortName(short_name+string(InpMAPeriod)+")");
   IndicatorDigits(Digits);
//--- check for input
   if(InpMAPeriod<2)
      return(INIT_FAILED);
//--- drawing settings
   SetIndexStyle(0,DRAW_LINE);
   SetIndexShift(0,InpMAShift);
   SetIndexDrawBegin(0,draw_begin);
//--- indicator buffers mapping
   SetIndexBuffer(0,ExtLineBuffer);
//--- initialization done
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//|  Moving Average                                                  |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//--- check for bars count
   if(rates_total<InpMAPeriod-1 || InpMAPeriod<2)
      return(0);
//--- counting from 0 to rates_total
   ArraySetAsSeries(ExtLineBuffer,false);
   ArraySetAsSeries(close,false);
//--- first calculation or number of bars was changed
   if(prev_calculated==0)
      ArrayInitialize(ExtLineBuffer,0);
//--- calculation
   switch(InpMAMethod)
     {
      case MODE_EMA:  CalculateEMA(rates_total,prev_calculated,close);        break;
      case MODE_LWMA: CalculateLWMA(rates_total,prev_calculated,close);       break;
      case MODE_SMMA: CalculateSmoothedMA(rates_total,prev_calculated,close); break;
      case MODE_SMA:  CalculateSimpleMA(rates_total,prev_calculated,close);   break;
     }
//--- return value of prev_calculated for next call
   return(rates_total);
  }

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

Как сделать, чтоб при смене таймфрейма менялось значение "InpMAPeriod".

Например: при М15 - "InpMAPeriod"

при М30 - "InpMAPeriod2"

Я не програмист, помогите пожалуйста.

Пересчет индикатора в Советнике Работа с индикаторами портированными Подскажите пожалуйста как сделать

Alexandr Sokolov 2020.01.21 14:35 #10452

Я в недоумении - либо мне глаза врут, либо я чё-то упустил

Вот формула расчёта (во всё вникать не обязательно, обратите внимание на условия вывода принта и расчёт внутри return() - код на желтом фоне)

double Phase_Value_2(int index, double point, int period)
  {
   
   double muving = 0, flat = 0, up = EMPTY_VALUE, down = EMPTY_VALUE;
   int limit = index + (period > 1 ? period : 1);
   for(int i = index; i < limit; i++)
     {
      if(High[i] <= High[i+1] && Low[i] >= Low[i+1])
        {
         flat += High[i] - Low[i];
        }
      else if(MathMax(High[i],High[i+1]) - MathMin(Low[i],Low[i+1]) < High[i] - Low[i] + High[i+1] - Low[i+1])
        {
         muving += High[i] - Low[i];
        }
      else
        {
         up     = (High[i] > High[i+1] ? High[i] - High[i+1] : 0);
         down   = (Low[i] < Low[i+1] ? Low[i+1] - Low[i] : 0);
         muving += up + down;
         up     = MathMin(High[i],High[i+1]);
         down   = MathMax(Low[i],Low[i+1]);
         flat   += up - down;
        };
     };
   
   muving = (muving == 0 ? 1 * point : muving);
   flat   = (flat == 0 ? 1 * point : flat);
   if(flat <= muving && flat / muving > 1) Print("index ",(string)index," ",(string)flat," / ",(string)muving," = ",(string)(flat/muving));
  //-----------------------------------------------------------------
   return(muving < flat ? (1 - (muving / flat)) * (-1) : 1 - (flat / muving));
  }

... на этом этапе все значения корректно возвращаются в диапазоне от 1 до -1

Но когда эти значения принтовать из буфера - диапазон нарушается (в буфере диапазон уже от 100 до -100)

Вот сам цикл

for(int i = limit_slowing; i >= 0; i--)
     {
      if(p_slowing > 1) {Slowing(i,(int)p_slowing,p_method,P);}
      else              {P[i] = Phase_Value_2(i,_Point,(int)p_period) * 100;}; if(P[i] > 100 || P[i] < -100) Print("index ",(string)i,", value ",(string)P[i]);
     };

Внутри замедлителя никаких прибавлений не происходит, только умножение на 100

void Slowing(int index, int slowing, ENUM_MA_METHOD method, double &Bufer[])
  {
   
   double value = 0, c = 2 / (double)(slowing+1); int limit, period = slowing, sum_period = 0;
   
   if(method == MODE_SMA)
     {
      limit = index + slowing;
      for(int i = index; i < limit; i++) value += Inhibitor[i];
      Bufer[index] = (value / (double)slowing) * 100;
     }
   
   else if(method == MODE_EMA)
     {
      if(Bufer[index+1] == EMPTY_VALUE)
        {
         limit = index + slowing;
         for(int i = index; i < limit; i++) value += Inhibitor[i];
         Bufer[index] = (value / (double)slowing) * 100; return;
        };
      Bufer[index] = (c * Inhibitor[index] + (1-c) * (Bufer[index+1]/100)) * 100;
     }
   
   else if(method == MODE_SMMA)
     {
      if(Bufer[index+1] == EMPTY_VALUE)
        {
         limit = index + slowing;
         for(int i = index; i < limit; i++) value += Inhibitor[i];
         Bufer[index] = (value / (double)slowing) * 100; return;
        };
      if(Bufer[index+1] != EMPTY_VALUE && Bufer[index+2] == EMPTY_VALUE)
        {
         limit = index + slowing;
         for(int i = index; i < limit; i++) value += Inhibitor[i];
         Bufer[index] = ((value - (Bufer[index+1]/100) + Inhibitor[index]) / (double)slowing) * 100; return;
        };
      value = (Bufer[index+1]/100) * (double)slowing;
      Bufer[index] = ((value - (Bufer[index+1]/100) + Inhibitor[index]) / (double)slowing) * 100;
     }
   
   else
     {
      limit = index + slowing;
      for(int i = index; i < limit; i++)
        {
         value += Inhibitor[i] * (double)period;
         sum_period += period; period--;
        };
      Bufer[index] = value / (double)sum_period * 100;
     };
   
  }

В чём проблема?

Новая версия платформы MetaTrader Кнопка включения советника Любой вопрос новичка, чтоб

Vitaly Muzichenko 2020.01.21 14:43 #10453

Alexandr Sokolov:

Я в недоумении - либо мне глаза врут, либо я чё-то упустил

В чём проблема?

Совсем не разбирался в коде

*100

попробуйте заменить на 100.0

Alexandr Sokolov 2020.01.21 14:47 #10454

Vitaly Muzichenko:

Совсем не разбирался в коде

попробуйте заменить на 100.0

попробовал, не помогло

ukrop1203 2020.01.21 15:11 #10455

ukrop1203:
Здравствуйте, после окончания теста експерта я получаю ошибку об неудаленных обьектах, при этом абсолютно все обьекты я создаю, насколько я понимаю, в стеке, тоесть без new. Обьясните пожалуйста данный вопрос.

Попытка номер 2, прошу ответить на вопрос.

Vladimir Simakov 2020.01.21 18:19 #10456

ukrop1203:

Попытка номер 2, прошу ответить на вопрос.

Чудес не бывает, если пишет, что утекло, значит где-то выделил в куче и забыл. Ищи. Как вариант, в конструктор вставь

if (CheckPointer(&this)==POINTER_DYNAMIC) DebugBreak();

и под отладчиком отлови место.

ukrop1203 2020.01.22 08:16 #10457

bool CloseByBu(OpenModel& open_model) { 
   bool closed_by_bu = False;
   if (OrderSelect(open_model.bu_ticket, SELECT_BY_TICKET, MODE_TRADES) && OrderType() <= 1) {
      closed_by_bu = OrderCloseBy(open_model.bu_ticket, open_model.ticket);   
      if (!closed_by_bu) {         
         PrintMessageInLog(StringFormat("DIDN'T CLOSE order by opposite order first ticket=%i, second ticket=%i, error=%i", 
			   		open_model.ticket, open_model.bu_ticket, GetLastError()));         
         PrintMessageInLog(StringFormat("First order selected=%s, order type=%i, order price=%f", 
                           		string(OrderSelect(open_model.ticket, SELECT_BY_TICKET, MODE_TRADES)), OrderType(), OrderOpenPrice()));
         PrintMessageInLog(StringFormat("Second order selected=%s, order type=%i, order price=%f", 
                           		string(OrderSelect(open_model.bu_ticket, SELECT_BY_TICKET, MODE_TRADES)), OrderType(), OrderOpenPrice()));                                       
      }
   }   
   return closed_by_bu;
}

2018.01.02 08:01:30 DIDN'T CLOSE order by opposite order first ticket=2, second ticket=3, error=3

2018.01.02 08:01:30 First order selected=true, order type=1, order price=1.351920

2018.01.02 08:01:30 Second order selected=true, order type=0, order price=1.351590

Не закрывает два встречных ордера, обьясните пожалуйста.

Советники: Sprut Советник всем миром Обработка транзакций OnTradeTransaction

Viatcheslav Pashkov 2020.01.22 12:24 #10458

Почему 2 перегруженных функции прорисовки вертикальной линии компилятором одобряются (в первой - выбор цвета, во втором - цвета и окна) и можно использовать обе, а при добавлении третьей, с выбором цвета, окна и стиля - ругается и заставляет все функции прописать по третьему типу?

void VLine(int window=0) {
 
  
 string nm="VLINE"+(string)(Time[0]);
 
   if (ObjectFind(nm)<0) ObjectCreate(nm, OBJ_VLINE, window, 0,0);
  ObjectSet(nm, OBJPROP_TIME1, Time[0]);
  ObjectSet(nm, OBJPROP_COLOR, Red);
  ObjectSet(nm, OBJPROP_STYLE, 0);
  ObjectSet(nm, OBJPROP_WIDTH, 1);
  ObjectSetString(0,nm, OBJPROP_TOOLTIP,"\n");
}


void VLine(color cl, int window=0) {
 
  
 string nm="VLINE"+(string)(Time[0]);
 
   if (ObjectFind(nm)<0) ObjectCreate(nm, OBJ_VLINE, window, 0,0);
  ObjectSet(nm, OBJPROP_TIME1, Time[0]);
  ObjectSet(nm, OBJPROP_COLOR, cl);
  ObjectSet(nm, OBJPROP_STYLE, 0);
  ObjectSet(nm, OBJPROP_WIDTH, 1);
  ObjectSetString(0,nm, OBJPROP_TOOLTIP,"\n");
}




void VLine(color cl, int window=0, int style=0) {
 
 
 string nm="STOPLINE"+(string)(Time[0]);
 
   if (ObjectFind(nm)<0) ObjectCreate(nm, OBJ_VLINE, window, 0,0);
  ObjectSet(nm, OBJPROP_TIME1, Time[0]);
  ObjectSet(nm, OBJPROP_COLOR, cl);
  ObjectSet(nm, OBJPROP_STYLE, style);
  ObjectSet(nm, OBJPROP_WIDTH, 1);
  ObjectSetString(0,nm, OBJPROP_TOOLTIP,"\n");
}

Документация по MQL5: Константы, перечисления и структуры / Константы объектов / Типы объектов

www.mql5.com

При создании графического объекта функцией ObjectCreate() необходимо указать тип создаваемого объекта, который может принимать одно из значений перечисления ENUM_OBJECT. Дальнейшие уточнения свойств созданного объекта возможно с помощью функций по работе с графическими объектами.

Новая версия платформы MetaTrader Вопросы от начинающих MQL5 Предлагаю при прорисовке баров

Artyom Trishkin 2020.01.22 13:14 #10459

Viatcheslav Pashkov:

Почему 2 перегруженных функции прорисовки вертикальной линии компилятором одобряются (в первой - выбор цвета, во втором - цвета и окна) и можно использовать обе, а при добавлении третьей, с выбором цвета, окна и стиля - ругается и заставляет все функции прописать по третьему типу?

Значения по умолчанию нивелируют присутствие входного параметра. Считайте, что его нету. И поглядите - есть ли возможность компилятору выбрать правильную функцию.

Igor Makanu 2020.01.22 13:47 #10460

ukrop1203:

Не закрывает два встречных ордера, обьясните пожалуйста.

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

Любые вопросы новичков по MQL4 и MQL5, помощь и обсуждение по алгоритмам и кодам - страница 1046