epostunit.pas: faktorisieren neu

1 files changed, 11 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index 93ff2e3..df0d454 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -372,6 +372,17 @@ begin
         aufraeumen;
         halt(1);
       end;
+      if istDasBefehl('faktorisiere',s,bekannteBefehle,true) then begin
+        i:=findeWerte(s,nil,@wertes,@konturen,false);
+        if i<0 then begin
+          aufraeumen;
+          halt(1);
+        end;
+        if wertes[i].faktorisiere(syntaxTest,inf) then
+          continue;
+        aufraeumen;
+        halt(1);
+      end;
       if istDasBefehl('Zeitfrequenzanalyse',s,bekannteBefehle,true) then begin
         j:=findeWerte(erstesArgument(s),nil,@wertes,@konturen,false);
         if j<0 then begin