標準的な機能/アプローチの代替実装 - ページ 4

新しいコメント
 
fxsaber:

CopyTicks の亜種で、オリジナルより数桁速いこともある (from > 0)

Build 1432 - CopyTicksの代替はもう意味がありません。
 
fxsaber:
Build 1432 - CopyTicksの代替はもう意味がありません。

1432はどこから来たのか？MetaQuotes-Demoで最新の1430を持っています。

 
Alexey Volchanskiy:

1432はどこから来たのか？MetaQuotes-Demoで最後の1430を取得しました。

彼は好意で手に入れたのだが...。
 
prostotrader:
賄賂で手に入れたのだから...。

笑っちゃいけない。一度、手に入れたことがあるんです。

 
Alexey Viktorov:

笑っちゃいけない。一度いただいたことがあります。

なんで俺が笑ってると思う？
 
prostotrader:
なんで俺が笑ってると思う？
そう思えたのです。
 

トレーディング、自動売買システム、トレーディング戦略のテストに関するフォーラム

mql5言語の特徴、微妙なニュアンスとコツ

fxsaber さん 2018.04.16 13:23

このオプションは非常に高速 です。

double StringToDouble2( const string Str, const uint StartPos = 0 )
{
  const uint Size = StringLen(Str);
  
  bool Sign = false;  
  uint i = StartPos;
  
  while (i < Size)
  {
    const int Digit = Str[i];

    if ((Digit != ' ') && (Digit != '\t') && (Digit != '\n') && (Digit != '\r'))
    {
      if ((Sign = (Digit == '-')) || (Digit == '+'))
        i++;
      
      break;
    }
      
    i++;
  }

  long Res = 0;
  int point = 0;
  
  while (i < Size)
  {
    const int Digit = Str[i];
    
    if (!point && (Digit == '.'))
      point = 1;
    else if (((Digit >= '0') && (Digit <= '9')))
    {
      Res = Res * 10 + Digit - '0';
      
      if (point)
        point *= 10;
    }
    else
      break;
      
    i++;
  }
  
  if (Sign)
    Res = -Res;
  
  return((point > 1) ? Res / (double)point : Res); // Возможна потеря точности при делении
}

大量のデータを解析する場合、大幅なスピードアップが得られます。

 
私たちは、大量の単純なシステム関数を、結果として得られるMQL5のコードにネイティブに埋め込むというアイデアに立ち返り、それを結果としてのコードの全体最適に利用することで、何倍ものスピードアップを実現したのです。

これは、NormalizeDoubleなどの 関数や文字列操作などに適用されます。

来週の発売後、次回のベータ版で利用可能になる予定。
 
Renat Fatkhullin:
私たちは、大量のシンプルなシステム関数を、結果として得られるMQL5のコードにネイティブに埋め込むというアイデアに立ち返り、それを結果としてのコードの全体最適に利用することで、何倍ものスピードアップを実現したのです。

OKです。

 
fxsaber:

OKです。

お帰りなさい

ChartXYToTimePrice アナログ

完全なアナログ（パラメータ）ではないのですが、このバリエーションはさらに便利で実用的なように思います。また、速度も（2桁ほど）速くなりました。
機能的には完全なアナログで、さらに、（元の関数と違って）X, Y（カーソル）のあるサブウィンドウの番号を返し、もし-1ならウィンドウ（サブウィンドウ）の外側を返します。

このアナログは、入力パラメータchart_id とsub_window を含んでいないため、この関数が現在のウィンドウの外でどのように使用されるかがわかりません。また、sub_window パラメータは、その値に関係なく、元の関数が全く同じように動作するため、さらに不明確である。



