定義された要素の配列をクリアする。

Maxim Dmitrievsky 2018.11.13 12:41 #71

mt4なんてwin10でも動かないからしゃーないか

Nikolai Semko 2018.11.13 12:54 #72

Maxim Dmitrievsky:
mt4ってなんだよwin10でも動かんぞww

よくぞ言ってくれました:)

Konstantin Nikitin 2018.11.13 12:55 #73

配列をいじってみました。

void OnStart()
{
     long array[], arr[] = {1, 2, 3, 6, 9, 5, 6, 3, 25, , , 6, 8, NULL, 7, NULL, 4, 45};
     ArrayCopy(array, arr); 
//--
  #ifdef __MQL5__
     Print( arrayFilter(array, array[2]) );
     ArrayPrint( array );
  #else
     string s = arrayFilter(array, array[2]) + " {";
     
     for(int i=0; i<ArraySize(array); i++)
     {
          s += array[i];
          if(i<ArraySize(array)-1)
               s += ", ";
     }
     
     Print( s+" }" );
  #endif
}
//---------------------------------------------------------------
template<typename T>
int arrayFilter(T &data[], const T value)
{
     int d = ArraySize(data), j = 0, y = 0;
     
     for(int i=0; i<d; i++, y++)
     {
          if(j>0)
               data[y] = data[y + j];
          
          if(data[i] == value || data[i] == NULL)
          {
               y--;
               j++;
          }
     }
  
     if(d > y)
          ArrayResize(data, y);
     
     return y;
}

MQL5では配列が静的であることを誓ったので、ArrayCopyを使わなければなりませんでした。

Sergey Pavlov 2018.11.13 14:37 #74

Nikolai Semko:

そんなスピード勝負なら、私なりのバリエーションを提案しますよ...。

もし配列のすべての要素がフィルタと等しい場合、この関数は配列を終了します。

私自身のバリエーションを提供します、それはあなたより少し遅いです。

int ArrayModify(int &a[],const int v)
  {
   int size=ArraySize(a)-1;
   int j=0;
   int total=size;
   for(int i=0;i<size;i++)
     {
      while(a[i+j]==v && j<total)
        {
         j++;
         size--;
        }
      a[i]=a[i+j];
     }
   size=ArrayResize(a,size);
   return(size);
  }

2018.11.13 17:16:38.618 massiv v1 (EURUSD,M1) test my=1512090
2018.11.13 17:16:40.083 massiv v1 (EURUSD,M1)テスト alien=1464941

Vladimir Pastushak 2018.11.13 14:38 #75

Vasiliy Sokolov:

数年前からこのような質問をしていますね。多くを学びましたか？申し訳ありませんが、まだバイトや初歩的な配列のレベルであることは明らかです。

設問自体の定式化が間違っている。有効な項目のリストを更新しているようなので、繰り返される値を削除する（一般的な国家試験レベルのタスク）のではなく、もっと大きなものにおいてです。もしそうなら、質問の内容はまったく違って聞こえるはずです。参加者、そしてまず自分自身を混乱させ、誤解させる。原理的に間違った解決策を参加者に押し付け、それを有効にするように求める。

私はプログラミングのためにプログラミングをしているわけではありませんし、メガプログラマーになることやフォーラムで賢くなることを目標にしているわけではありません。

定義された要素の配列をクリアする、という質問のどこがわからないのでしょうか？

Nikolai Semko 2018.11.13 15:10 #76

Sergey Pavlov:

もし配列のすべての要素がフィルタと等しい場合、この関数は配列を終了します。

私のバリエーションを提案します、あなたのより少し遅いです。

2018.11.13 17:16:38.618 massiv v1 (EURUSD,M1) test my=1512090
2018.11.13 17:16:40.083 massiv v1 (EURUSD,M1)テスト alien=1464941

はい、ありがとうございます。修正しました。

