Kompilierender Matheparser

[Dax]

Huhu DP!

Ich hab (mal wieder ) einen Matheparser geschrieben, aber diesmal einen besonderen. Mit diesem kann man Ausdrücke nicht nur Parsen, sondern auch noch kompilieren (Habs mal duchgetestet, ist schneller als Delphieigene Kompilate)

Ich stells einfach mal so hier rein, zum Doks-schreiben ist es einfach zu.. heiß.. und das Interface erklärt sich eh fast von selbst, und mit den Comments in den Units und den Units selbst kommt man auch gut über die Runden. Hoffe ich

read you,
Dax

[edit] da waren ein paar Fehler, verzeiht [/edit]
nocheinedit: Wieder ein paar Fehler ausgebügelt

[Dust Signs]

Zitat von Nicodius:

sry schnell ne frage(ich hab jetzt nicht alels durchgelesen)

was sind imaginäre Werte? ... also nur vorgestellte werte - was hat dass für nen sinn(weil auch immer kommt ()i

Die Imaginäre Einheit ist definiert als

Code:

i^2 = -1

; also unter uns gesagt ist i die Wurzel aus minus 1; ist nicht korrekt so, aber so lässt sich's leicht verstehen. Wenn du mehr dazu wissen willst, such einfach mal bei Google:

[google]Gauss'sche Zahlenebene[/google]
Imaginäre Einheit
[google]Resonanz+Schwingkreis+Formel[/google]

Dust Signs

[jim_raynor]

Zitat von Dax:

Edit2: Fehler beseitigt, neue Version

So langsam wirds Merkwürdigerweise gibts massive Probleme, wenn PreSolve false ist. Da knallt selbst

Delphi-Quellcode:

  Parser:=TExCQParser.Create;
  Parser.SolveMode:=smVM;
  Parser.PreSolve:=false;

  Parser.RegisterVariable('Range');

  Parser.SetVariable('Range',[10]);

  Parser.Parse('1*2');

  ShowMessage(FloatToStr(Parser.Solve.X));
  Parser.Free;

Schreibt man es statt dessen in Klammern: (1*2) dann klappt es.

Hier scheint es also ein generelles Problem zu geben, wenn PreSolve false ist. Da ich den Variablen erst später einen Wert zuweise, aber die Formeln schon bei Programmstart kompiliere, bin ich auf PreSolve false angewiesen

[dizzy]

Zitat von jim_raynor:

Da ich den Variablen erst später einen Wert zuweise, aber die Formeln schon bei Programmstart kompiliere, bin ich auf PreSolve false angewiesen

Der Sinn eines Presolver ist es, konstante Teile eines Ausdrucks vorauszuberechnen und als einen einzigen konstanten Wert zu verbraten. Variablen bleiben variabel - daher kann man imho auch bei der Registrierung angeben ob eine Variable als Konstante (der Presolver verwurstets mit), oder als echte Variable angesehen werden soll, die der Presolver bestehen lässt.
Ich denke mal Dax hat das so eingebaut

\\edit: Er macht also im Grunde aus "(x*2)+(sin(pi/2)*2)" --> "x*2+2"

[Robert_G]

Ich kam zwar noch nicht zum Testen. Aber der Code gefällt mir, wirklich hübsch geschrieben.
Das wollte ich nur mal loswerden...

btw: Nach all dem

Zitat:

Hi jim...

Zitat:

danke jim

... irgendwie lag mir da ein "He's dead, Jim" auf der Zunge.

[Dax]

Zitat von jim_raynor:

Zitat von Dax:

Edit2: Fehler beseitigt, neue Version

So langsam wirds Merkwürdigerweise gibts massive Probleme, wenn PreSolve false ist. Da knallt selbst

=schnipp=

Schreibt man es statt dessen in Klammern: (1*2) dann klappt es.

Hier scheint es also ein generelles Problem zu geben, wenn PreSolve false ist. Da ich den Variablen erst später einen Wert zuweise, aber die Formeln schon bei Programmstart kompiliere, bin ich auf PreSolve false angewiesen

Das deutet alles auf ein Problem mit dem Serialisierer hin Sobald ich Zeit habe beziehungse wieder zuhause bin, sehe ich mir das mal an

PS:

Zitat von Robert_G:

... irgendwie lag mir da ein "He's dead, Jim" auf der Zunge.

Nein, noch lebt der Parser

read you,
Dax

[Dust Signs]

Zitat von Dax:

PS:

Zitat von Robert_G:

... irgendwie lag mir da ein "He's dead, Jim" auf der Zunge.

Nein, noch lebt der Parser

Und Jim?

Dust Signs

[Dax]

Huhu

Also, hab den Fehler gefunden und korrigiert, danke

Delphi-Quellcode:

procedure ThisThread.NewVersion;
begin
  WriteLn('Korrigierte Version ist oben ;-)');
end;

ThisThread.NewVersion;

Zitat von Dust Signs:

Und Jim?

Dust Signs

Wenn er weiter Fehler findet, wird es ihn so schnell nicht treffen

read you,
Dax

[DGL-luke]

weisst du, was genial wäre? wenn der parser gleichungen (bzw. eine seite einer gleichung) lösen (bzw. vereinfachen) könnte.

nur als kleine anregung

[Dax]

Sag mal ein konkretes Beispiel, dann überleg ichs mir

read you,
Dax

[DGL-luke]

(aus der heutigen mathe-hausafgabe, was aber REIN GAR NICHTS zur sache tut )

(lg(x))² - lg(4x-4) = 0

jetzt eben entweder komplett nach x auflösen, so dass zum schluss L={x;y} dasteht oder die linke seite so weit wie möglich vereinfachen.