Mathem. Parser -- bitte testen

[Relicted]

ich bezweifele gerade die technik mit der die geschwindigkeit gemessen wird. die weicht teilweise extrem von einem "gezählten" wert ab. ändere doch bitte mal die messtechnik auf folgendes:

Delphi-Quellcode:

var
  test,test2, freq : int64;


//....
  edDN.Color := clRed;
  edRN.Color := clRed;
  Form1.Refresh;
//  t := RDTSC;
  QueryPerformanceCounter(test);
  for i := 1 to 5000000 do n := power(1 + sin(pi2), 3) * 2;
  QueryPerformanceCounter(test2);
  QueryPerformanceFrequency(freq);
  edDN.Text := FloatToStr( (test2-test) / freq{ / 1000 });
//  edDN.Text  := FloatToStrF(Ticks(RDTSC-t), ffGeneral, 6, 8);
  edRN.Text  := FloatToStr(n);
  edDN.Color := clWindow;
  edRN.Color := clWindow;
  Form1.Refresh;

//...

und natürlich die anderen dann auch in die art.
dabei kommen dann vergleichbare werte heraus. ich bezweifele stark dass deine methode stimmt. hier meine werte mit dem oben geposteten P4:

0,679946169178772sec
1,4871572293293sec
4,74221246175178sec
8,74114200770631sec

Gruß
Reli