Complex

type Complex = object

  xreal: ArbFloat;

  imag: ArbFloat;

  procedure Init();

  procedure Add();

  procedure Sub();

  function Inp();

  procedure Conjugate;

  procedure Scale();

  function Norm;

  function Size;

  function Re;

  procedure Unary;

  function Im;

  function Arg;

  procedure MinC();

  procedure MaxC();

  procedure TransF();

end;

Complex

TObject