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