Multiplikation eingebaut, alle Genauigkeiten nun auch korrekt in Division implementiert

1 files changed, 27 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index cdd752a..b37423f 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -211,6 +211,33 @@ begin
        aufraeumen;
        halt(1);
      end;
+     if startetMit('Multipliziere',s) then begin
+       i:=findeWerte(erstesArgument(s),@wertes,@Konturen,false);
+       if i<0 then begin
+         aufraeumen;
+         halt(1);
+       end;
+       if (not startetMit('mal ',s)) or (length(s)=0) then begin
+         gibAus('Fehlende Parameter, erwartet: ''Multipliziere $Faktor mal $Faktor (zu $Produkt)''',3);
+         aufraeumen;
+         halt(1);
+       end;
+       j:=findeWerte(erstesArgument(s),@wertes,@Konturen,false);
+       if j<0 then begin
+         aufraeumen;
+         halt(1);
+       end;
+       b:=not startetMit('zu',s);
+       k:=findeWerte(s,@wertes,@Konturen,b);
+       if k<0 then begin
+         aufraeumen;
+         halt(1);
+       end;
+       if wertes[k].berechneProdukt(syntaxtest,inf,maxthreads,i,j) then
+         continue;
+       aufraeumen;
+       halt(1);
+     end;
      if startetMit('FFT2d',s) then begin
        if s='' then i:=length(wertes)-1
        else i:=findeWerte(s,@wertes,@Konturen,false);