// Fast Analog ChartXYToTimePrice function (https://www.mql5.com/ru/docs/chart_operations/chartxytotimeprice)
int XYToTimePrice(int x,int y,datetime &time,double &price,int id=0) // возвращает номер подокна в котором находится X,Y (курсор), если -1 - то вне окна
  {
   static int left_bar; // номер самого левого бара на экране
   static int Wid;
   static int Hei[10];
   static double y_min[10];
   static double y_max[10];
   static int PerSec=PeriodSeconds();
   static bool ChartChange=true;
   static int windowsTotal=(int)ChartGetInteger(0,CHART_WINDOWS_TOTAL);
   static int Cur_wind=-1;
   static int WidthBar=int(1<<ChartGetInteger(0,CHART_SCALE));
   if(id==CHARTEVENT_CHART_CHANGE) if(!ChartChange) {ChartChange=true; return(Cur_wind);}
   if(ChartChange) // если было изменение чатра после последнего вычисления
     {
      windowsTotal=(int)ChartGetInteger(0,CHART_WINDOWS_TOTAL);
      if(windowsTotal>10) {Print("Too many subwindows"); return(-1);}
      for(int i=0;i<windowsTotal;i++) if(i>0) Hei[i]=(int)ChartGetInteger(0,CHART_HEIGHT_IN_PIXELS,i)+Hei[i-1]+2;
      else Hei[0]=(int)ChartGetInteger(0,CHART_HEIGHT_IN_PIXELS,0);
      left_bar=(int)ChartGetInteger(0,CHART_FIRST_VISIBLE_BAR, 0);        // номер самого левого бара на экране
      Wid=(int)ChartGetInteger(0,CHART_WIDTH_IN_PIXELS, 0);               // ширина экрана в пикселях
      WidthBar=int(1<<ChartGetInteger(0,CHART_SCALE));                    // растояние между барами в пикселях
                                                                          
      for(int i=0;i<windowsTotal;i++)
        {
         y_min[i]=ChartGetDouble(0,CHART_PRICE_MIN, i);                         // макс. цена на экране
         y_max[i]=ChartGetDouble(0,CHART_PRICE_MAX, i);                         // мин. цена на экране
        }
     }
   if(x>(Wid+1) || x<0 || y<0 || y>=(Hei[windowsTotal-1]+1)) return(-1);  // выходим если точка (x,y) за пределами экрана
   Cur_wind=-1;
   if(y>=0 && y<=Hei[0]) Cur_wind=0;
   else if(windowsTotal>1) for(int i=1;i<windowsTotal;i++) if(y>(Hei[i-1]+1) && y<=Hei[i]) { Cur_wind=i; break; }
   if(Cur_wind>=0)
     {
      if(Cur_wind>0) y=y-Hei[Cur_wind-1]-2;
      int hh=Hei[Cur_wind];
      if(Cur_wind>0) hh-=Hei[Cur_wind-1]+2;
      price=y_min[Cur_wind]+(hh-y)*(y_max[Cur_wind]-y_min[Cur_wind])/hh;

      double NrBar=left_bar-(double)x/(double)WidthBar;
      datetime TT[2];
      if(NrBar>0) { CopyTime(NULL,0,(int)NrBar,2,TT); time=TT[0]+(datetime)((TT[1]-TT[0])*(1.0-NrBar+(int)NrBar)); }
      else        { CopyTime(NULL,0,0,1,TT);          time=TT[0]+(datetime)(fabs(NrBar)*PerSec); }
     }
   ChartChange=false;

   return(Cur_wind);
  }


この関数は id パラメータがなくてもどこでも実行できますが、この関数の内部変数を更新する必要性を明確にするため、OnChartEvent には必ず（id パラメータがある）存在しなければなりません。

例えば、OnChartEvent からこの関数を使用しない場合、OnChartEvent 本体に行を追加しないと正常に動作しません。

if (id==CHARTEVENT_CHART_CHANGE) { double p=0; datetime t=0; XYToTimePrice(0,0,t,p,id);}
このアナログは、この機能を頻繁に使用する場合に顕著な効果を発揮します。
このアナログを単発のアプリケーションに使う意味はない。
ファイル:
TestSpeedXY.mq5  15 kb
1234567891011...13
新しいコメント