Mathem. Parser -- bitte testen

[Christian Seehase]

Moin Dizzy,

das ist bei mir herausgekommen:

P4 2,4 / 512MB / W2K SP4

Delphi 5 Pro:

• Sign fehlt
  als Kommentar angegebenen Workaround verwendet
• PDOUBLE
  Als ^double deklariert
• Coth
  ersetzt durch := 1
• SameValue fehlt
  Workaround:
  if Abs(ex.x-2) <= 0.0000000001 then
• Unit Variants aus den Uses entfert

Ergebnisse:
1092
2489,66
4773,94
9162,88

Delphi 6 Personal:

• Die Prozeduren/Funktionen
  Quat2Comp, Comp2Quat, AddC, MulC, SqrC, SqrQ, MulQ, AddQ, SubQ, AbsQ
  zusätzlich mit Begin/end versehen, da ansonsten die Recordfelder (z.B. x)
  nicht erkannt wurden.

Ergebnisse:
1042,16
2022,38
Abbruch mit Access Violation bei Aufruf von:

Delphi-Quellcode:

procedure TCQParser.Solve(var result: TComplex);
//...
    nfComplex   : result := FRootC.Solve;
//...
end;

Delphi 7 Personal:

Ergebnisse:
1050,68
2022,64
4732,55
9164,42