SignXY Routines
Returns the FORTRAN type SIGN of the Values - basically it returns a value with the Magnitude of X and the Sign of Y.

Unit
QESBPCSMath

Overloaded Variants
Function SignXY(const X, Y: Extended): Extended;
Function SignXY(const X, Y: Int64): Int64;
Function SignXY(const X, Y: LongInt): LongInt;
Function SignXY(const X: Extended; const Y: Int64): Extended;

Declaration
Function SignXY(const X, Y: Extended): Extended;

Description
if Y < 0 then Returns - Abs (X)

else Returns Abs (X)

Parameters
Value whose magnitude to process
Value whose sign to process

Category
Arithmetic Routines for Floats
Arithmetic Routines for Integers

Implementation

function SignXY (const X, Y: Extended): Extended; overload;
begin
     if Y < 0 then
          Result := -Abs (X)
     else
          Result := Abs (X);
End;

Declaration
Function SignXY(const X, Y: Int64): Int64;

Implementation

function SignXY (const X, Y: Int64): Int64; overload;
begin
     if Y < 0 then
          Result := -Abs (X)
     else
          Result := Abs (X);
End;

Declaration
Function SignXY(const X, Y: LongInt): LongInt;

Implementation

function SignXY (const X, Y: LongInt): LongInt; overload;
begin
     if Y < 0 then
          Result := -Abs (X)
     else
          Result := Abs (X);
End;

Declaration
Function SignXY(const X: Extended; const Y: Int64): Extended;

Implementation

function SignXY (const X: Extended; const Y: Int64): Extended; overload;
begin
     if Y < 0 then
          Result := -Abs (X)
     else
          Result := Abs (X);
End;


HTML generated by Time2HELP
http://www.time2help.com