AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Mathem. Parser -- bitte testen
Thema durchsuchen
Ansicht
Themen-Optionen

Mathem. Parser -- bitte testen

Ein Thema von dizzy · begonnen am 23. Mai 2004 · letzter Beitrag vom 2. Okt 2013
Antwort Antwort
Seite 9 von 10   « Erste     789 10      
bg 11

Registriert seit: 8. Sep 2004
22 Beiträge
 
#1

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:07
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,
Angehängte Dateien
Dateityp: exe bengosintegralrechner_355.exe (425,0 KB, 17x aufgerufen)
BenGo
  Mit Zitat antworten Zitat
Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#2

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:14
Alles ein bischen groß, oder?

PS: Mein Konkurrenzprodukt: Klick
Alexander
  Mit Zitat antworten Zitat
bg 11

Registriert seit: 8. Sep 2004
22 Beiträge
 
#3

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:25
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)
Angehängte Dateien
Dateityp: exe bengosintegralrechner_-_klein_157.exe (416,5 KB, 8x aufgerufen)
BenGo
  Mit Zitat antworten Zitat
Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#4

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:34
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
Alexander
  Mit Zitat antworten Zitat
bg 11

Registriert seit: 8. Sep 2004
22 Beiträge
 
#5

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:45
nur... Deine Beitragszahl ist 244 mal höher als meine.....Das heißt schon was...
BenGo
  Mit Zitat antworten Zitat
Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#6

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:48
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.
Alexander
  Mit Zitat antworten Zitat
bg 11

Registriert seit: 8. Sep 2004
22 Beiträge
 
#7

Re: Mathem. Parser -- bitte testen

  Alt 25. Feb 2006, 14:53
mach ich gerade.. dies ist also der letzte "Spam"-Beitrag hier....
BenGo
  Mit Zitat antworten Zitat
Relicted

Registriert seit: 24. Jan 2006
Ort: Iserlohn
646 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: Mathem. Parser -- bitte testen

  Alt 2. Jun 2008, 09:16
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
  Mit Zitat antworten Zitat
Relicted

Registriert seit: 24. Jan 2006
Ort: Iserlohn
646 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: Mathem. Parser -- bitte testen

  Alt 2. Jun 2008, 10:28
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
  Mit Zitat antworten Zitat
Jonelmeier

Registriert seit: 27. Sep 2007
Ort: Hamburg
96 Beiträge
 
Delphi XE Starter
 
#10

Re: Mathem. Parser -- bitte testen

  Alt 6. Jun 2008, 13:09
  • Delphi 2007 Professionel
  • Kompiliert einwandfrei
  • Ergebnisse stimmen
  • P4 2.53
  • 875,044
  • 1887,01
  • 5410,44
  • 8547,87

Gruß Jonas
Jonas
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 9 von 10   « Erste     789 10      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz