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
Declaration
Function SignXY(const X, Y: Extended): Extended;
Description
if Y < 0 then Returns - Abs (X)
else Returns Abs (X)
| X | Value whose magnitude to process | 
| Y | 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