Ich lebe noch
und komme gleich mit dem nächsten Problem. Diesmal wieder die Formel vom Anfang. Am besten du machst dir mal ein Testprogramm, in dem alle Formeln drin sind, berechnet werden und das Ergebnis geprüft wird. Testet sich vermutlich leichter
Delphi-Quellcode:
Parser:=TExCQParser.Create;
Parser.SolveMode:=smVM;
Parser.PreSolve:=true;
Parser.RegisterVariable('BaseRange');
Parser.RegisterVariable('Range');
Parser.RegisterVariable('UnitTreff');
Parser.SetVariable('BaseRange',[10]);
Parser.SetVariable('UnitTreff',[8]);
Parser.SetVariable('Range',[10]);
Parser.Parse('UnitTreff*(1/(Range*Range))*(BaseRange*BaseRange)');
ShowMessage(FloatToStr(Parser.Solve.X));
Parser.Free;