From 201835aaaf56d06f0072a333e58324d7825c589c Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 7 Aug 2015 10:31:01 +0200
Subject: Multiplikation eingebaut, alle Genauigkeiten nun auch korrekt in
 Division implementiert

---
 epost.lpr | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'epost.lpr')

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);
-- 
cgit v1.2.3-70-g09d2