Mathem. Parser -- bitte testen

[dizzy]

Hi DPler!

Ich habe noch so einiges an meinem Parser (hier schon mal vorgestellt) verbessert/geändert.

Habe jetzt auch ein Testprogramm geschrieben. Es führt einige Rechnungen durch, und gibt eine kleine Statistik dazu aus. Folgende Infos von euch würden mich brennend interesieren:

• welche Dephi-Version hast du?
• läufts/compilierts damit?
• sind die Ergebnisse im Testprog korrekt?
• CPU-Typ + Realtakt
• die Ergebnisse der Geschwindigkeitsmessung des Testprogs
• ist die Implementierung hübsch und sauber? (keine Leaks, styleguidekonform, verwendete Techniken...)
  (in CQParser.pas bzw. der QMath(2).pas - nicht das Testprog. Das ist fix zusammengeschustert )
• hälst du den Parser für sinnvoll/einsetzbar?
• Verbesserungs- und/oder Verschönerungs- und/oder Verschnellerungsvorschläge?

Wer Lust hat, der kann ihn sehr gerne komplett auseinandernehmen und kaputttesten. Ich will alles wissen *g*.

Ich erwarte sicherlich nicht von jedem alles beantwortet. Mir geht es hauptsächlich darum zu sehen mit welchen D-Versionen und CPUs der Parser korrekt arbeitet, und wie schnell er es tut (im Vergleich zu einer hardgecodeten Rechnung).

Tipp für die D8-User: Es gibt die Units "QMath" und "QMath2". Ändert im QT des Parsers und des Testprogramms in der uses-Klausel "QMath" auf "QMath2", weil "QMath" verwendet z.T. Assembler. Ich hoffe dass D8 die ganzen Casts zulässt . Wenn nicht, dann schreit!

Ihr würdet mir einen Riesen-Gefallen tun!

Danke euch schonmal im Voraus,
MfG - dizzy


\\div. Edits: Ein paar Umformulierungen - nix wildes...

[bg 11]

Lieber mrsiemens!!!

Deine Modifikation des CQ-Parsers hat ihn perfekt gemacht!!!
Im Anhang meine Anwendung!!

Besonders für all diese, die Integrale selbst ausrechnen müssen und dann wissen wollen, ob sie stimmen, oder auch die Genauigkeit der Trapezverfahren bei verschiedener Intervallzahl testen wollen...

Den Quelltext werde ich unter Opensource wohl reinstellen... (Mein Programm ist ja nichts besonderes, aber für Anfänger wie mich schon nicht schlecht....)

mfg,

[Alexander]

Alles ein bischen groß, oder?

PS: Mein Konkurrenzprodukt: Klick

[bg 11]

Geschmackssache... Man kann es ja auch ganz klein machen...
siehe die kleine Version im Anhang...
(natürlich ist das Programm, dass du bevorzugst besser... bin nur ein harmloser informatikbegeisterter Schüler)

[Alexander]

Klar kann man das kleiner machen, aber imho ist die Schrift nicht so gut lesbar .
PS: Bin ja auch nur Schüler, wenigstens noch ein paar Monate

[bg 11]

nur... Deine Beitragszahl ist 244 mal höher als meine.....Das heißt schon was...

[Alexander]

Wenn du meinst . Na gut, aber lass uns mal hier nicht Dizzy's Thread vollspammen.
Vielleicht solltest du deinen Beitrag bzw. dein Programm ja noch mal in einen extra Thread stellen, damit mehr Leute sich dein Programm anschauen können.

[bg 11]

mach ich gerade.. dies ist also der letzte "Spam"-Beitrag hier....

[Relicted]

Eine Empfehlung von mir: Nutzt niemals McAffee Antivirus.
Kann leider keine Referenzwerte ohne liefern. Aber sie sollten deutlich schneller sein :-p

P4 3,00Ghz
4GB RAM Win XP SP2
113993
275227
791748
1,62945E6

Core2Duo E6750
4GB RAM Win XP SP2
13283,7
25729,5
86765,5
145228

Mit D2007 kompiliert.

Gruß
Reli

[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

[Jonelmeier]

• Delphi 2007 Professionel
• Kompiliert einwandfrei
• Ergebnisse stimmen
• P4 2.53
• 875,044
• 1887,01
• 5410,44
• 8547,87

Gruß Jonas