diff options
Diffstat (limited to 'werteunit.pas')
| -rw-r--r-- | werteunit.pas | 38 |
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); |