Der HAM-Parser

[Dax]

Huhu

Ich hab wieder zugeschlagen ^^ und noch einen Matheparser gebaut

Das Ding heißt HAM (fragt nicht wofürs steht, ich muss mir noch was einfallen lassen ) und ist mal wieder meinem Perfektionismus entsprungen. Der ECQP war einfach nicht so ganz das wahre, also hab ich den gebaut. (Und weil ich quasi versprochen habe, es zu tun ^^)

Also dann.. Ein Archiv sagt mehr als tausend Worte, oder? Eins mit dem gesamten Sourcecode (jämmerlich kommentiert) und (bis jetzt) drei Demos (ganz schön schön kommentiert ) ist im Anhang. Weitere Demos, unter anderem zu den Plugins () werden noch Folgen.

*SCHINKEN zum zerfleddern bereit hinstell* (warum denkt ihr bei dem Namen auch immer ans essen? )

[---Bernhard---]

Danke, funktioniert Problemlos

[bg 11]

kann ich den Parser in mein Delphiprogramm einbauen, sodass ich einfach auf dem Formblatt die Funktion eingebe und diese in eine Funktion übertragen wird, die den passenden Y-Wert der Funktion berechnet?? Ich baue nämlich die numerische Integration (Sehnentrapezregel) in mein Programm als Anhang für ne Facharbeit.. Und das ist nicht so schön, wenn man die Funktion immer in der Unit verändern muss...

Bitte um Hilfe.. Hab mir den Parser angeguckt und hatte keine Ahnung ob, und wie er mir helfen kann.....

Danke

PS: im Anhang mein "Programm"....

[bg 11]

Kann mir bitte jemand helfen ?? (siehe letzter Beitrag....)
Ich habe mir den HAM-Parser geholt, komme mit ihm aber nicht klar..

Mit welcher procedure übergibt man die Funktion an den Parser und welche Ausgabe bekomme durch welche Funktionen des Parsers??

Ich bitte um Hilfe!!

[Dax]

Heya,

Zitat von bg 11:

Mit welcher procedure übergibt man die Funktion an den Parser und welche Ausgabe bekomme durch welche Funktionen des Parsers??

Hast du dir die Demos angesehen? Dem Parser sagst du mit .Expression := Formel, was er zu lösen hat, und mit .Eval löst du das Ding. Eval() gibt eine Referenz auf eine THAMVariable zurück, der Wert der dich interessieren wird ist garantiert .Value (der einzige übrigens).

Variablen und Funktionen, die du in der Formel verwendest, sollten unbedingt im Parser registriert sein, sonst gibt es Fehler.

bis dann

[bg 11]

Danke Dax...
Werde ich mal ausprobieren...

Ich habe mir alle Demos mal angeschaut, aber der Umfang und einige Datentypen, die ich nicht kenne, haben mich als "Anfänger" (habe Delphi in Informatik 12 GK in der Schule seit 2 Jahren...) sehr verwirrt...

Danke... mfg

[Dax]

Ja, es gibt in der Tat einfachere Parser, die aber genauso gut für deinen Zweck geeignet wären. Einen meine ich im CQParser von dem hier erkennen zu können ^^

[bg 11]

der rechnet mit komplexen Zahlen.. Ich habe aber keine Ahnung von komplexen Zahlen!!!
In der Beschreibung sagt der Autor, man könne den Parser aber auch für "normale" Funktionen nutzen... Wie das??? Wie kann ich eine Variabele festlegen (zum Beispiel x (ganz einfallsreich)), die ich dann in einer Funktion benutzen kann?? (z.b. 1/(1+x^2))

Kannst du mir helfen den sinnvoll einzubauen???
Hier die neuste Version meines Programms im Anhang....

[Alexander]

Auch bei Dizzys Parser liegt ein Beispiel bei. War glaube ich ein Performance Test.
---
So habe es gerade noch mal geöffnet:
In der Demo steht:

Delphi-Quellcode:

  p := TCQParser.Create; //p: TCQParser;
  p.NumberFormat := nfReal;
  p.SetVariable(A, pi2);
  p.Parse(formula); // forumula ist ein String mit der Formel :)

[bg 11]

Super!! Danke. werde ich ausprobieren..

Wofür steht A,pi2 ??

[dizzy]

Zitat von bg 11:

Wofür steht A,pi2 ??

Die 4 Zeilen sind ohne Zusammenhang evtl. etwas verwirrend

Schritt für Schritt:

Delphi-Quellcode:

procedure Foo;
var
  p: TCQParser;
  v: Double;
  e: Double;
begin
  v := 10;
  p := TCQParser.Create; // klar, Parser erstmal instantiieren
  p.NumberFormat := nfReal; // Dem Parser mitteilen, dass er bitte mit normalen Zahlen rechnen soll ;)
  p.RegisterVariable('x', v); // Dem Parser eine Variable 'x' bekannt machen, die den Wert von v enthalten wird.
  // p.SetVariable(...); Ist wie RegisterVariable, aber für bereits damit erzeugte Variablen.
  p.Parse('(20-x)^2'); // Parsed die Formel. D.h. bereitet sie intern aufs's Ausrechnen vor.
  p.Solve(e); // Rechnet die Formel aus, und schreibt das Ergebnis in e. (e=100 hier)
end;

Parse und Solve sind voneinander getrennt, damit es möglich ist die Werte von Variablen nach dem Parsen zu ändern. Das spart bei jeder Änderung eine Menge Rechenzeit, da das Parsen and sich recht viel CPU-Arbeit (Zeit) kostet, die man so nur einmal machen muss.
Der Parser ist somit dafür gerüstet, ein und die selbe Formel in der sich nur Werte ändern, immer und immer wieder zu lösen ohne zu viel Zeit zu verbraten.


Schönen Gruss,
dizzy