MQL4, MQL2, EasyLanguage, Wealth-Lab 3.0 и VC++: сравнение скорости

#include "stdafx.h"
#include <windows.h>
#include <stdlib.h>
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void main()
  {
   int    res_int=0,i,start_time;
   double res_double=0;
//----
   start_time=GetTickCount();
   for(i=0;i<=10000000;i++)
     {
      res_int+=i*i;
      res_int++;
      res_double+=i*i;
      res_double++;
     }
   start_time=GetTickCount()-start_time;
//---- вывод результатов
   printf("Time: %d ms, ResInt=%d ResDouble=%.0lf\n",start_time,res_int,res_double);
//----
  }

Код на MQL4 (практически 100% совпадает с кодом VC С++)

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
void start()
  {
   int    res_int=0,i,start_time;
   double res_double=0;
//----
   start_time=GetTickCount();
   for(i=0;i<=10000000;i++)
     {
      res_int+=i*i;
      res_int++;
      res_double+=i*i;
      res_double++;
     }
   start_time=GetTickCount()-start_time;
//---- вывод результатов
   Print("Time: ",start_time," ms, ResInt=",res_int," ResDouble=",res_double);
//----
  }

Код на MQL2 (при тестировании был отключен 1 секундный контроль)

Variable : res_int(0),i(0),start_time(0),res_double(0);

res_int=0;
res_double=0;
start_time=GetTickCount();
for i=0 to 10000000
begin
  res_int+=i*i;
  res_int++;
  res_double+=i*i;
  res_double++;
end;
start_time=GetTickCount()-start_time;
//---- вывод результатов
Print("Time: ",start_time," ms, ResInt=",res_int," ResDouble=",res_double);

Код на Wealth-Lab Script 3.0:

var res_int,i,start_time : integer;
var res_double : float;
var results : string;

res_int:=0;
res_double:=0;

start_time:=GetTickCount();
for i:=0 to 10000000 do
begin
  res_int:=res_int+i*i;
  res_int:=res_int+1;
  res_double:=res_double+i*i;
  res_double:=res_double+1;
end;
start_time:=GetTickCount()-start_time;
{ вывод результатов - сначала соберем в строку результаты }
results:='Time: '+IntToStr(start_time)+' ms, ResInt='+FloatToStr(res_int)+
' ResDouble='+FloatToStr(res_double);
ShowMessage(results);

Тестирование проводилось на компьютере Intel P4, 2.8Ghz(HT), RAM 1Gb.
Результаты:

VC++: Time: 47 ms, ResInt=-752584127 ResDouble=17247836076609
MQL4: Time: 797 ms, ResInt=-752584127 ResDouble=17247836076609
MQL2: Time: 22156 ms, ResInt=333333383333717340000 ResDouble=333333383333717340000
WL3 : Time: 32422 ms, ResInt=3.33333383333717E20 ResDouble=3.33333383333717E20

На этих тестах видно, что MQL4 отстает от чистого кода VC++ в 17 раз.
MQL2 отстает от MQL4 в 27 раз и в 471 раз от VC++.
WL3 отстает от MQL4 в 40 раз и в 690 раз от VC++.

MQL4 и VC++ выдают один результат вычислений (правильный, с учетом типов переменных int и double).
MQL2 и WL3 выдают другой результат, так как у них все переменные всегда с плавающей запятой.

В расчетах индикаторов и экспертов очень часто используются циклы и другие целочисленные операции. Автоматическое использование всех переменных как double обходится очень дорого если думать о производительности.

Но протестируем производительность MQL4, когда все переменные с плавающей запятой? Вот код:

void start()
  {
   double res_int=0,i;
   int    start_time;
   double res_double=0;
//----
   start_time=GetTickCount();
   for(i=0;i<=10000000;i++)
     {
      res_int+=i*i;
      res_int++;
      res_double+=i*i;
      res_double++;
     }
   start_time=GetTickCount()-start_time;
//---- вывод результатов
   Print("Time: ",start_time," ms, ResInt=",res_int," ResDouble=",res_double);
//----
  }

И результат:

MQL4: Time: 906 ms, ResInt=333333383333717340000 ResDouble=333333383333717340000

Результаты совпадают с результатами MQL2 и WL3, а замедление исполнения по сравнению
с целочисленными счетчиками составило 13%.

Любой может повторить тесты (только в MQL2 есть ограничение в максимальное время 1 сек).