werteunit.pas: alten Kommentar entfernt

1 files changed, 0 insertions, 38 deletions

diff --git a/werteunit.pas b/werteunit.pas
index 47fe87a..28b6876 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -1676,44 +1676,6 @@ begin
   end;
   parameterBuffer.free;
   optimierer.free;
-
-(*      with dParameter[i] do begin
-        if abs(schritte[frei]*e)>=1 then begin                     // e darf sich maximal um 1 verändern
-          schritte[frei]:=abs(1/e);
-          bitteNochMal:=true;
-        end;
-        if abs(schritte[frei]*x0*2)>=sXSteps then begin            // x0 darf sich maximal um sXSteps/2 verändern
-          schritte[frei]:=abs(sXSteps/2/x0);
-          bitteNochMal:=true;
-        end;
-        if abs(schritte[frei]*y0*2)>=sTSiz then begin               // y0 darf sich maximal um sTSiz/2 verändern
-          schritte[frei]:=abs(sTSiz/2/y0);
-          bitteNochMal:=true;
-        end;
-        if abs(schritte[frei]*a*20)>=pi then begin                  // a darf sich maximal um pi/20 verändern
-          schritte[frei]:=abs(pi/20/a);
-          bitteNochMal:=true;
-        end;
-        if parameter[i].xx - 2 * xx * schritte[frei] < 0 then begin // xx darf sich höchstens halbieren
-//          schritt:=parameter[i].xx / 2 / xx;
-          xx := parameter[i].xx / 2 / schritte[frei];
-          bitteNochMal:=true;
-        end;
-        if xx * schritt > parameter[i].xx then begin         // xx darf sich höchstens verdoppeln
-          schritt:=parameter[i].xx / xx;
-          bitteNochMal:=true;
-        end;
-        if parameter[i].yy - 2 * yy * schritte[frei] < 0 then begin // yy darf sich höchstens halbieren
-//          schritt:=parameter[i].yy / 2 / yy;
-          yy := parameter[i].yy / 2 / schritte[frei];
-          bitteNochMal:=true;
-        end;
-        if yy * schritt > parameter[i].yy then begin         // yy darf sich höchstens verdoppeln
-          schritt:=parameter[i].yy / yy;
-          bitteNochMal:=true;
-        end;
-      end;
-*)
 end;
 
 procedure tLLWerte.gausz2dSubtrahieren(parameter: tExtendedArray);