int ArrayDeleteVal(int &a[],const int val) // вариант Semko
  {
   int size=ArraySize(a);
   int i=0,start,s,count;
   while(i<size && a[i]!=val) i++; // ищем первый элемент массива со значением val
   if(i==size) return size;
   start=i; i++;  
   while(i<size && a[i]==val) i++; // ищем элемент массива со значением, не равным val
   if(i==size) {ArrayResize(a,0); return 0;}
   s=i; i++;
   while(true)
     {
      while(i<size && a[i]!=val) i++; // ищем элемент массива со значением val
      count=i-s;
      if(count>6) { ArrayCopy(a,a,start,s,count); start+=count;} // если нужно скопировать более 6 элементов, то имеет смысл воспользоваться ArrayCopy
      else for(; s<i; start++,s++) a[start]=a[s];                // иначе простой цикл
      if(i==size) break;
      i++;
      while(i<size && a[i]==val) i++; // ищем элемент массива со значением, не равным val
      if(i<size) s=i; else break;
      i++;
     }
   if(start<size) ArrayResize(a,start); else start=size;
   return(start);
  }

ただ、どこかに1つ要素が欠けているためにチェックサムが一致しないので、あなたもどこかでエラーになっているのです。どこをどうしたらいいのかわからなかった。

2018.11.13 10:07:27.757 ArrayDeleteValue (EURUSD,D1)    вариант Pastushak: Контрольная сумма = 495782577; элементов - 999027; время выполнения = 156757 микросекунд
2018.11.13 10:07:27.761 ArrayDeleteValue (EURUSD,D1)    вариант Korotky:   Контрольная сумма = 495782577; элементов - 999027; время выполнения = 2338 микросекунд
2018.11.13 10:07:27.764 ArrayDeleteValue (EURUSD,D1)    вариант Fedoseev:  Контрольная сумма = 495782577; элементов - 999027; время выполнения = 1839 микросекунд
2018.11.13 10:07:27.766 ArrayDeleteValue (EURUSD,D1)    вариант Semko:     Контрольная сумма = 495782577; элементов - 999027; время выполнения = 782 микросекунд
2018.11.13 10:07:27.770 ArrayDeleteValue (EURUSD,D1)    вариант Pavlov:    Контрольная сумма = 495781718; элементов - 999026; время выполнения = 2886 микросекунд
2018.11.13 10:07:27.773 ArrayDeleteValue (EURUSD,D1)    вариант Nikitin:   Контрольная сумма = 495782577; элементов - 999027; время выполнения = 2355 микросекунд

ファイル:

ArrayDeleteValue.mq5 13 kb

Konstantin Nikitin 2018.11.13 15:24 #77

不要なパッセージを削除して微調整

void OnStart()
{
     long array[], arr[] = {1, 2, 3, 6, 9, 5, 6, 3, 25, , , 6, 8, NULL, 7, NULL, 4, 45};
     ArrayCopy(array, arr);
//--
  #ifdef __MQL5__
     Print( arrayFilter(array, (long)3) );
     ArrayPrint( array );
  #else
     string s = arrayFilter(array, (long)3) + " {";
     
     for(int i=0; i<ArraySize(array); i++)
     {
          s += array[i];
          if(i<ArraySize(array)-1)
               s += ", ";
     }
     
     Print( s+" }" );
  #endif
}
//---------------------------------------------------------------
template<typename T>
int arrayFilter(T &data[], const T value=NULL)
{
     int d = ArraySize(data), y = 0;
     
     for(int i=0, j=0; i<d; i++, y++)
     {
          bool res = false;
          while(data[i] == value || data[i] == NULL)
          {
               res = true;
               j++;
            //---
               if(i+1==d)
                    break;
               if(data[i+1] == value || data[i+1] == NULL)
                    i++;
               else
                    break;
          }
          
          if(j>0)
          {
               if(d==y+j)
                    break;
               data[y] = data[y + j];
          }
          if(res)
               y--;
     }
  
     if(d > y)
          ArrayResize(data, y);
     
     return y;
}

Vladimir 2018.11.13 17:07 #78

Nikolai Semko:
いずれの場合も、各要素は最大1回までドラッグされる。

はい、すみません、確かに1回だけです。 DBMSのアプローチに興味を持ってチェックしてくれる人がいると期待していたのですが、待ちきれませんでした。自分でやるしかなかった。

int ArrayDelV (int &a[],const int val) { // вариант Vladimir
bool Flags[]; // массив пометок на удаление
int N, NewN, i, j;
N=ArraySize(a);
ArrayResize(Flags,N);
//if (ArrayInitialize(Flags,false)!=N) return(-1);
NewN=N; // Сколько останется
for (i=0;i<N;i++) {if (a[i]==val) {Flags[i]=true; NewN--;}}
j=0;
for (i=0;i<N;i++) {if (Flags[i]) {a[j]=a[i]; j++;}}
ArrayResize(a,NewN);
return(NewN);
}

ArrayDeleteValue.mq5をあなたのチェッカーに挿入したところ、あなたのチェッカーより2倍悪いです。理由を考えて、0.1％ではなく、3分の1の項目が削除されるように、その中の2行を修正しました。

   for(int i=0; i<1000000;i++) arr[i]=rand()%3;// 1000; //генерируем исходный массив случайными значениями от 0 до 1000
   int Value=rand()%3; // 1000; // значение, которое нужно удалить из массива

その結果、こうなったのです。

2018.11.13 19:45:22.148 Del (GBPUSD.m,H1) variant Pastushak: Checkum = 333586; elements - 667421; execution time = 108521 microseconds
2018.11.13 19:45:22.148 Del (GBPUSD.m,H1) variant Korotky: Checkum = 333586; elements - 667421; execution time = 5525 microseconds
2018.11.13 19:45:22.148 Del (GBPUSD.m,H1) variant Fedoseev: Checkum = 333586; elements - 667421; execution time = 4879 microseconds
2018.11.13 19:45:22.164 Del (GBPUSD.m,H1) variant Semko: Checkum = 333586; elements - 667421; execution time = 14479 microseconds
2018.11.13 19:45:22.179 Del (GBPUSD.m,H1) variant Pavlov: Checkum = 998744; elements - 667421; execution time = 0 microseconds
2018.11.13 19:45:22.179 Del (GBPUSD.m,H1) variant Nikitin: Checkum = 333586; elements - 667421; execution time = 5759 microseconds
2018.11.13 19:45:22.179 Del (GBPUSD.m,H1) variant Vladimir: Checkum = 333586; elements - 667421; execution time = 1542 microseconds

Pavlovの変種はエラーがあったので、コメントアウトしておきました。

結論：配列内のアドレスをその番号の間に任意の距離を置いて計算することは、与えられたステップ、ましてやステップ1では、コンパイラはそれを最適化することができ、行の要素を処理するよりもまだ悪いです。

追伸：BorlandのPascalとDelphiのコンパイラは、実行時にループ変数は（メモリ上では）関係なく、CPUのレジスタのどこかに置かれるようになっています。

Clearing an array of

Nikolai Semko 2018.11.13 17:43 #79

Vladimir:

はい、すみません、確かに1回だけです。 DBMSのアプローチに興味を持ってチェックしてくれる人がいると期待していたのですが、待ちきれませんでした。自分でやるしかなかった。

ArrayDeleteValue.mq5をあなたのチェッカーに挿入したところ、あなたのチェッカーより2倍悪いです。その理由を考え、0.1％ではなく3分の1が削除されるように2行を修正したのです。

その結果、こうなったのです。

