Could you please explain me whats happening in this code.Posted by p12297 on July 01, 2003 at 18:32:01: Could you please explain me whats happening in this code. if (abs (err)>epsilon)OR(abs (Overshoot)>epsilon) then begin if sign (err) = sign (Overshoot) then begin if abs (err) 0 then MyForm.Info.Lines.Append (S + ' ' ) else MyForm.Info.Lines.Append (S + ' -'); Overshoot := - sign (Overshoot) * epsilon; end else Overshoot := err; end else if Overshoot = 0 then Overshoot := err; end;
[ DelphiLand: free Delphi source code, tips, tutorials ] |
|