Der HAM-Parser

[arbu man]

Hab deinen Parser mal für 2 kleinere Projekte eingesetzt.
Mir ist dabei auf gefallen:

- Der parser abeitet schnell ( Rechnungen in 15s )
- Das mit dem Variablen hinzufügen ist etwas gewöhungs bedürtig.

Es sollte vieleicht noch eine funktion geben wie

Delphi-Quellcode:

function isvarset(name: string): boolean;
begin
  if Parser.VariableByName[name]<> nil then begin
    result:=true;
  end else begin
    result:=false;
  end;
end;

oder ein procedure die eine variable mit einen wert setzt und sollte diese noch nicht erstellt sein diese auch erstellt.

Was mich noch interessieren würde was genau ist das x86-Assembler-Plugin ?

[3_of_8]

15s? War das ein Tippfehler oder ironisch?

[Dax]

Zitat von arbu man:

Es sollte vieleicht noch eine funktion geben wie

Delphi-Quellcode:

function isvarset(name: string): boolean;
begin
  if Parser.VariableByName[name]<> nil then begin
    result:=true;
  end else begin
    result:=false;
  end;
end;

Hmm, okay.. Werde ich im nächsten Update einbauen

Zitat von arbu man:

as mich noch interessieren würde was genau ist das x86-Assembler-Plugin ?

Na ein Plugin, das aus der geparsten Formel Assemblercode erstellt Läuft meistens fast doppelt so schnel.

Zitat von 3_of_8:

15s? War das ein Tippfehler oder ironisch?

Borgli? Is der bei dir so schnarchlahm?

[arbu man]

Zitat:

Na ein Plugin, das aus der geparsten Formel Assemblercode erstellt Wink Läuft meistens fast doppelt so schnel.

Klingt nicht schlecht.

oh hab doch glatt vergessen zu schreiben das es nicht eine rechung war sondern 512² Rechnungen und nicht grade einfache rechnungen.

[Dax]

Zitat von arbu man:

oh hab doch glatt vergessen zu schreiben das es nicht eine rechung war sondern 512² Rechnungen und nicht grade einfache rechnungen.

Zeich mal her was man mit dem Teil so schönes verbrechen kann

[arbu man]

Zitat:

Zeich mal her was man mit dem Teil so schönes verbrechen kann

Ne ganze Menge AVs produzieren

Nee alle AVs hab ich heute aus dem prog verbannt.
Naja ist nach nicht ganz fertig aber was anzeigen kann.

cos(z*12)/(2*(z*6.28+1)) , tan(x*y) oder pi+x+y+z-3 sind ganz nett

[Dax]

Zitat von arbu man:

Ne ganze Menge AVs produzieren

Ich hoffe an denen bist du Schuld

Zitat von arbu man:

Naja ist nach nicht ganz fertig aber was anzeigen kann.

cos(z*12)/(2*(z*6.28+1)) , tan(x*y) oder pi+x+y+z-3 sind ganz nett

Ja, sieht toll aus Bin mal auf die Endversion gespannt

[arbu man]

Zitat von Dax:

Ich hoffe an denen bist du Schuld

Ja, man sollte halt nicht in einen array schreiben wenn dieser keinen Speicher dazu hat

[---Bernhard---]

Hallo.

Habe gerade noch ein Problem festgestellt!

Folgende Funktion geht tadellos:
x^2+1

Jedoch macht folgende Probleme:
x^(2)+1

Es wird stattdessen die Funktion "x^3" verwendet!

Wie kann ich das Problem am besten umgehen?

Mein Code für die Operatorendefinition lautet so:

Delphi-Quellcode:

class procedure THAMSimpleOperators.RegToParser(Parser: THAMParser);
begin
  with Parser do
  begin
    THAMSimpleOperators(AddOperator('+', otBinary, 1, Self)).fType := 1;
    THAMSimpleOperators(AddOperator('-', otBinary, 1, Self)).fType := 2;
    THAMSimpleOperators(AddOperator('*', otBinary, 2, Self)).fType := 3;
    THAMSimpleOperators(AddOperator('/', otBinary, 2, Self)).fType := 4;
    THAMSimpleOperators(AddOperator('^', otBinary, 3, Self)).fType := 10;

    THAMSimpleOperators(AddOperator('-', otunaryPrefix, 1, Self)).fType := 0;
    THAMSimpleOperators(AddOperator('+', otunaryPrefix, 1, Self)).fType := 20;

    // change EvalDir from LeftToRight(2^2^3 -> (2^2)^3) to RightToLeft(2^2^3 -> 2^(2^3)) for the Power-Operator
    OperatorByName['^'].EvalDir := edRightToLeft;
  end;
end;

procedure THAMSimpleOperators.Call(const Args: THAMVariableArray;
  const Result: THAMVariable);
begin
  case fType of
    1: Result.Value := Args[0].Value + Args[1].Value;
    2: Result.Value := Args[0].Value - Args[1].Value;
    3: Result.Value := Args[0].Value * Args[1].Value;
    4: Result.Value := Args[0].Value / Args[1].Value;

    10: Result.Value := Power(Args[0].Value, Args[1].Value);

    0: Result.Value := -Args[0].Value;
    20: Result.Value := Args[0].Value;
  end;
end;

[Dax]

Neue Version in der das nicht mehr passieren sollte ist hochgeladen..