Could you please explain me whats happening in this code.


[ Post Followup ] [ Delphi Forum ] [ Delphi Tutorials -- by DelphiLand ]

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;

Related Articles and Replies:


[ Post Followup ] [ Delphi Forum ]
[ DelphiLand: free Delphi source code, tips, tutorials ]