На МТ4 этого бага нет. Попробуйте на МТ5, чтобы выигрыш моей iBars перед штатной Bars будет где-то в два раза медленней - Общее обсуждение

pavlick_ 2018.04.22 02:16 #151

Вообще читал по диагонали и только первые страницы (может в середине и была чья-то светлая голова? :) ), что-то все пытаются пристроить костыли к жутко неудобному интерфейсу терминала для доступа к истории, проще написать прокладку между терминалом и своими поделками (вообще это должно быть в стд библиотеке). К тому же, в результате этого, не надо писать разные скрипты для 4/5. Я такое делал:

// comp.comp() returns true if the first argument is less than the second.
// If failure, returns UINT_MAX.
template<typename A, typename T, typename Comp>
uint alg_lower_bound(const A &ar[], uint minindex, uint maxindex,
                     const T &value, Comp &comp, bool rev=false)
{
   uint count = maxindex - minindex + 1;
   uint first = minindex;
   if(rev)
      first = maxindex;
      
   while(count != 0)
   {
      uint it = first;
      uint step = count / 2;
      if(rev)
         it -= step;
      else
         it += step;
      if(comp.comp(ar[it], value))
      {
         if(rev)
            first = --it;
         else
            first = ++it;
         count -= step + 1;
      }
      else
         count = step;
   }
   
   if(first < minindex  ||  first > maxindex)
      first = UINT_MAX;
   return first;
}

class Chart
{
   struct Bar_trend
   {
      double p1;
      double p2;
      datetime time;
   };
   Bar_trend bar_trend[];
   upindex_t sz;
   upindex_t curtain;
   bool reverse_f;
   void refresh_base(datetime min = 0, datetime max = 0);
public:
   // Empty chart will be created.
   Chart(): sz(0), curtain(UPINDEXT_MAX), reverse_f(false) {}
   // Chart with points whose time is in interval min:max will be created.
   Chart(datetime min, datetime max): sz(0), curtain(UPINDEXT_MAX), reverse_f(false) { refresh_base(min, max); }
   // Reverse flag is not changed. For whole chart min and max are 0.
   void init(datetime min, datetime max);
   My_point operator[](upindex_t i)const;
   // If exact is true then time of point with returned index is equal to time.
   // If point is not found then function returns UPINDEXT_MAX.
   upindex_t bar_shift(datetime time, bool exact=true)const;
   upindex_t size()const  {return this.curtain == UPINDEXT_MAX  ?  this.sz * 2  :  this.curtain;}
   // pos can not be greater than the size(). UPINDEXT_MAX for deletion of curtain.
   // It will be reset when refresh(). Returns true in case of success.
   bool set_curtainpos(upindex_t pos);
   upindex_t get_curtainpos()const  {return this.curtain;}
   bool reverse_mode()const  {return this.reverse_f;}
   // Returns true in case of success.
   bool reverse_mode(bool mode);
   // if chart size == 0 then lowest = highest == UPINDEXT_MAX.
   void extremums(upindex_t &lowest, upindex_t &highest)const;
   // if chart is reverse then indexes will be invalidated.
   void refresh()  { refresh_base(); }
};

upindex_t Chart::bar_shift(datetime time, bool exact)const
{
   class Comp
   {
   public:
      bool comp(const Bar_trend &bt, datetime time)  {return bt.time > time;}
   }comp;
   
   uint res = alg_lower_bound(this.bar_trend, 0, this.sz-1, time, comp, true);
   if(res != UINT_MAX)
   {
      uchar shift = this.bar_trend[res].time!=time ? 1 : 0;

      if(exact  &&  this.bar_trend[res].time+shift != time)
         res = UINT_MAX;
      else
         res = this.reverse_f ? 
               ((this.sz - 1 - res) * 2 + !shift) :  
               (res * 2 + shift);
   }
   return res == UINT_MAX ? UPINDEXT_MAX : res;
}

Ну и простой пример пользования:

Chart chart();
chart.refresh();
for(int i = 0;  i < chart.size();  ++i)
   Print(chart[i].price, chart[i].time);

refresh() через дефайны своя для 4/5. У графика лишь один период (М1 или другой заданный через дефайн, к чему этот гемор с их изобилием?).

Также вкрутил несколько удобных штук - reverse_mode() индексация с любой стороны (если слева направо, то индексы остаются валидными при обнавления графика). Возможность устанавливать и двигать край графика set_curtainpos(), аналог тестера - потестели, сдвинули границу, потестели, сдвинули. У структуры My_point перегружены операторы сравнения (для валидного поведения в подобных ситуациях: 0.0000000009 == 1.0000000000).

