Mathematischen Ausruck als Binärbaum darstellen

[Jens01]

Zitat von MrMooed:

Allerdings wollte ich das gerne auch mit einem Baum realisieren, da mir das einfacher zu interpretieren scheint (vor allem, wenn später noch Exp.-Funktionen und der gleichen hinzukommen sollen)

Glaube ich nicht. Du kannst Dir ja mal diesen fertigen Code angucken.

[Furtbichler]

Zitat von Jens01:

Zitat von MrMooed:

Allerdings wollte ich das gerne auch mit einem Baum realisieren...

Glaube ich nicht...

Glaube ich schon, denn der Baum entspricht der syntaktischen Transformation in einem Parser (=> kontextfreie Grammatik). Das man das auch einfacher hinbekommen kann, steht außer Frage.

[MrMooed]

da bin ich wieder

Habe sogar von Bäumen heute Nacht geträumt jedenfalls fiel mir die Lösung Heute Morgen dann plötlich ein Nach einigen Fehlschlägen und schusseligkeiten habe ich den Code etwas gekürzt und verschönert - aber das wichtigste er funktioniert (zur Zeit nur +,-,*,/ aber immerhin )

Falls ich Zeit habe und es irgendwen interessiert, kann ich das fertige Programm kommentieren/ erklären und hier im Software Bereich hochladen.

Die fertige TermToTree funktion sieht nun so aus:

Delphi-Quellcode:

function TMath.TermToTree(pTerm: String): TTree;
var
  Baum, tmp: TTree;
begin
  Baum := TTree.create;
  tmp := TTree.create;
  repeat
    case pTerm[1] of
      '0'..'9': Baum.setContent(Baum.getContent + pTerm[1]);
      else begin
             case pTerm[1] of
               '+','-' : begin
                           while not (Baum.getRoot = nil) do
                             Baum := Baum.getRoot;
                           tmp := TTree.create;
                         end;
               '*','/' : begin
                          if not (Baum.getRoot = nil)
                            then
                              begin
                                tmp := Baum.getRoot;
                                tmp.setRightTree(TTree.create);
                                tmp := tmp.getRightTree;
                            end;
                         end
               else showmessage('Ungültige Eingabe!');
             end;
             tmp.setContent(pTerm[1]);
             tmp.setLeftTree(Baum);
             tmp.setRightTree(TTree.create);
             Baum := tmp.getRightTree;
           end;
    end;
    delete(pTerm,1,1);
  until pTerm = '';

  //hocharbeiten bis zur wurzel und zurückgeben
  while not (Baum.getRoot = nil) do
    Baum := Baum.getRoot;
  result := Baum;
end;

Wenn jemand meine Gedanken nachvollziehen kann und optimierungsvorschläge hat - immer her damit

[Mavarik]

Zitat von MrMooed:

da bin ich wieder

Wenn jemand meine Gedanken nachvollziehen kann und optimierungsvorschläge hat - immer her damit

Schau Dir mal den Link von Jens01 an... UPN ftw...

Mavarik

[Jens01]

Was bei Mathparsern immer vergessen wird, ist das Testen. Informier Dich doch mal über Unittesting z.B. mit DUnit. Damit kannst Du auch noch den Lehrer beeindrucken!

[Bjoerk]

Zitat von MrMooed:

da bin ich wieder aber das wichtigste er funktioniert (zur Zeit nur +,-,*,/ aber immerhin )

Sehr schön. Kompliment. Vielleicht noch kurz zur Reihenfolge der Auswertung:

Klammern,
Functions (sin / cos ect.),
Power,
Mult / Div,
Plus / Minus.

Um zwei leidige Themen wirst du dich im weiteren Verlauf auch noch kümmern müssen,
Exponentialdarstellung (z.B. 2.1E-8)
und unäres Minus z.B. -3^-2.

Ist aber alles kein Hexenwerk. Du schaffst das!

Gruß
Thomas