Mathem. Parser -- bitte testen

[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 :mrgreen:

[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 :P. 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

[Centrii]

- Delphi 2006 Architect
- Compiliert
- richtige Ergebnisse
- Genuine Intel CPU T2600 @ 2,16Ghz
- 2GB RAM
- 430,351
- 813,859
- 2529,04
- 4307,58

eigentlich dachte ich mein Notebook ist langsam, aber ich glaub die Zeiten können sich sehen lassen :wink:

[Der.Kaktus]

Delphi 7
Pentium IV 3200GHz

sehr langsam

146436
303458
718095
1,50316E6

Bei Rad Studio 2007 selben Ergebnisse :-(

[Medium]

Der Thread ist 4 Jahre alt. Weiss der Deibel ob der TE überhaupt noch daran werkelt, bzw. ob das überhaupt noch eine "aktuelle" Version ist ;) (Nur mal so am Rande.)

[zahor]

Relicted, du bist ja echt ein Held^^
Naja, auch wenn der Thread schon alt ist, ich hab's auch mal probiert und poste jetzt sinnloserweise meine Ergebnisse^^
- Delphi 2007 Pro
- läuft prima
- richtige Ergebnisse
- Core2Duo T7200 2 x @2,0 GHz
- 588, 1418, 2578, 4720
- kein xpmanifest --> keine gethemeten kompos (einfach unit xpman einbinden)

[Relicted]

jaja aber selbst mitmachen :-)
ja hab nicht aufs datum geachtet.. brauchte halt nen mathe parser und daher bin ich hierrüber gestolpert :-)

[zahor]

jojo war ja nicht böse gedacht!

[-=ZGD=-]

Funktioniert auch unter Delphi XE2 hervorragend.

Delphi XE2 Professional
Intel Xeon E31240@3.30GHz
8 GB RAM

252,512 | 451,537 | 1468,45 | 2855,43

Danke für die Arbeit :-)

[Ykcim]

Funktioniert auch unter Delphi 2009

Intel Dual Core i7
8GB RAM
Windows 7 64BIT

275,904
429,667
1322,6
2540,84

[hathor]

Delphi 2009

Intel Dual Core i7 3610QM - Notebook
8GB RAM
Windows 8 64BIT

258,114
469,611
1448,65
2763,47

[Back2Code]

dizzy

Letzte Aktivität: 31. Dez 2007 00:56

:lol: 5 Jahre nicht mehr Online gewesen ... Kann von einem Mod doch mal geschlossen werden.

[hathor]

Es gibt aber neuere CPUs - und schnellere...:-D