Если кто-то мучается то рекомендую подобный подход, лично я не пожалел.

Зы: и отказался от классических свечей с open/close/high/low, а положил в основы Point - одна свеча даёт два Point'а медвежья хай->лоу, бычья лоу-хай. Это реально очень удобно.

Вопросы от начинающих MQL5 Любые вопросы новичков по Болтовня о тестере стратегий

Nikolai Semko 2018.05.04 00:40 #152

Aleksey Vyazmikin:

Буду ждать исправлений в окончательной форме, спасибо, что ответили.

Удачи с экзаменами!

Оказалось очень много нюансов.

Если бы знал, насколько это будет заморочисто, не ввязывался бы )))

Этот вариант должен работать правильно.
Если кто-то обнаружит некорректную работу, то буду благодарен, если сообщит о проблеме.

int iBarShift(const string Symb,const ENUM_TIMEFRAMES TimeFrame,datetime time,bool exact=false)
  {
   int Res=iBars(Symb,TimeFrame,time+1,UINT_MAX);
   if(exact) if((TimeFrame!=PERIOD_MN1 || time>TimeCurrent()) && Res==iBars(Symb,TimeFrame,time-PeriodSeconds(TimeFrame)+1,UINT_MAX)) return(-1);
   return(Res);
  }

int iBars(string symbol_name,ENUM_TIMEFRAMES  timeframe,datetime start_time,datetime stop_time) // stop_time > start_time
  {
   static string LastSymb=NULL;
   static ENUM_TIMEFRAMES LastTimeFrame=0;
   static datetime LastTime=0;
   static datetime LastTime0=0;
   static int PerSec=0;
   static int PreBars=0,PreBarsS=0,PreBarsF=0;
   static datetime LastBAR=0;
   static datetime LastTimeCur=0;
   static bool flag=true;
   static int max_bars=TerminalInfoInteger(TERMINAL_MAXBARS);
   datetime TimeCur;
   if (timeframe==0) timeframe=_Period;
   const bool changeTF=LastTimeFrame!=timeframe;
   const bool changeSymb=LastSymb!=symbol_name;
   const bool change=changeTF || changeSymb || flag;

   LastTimeFrame=timeframe; LastSymb=symbol_name;
   if(changeTF) PerSec=::PeriodSeconds(timeframe); if(PerSec==0) { flag=true; return(0);}

   if(stop_time<start_time)
     {
      TimeCur=stop_time;
      stop_time=start_time;
      start_time=TimeCur;
     }
   if(changeSymb)
     {
      if(!SymbolInfoInteger(symbol_name,SYMBOL_SELECT))
        {
         SymbolSelect(symbol_name,true);
         ChartRedraw();
        }
     }
   TimeCur=TimeCurrent();
   if(timeframe==PERIOD_W1) TimeCur-=(TimeCur+345600)%PerSec; // 01.01.1970 - Thursday. Minus 4 days.
   if(timeframe<PERIOD_W1) TimeCur-=TimeCur%PerSec;
   if(start_time>TimeCur) { flag=true; return(0);}
   if(timeframe==PERIOD_MN1)
     {
      MqlDateTime dt;
      TimeToStruct(TimeCur,dt);
      TimeCur=dt.year*12+dt.mon;
     }

   if(changeTF || changeSymb || TimeCur!=LastTimeCur)
      LastBAR=(datetime)SeriesInfoInteger(symbol_name,timeframe,SERIES_LASTBAR_DATE);

   LastTimeCur=TimeCur;
   if(start_time>LastBAR) { flag=true; return(0);}

   datetime tS,tF=0;
   if(timeframe==PERIOD_W1) tS=start_time-(start_time+345599)%PerSec-1;
   else if(timeframe<PERIOD_MN1) tS=start_time-(start_time-1)%PerSec-1;
   else  //  PERIOD_MN1
     {
      MqlDateTime dt;
      TimeToStruct(start_time-1,dt);
      tS=dt.year*12+dt.mon;
     }
   if(change || tS!=LastTime) { PreBarsS=Bars(symbol_name,timeframe,start_time,UINT_MAX); LastTime=tS;}
   if(stop_time<=LastBAR)
     {
      if(PreBarsS>=max_bars) PreBars=Bars(symbol_name,timeframe,start_time,stop_time);
      else
        {
         if(timeframe<PERIOD_W1) tF=stop_time-(stop_time)%PerSec;
         else if(timeframe==PERIOD_W1) tF=stop_time-(stop_time+345600)%PerSec;
         else //  PERIOD_MN1
           {
            MqlDateTime dt0;
            TimeToStruct(stop_time-1,dt0);
            tF=dt0.year*12+dt0.mon;
           }
         if(change || tF!=LastTime0)
           { PreBarsF=Bars(symbol_name,timeframe,stop_time+1,UINT_MAX); LastTime0=tF; }
         PreBars=PreBarsS-PreBarsF;
        }
     }
   else PreBars=PreBarsS;
   flag=false;
   return(PreBars);
  }
