lambda-zu-omega Verzerrung neu

1 files changed, 21 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index 93fed13..1ca8c3c 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -337,6 +337,27 @@ begin
         aufraeumen;
         halt(1);
       end;
+      if startetMit('lambda ',s) then begin
+        j:=findeWerte(erstesArgument(s),nil,@wertes,@Konturen,false);
+        if j<0 then begin
+          aufraeumen;
+          halt(1);
+        end;
+        if not startetMit('zu omega ',s) then begin
+          gibAus('Fehlende Parameter, erwartet: ''lambda $original zu omega $Daten''',3);
+          aufraeumen;
+          halt(1);
+        end;
+        i:=findeWerte(s,inf,@wertes,@Konturen,true);
+        if i<0 then begin
+          aufraeumen;
+          halt(1);
+        end;
+        if wertes[i].berechneLambdaZuOmegaVerzerrung(syntaxtest,inf,maxthreads,wertes[j]) then
+          continue;
+        aufraeumen;
+        halt(1);
+      end;
       if startetMit('integriere ',s) then begin
         j:=findeWerte(erstesArgument(s),nil,@wertes,@Konturen,false);
         if j<0 then begin