2018.11.13 19:45:22.148 Del (GBPUSD.m,H1) variant Pastushak: Checkum = 333586; elements - 667421; execution time = 108521 microseconds
2018.11.13 19:45:22.148 Del (GBPUSD.m,H1) variant Korotky: Checkum = 333586; elements - 667421; execution time = 5525 microseconds
2018.11.13 19:45:22.148 Del (GBPUSD.m,H1) variant Fedoseev: Checkum = 333586; elements - 667421; execution time = 4879 microseconds
2018.11.13 19:45:22.164 Del (GBPUSD.m,H1) variant Semko: Checkum = 333586; elements - 667421; execution time =14479 microseconds
2018.11.13 19:45:22.179 Del (GBPUSD.m,H1) variant Pavlov: Checkum = 998744; elements - 667421; execution time = 0 microseconds
2018.11.13 19:45:22.179 Del (GBPUSD.m,H1) variant Nikitin: Checkum = 333586; elements - 667421; execution time = 5759 microseconds
2018.11.13 19:45:22.179 Del (GBPUSD.m,H1) variant Vladimir: Checkum = 333586; elements - 667421; execution time = 1542 microseconds

Pavlovの変種はエラーがあったので、コメントアウトしておきました。

結論：配列内のアドレスをその番号の間に任意の距離を置いて計算することは、与えられたステップで行のアイテムを処理するよりもまだ悪く、ステップ1ではコンパイラが最適化できるため、なおさらそうです。

追伸：BorlandのPascalとDelphiのコンパイラは、実行時にループ変数は（メモリ上では）関係なく、CPUのレジスタのどこかに置かれるようになっています。

パブロフ版を修正しました。
あなたの価値観はおかしい。プロファイリングやデバッガを実行した後、コードを再コンパイルせずにスクリプトを実行したのではありませんか？
私の場合は、そういうことなんです。

2018.11.13 12:35:38.633 ArrayDeleteValue (EURUSD,D1)    вариант Pastushak: Контрольная сумма = 496494849; элементов - 999011; время выполнения = 131964 микросекунд
2018.11.13 12:35:38.636 ArrayDeleteValue (EURUSD,D1)    вариант Korotky:   Контрольная сумма = 496494849; элементов - 999011; время выполнения = 2310 микросекунд
2018.11.13 12:35:38.639 ArrayDeleteValue (EURUSD,D1)    вариант Fedoseev:  Контрольная сумма = 496494849; элементов - 999011; время выполнения = 1834 микросекунд
2018.11.13 12:35:38.641 ArrayDeleteValue (EURUSD,D1)    вариант Semko:     Контрольная сумма = 496494849; элементов - 999011; время выполнения = 773 микросекунд
2018.11.13 12:35:38.645 ArrayDeleteValue (EURUSD,D1)    вариант Pavlov:    Контрольная сумма = 496494849; элементов - 999011; время выполнения = 2815 микросекунд
2018.11.13 12:35:38.648 ArrayDeleteValue (EURUSD,D1)    вариант Nikitin:   Контрольная сумма = 496494849; элементов - 999011; время выполнения = 2475 микросекунд
2018.11.13 12:35:38.653 ArrayDeleteValue (EURUSD,D1)    вариант Vladimir:  Контрольная сумма = 496656342; элементов - 999011; время выполнения = 3608 микросекунд

そして、あなたのバージョンでは、不正なチェックサムが生成されます。また、アレイを追加で作成しても全くメリットがなく、それどころか処理が遅くなり、追加のリソースを食ってしまいます。

ファイル:

ArrayDeleteValue.mq5 15 kb

Nikolai Semko 2018.11.13 17:54 #80

要するに、どのアルゴリズムも同じなんです。誰もが配列を要素ごとに修正し、誰もがFedoseevの変種を目指す。Fedoseevのアルゴリズムに不必要なものは何もないからだ。
ただ、私の場合はArrayCopyを使ってブロック単位で行っているので、スピード的には有利です。

定義された要素の配列をクリアする。 - ページ 8