//+------------------------------------------------------------------+
int iBars(string symbol_name,ENUM_TIMEFRAMES  timeframe) {return(Bars(symbol_name,timeframe));}
//+------------------------------------------------------------------+

Artyom Trishkin 2018.05.04 01:07 #153

Насколько ваш iBars() отличается производительностью от стандартного Bars() ?

Nikolai Semko 2018.05.04 01:44 #154

Artyom Trishkin:
Насколько ваш iBars() отличается производительностью от стандартного Bars() ?

Смотря как использовать.
Если каждый вызов iBar будет менять ТФ или символ, тогда мой iBar будет работать где-то в два раза медленней.

Но это абсолютно не реальная с практической точки зрения ситуация.

Если его использовать, например, вот так:

то выигрыш моей iBars перед штатной Bars будет где -то в 10 раз и более.

Но и главное нет бага подвисания:

   Print("1");
   Print(Bars(_Symbol,PERIOD_D1,D'2018.05.02 01:58:03',D'2018.05.02 12:56:11')); // вычисляется более 10 секунд !!!!
   Print("2");

Файлы:

TestBarShift.mq5 21 kb

[Архив]учитесь зарабатывать селяне![Архив] Как показать тип ордера Чемпионат Automated Trading Championship

Nikolai Semko 2018.05.04 23:31 #155

Была ошибка, которая возникала, если в качестве TФ передавался 0 = PERIOD_CURRENT
Исправил в коде выше. Добавил строку:

if (timeframe==0) timeframe=_Period;

transcendreamer 2018.05.05 12:41 #156

Nikolai Semko:

Смотря как использовать.
Если каждый вызов iBar будет менять ТФ или символ, тогда мой iBar будет работать где-то в два раза медленней.

Но это абсолютно не реальная с практической точки зрения ситуация.

Если его использовать, например, вот так:

то выигрыш моей iBars перед штатной Bars будет где -то в 10 раз и более.

Но и главное нет бага подвисания:

R-R-R-R-RESPECT!

Renat Akhtyamov 2018.05.05 13:47 #157

Nikolai Semko:

Смотря как использовать.
Если каждый вызов iBar будет менять ТФ или символ, тогда мой iBar будет работать где-то в два раза медленней.

Но это абсолютно не реальная с практической точки зрения ситуация.

Если его использовать, например, вот так:

то выигрыш моей iBars перед штатной Bars будет где -то в 10 раз и более.

Но и главное нет бага подвисания:

Да ладно !

Где Ваши 10 секунд?

2018.05.05 17:45:36.860    ind EURUSD,M5: 2
2018.05.05 17:45:36.860    ind EURUSD,M5: 0
2018.05.05 17:45:36.860    ind EURUSD,M5: 1

Nikolai Semko 2018.05.05 15:46 #158

Renat Akhtyamov:

Да ладно !

Где Ваши 10 секунд?

2018.05.05 17:45:36.860    ind EURUSD,M5: 2
2018.05.05 17:45:36.860    ind EURUSD,M5: 0
2018.05.05 17:45:36.860    ind EURUSD,M5: 1

Это был МТ5?

На МТ4 этого бага нет.

Renat Akhtyamov 2018.05.05 16:18 #159

Nikolai Semko:
Это был МТ5?

На МТ4 этого бага нет.

МТ4

Nikolai Semko 2018.05.05 16:22 #160

Renat Akhtyamov:
МТ4

Попробуйте на МТ5 и удивитесь.

Этот баг обнаружился совершенно случайно благодаря сообщению @Aleksey Vyazmikin. За что ему большое спасибо.

Я наблюдал до этого эти подвисания, но никак не мог объяснить их природу происхождения. Кто бы мог подумать...

Мультитаймфреймовые индикаторы Ищу индикатор - тестр Здравствуйте, воспользуйтесь этим....

Аналог iBarShift - страница 16