Returns an Extended as its Mantissa and Exponent base 10.Unit
QESBPCSMath
Declaration
Procedure ExtractParts(const X: Extended; out Mantissa: Extended; out Exponent: Integer);
Description
For Values with large negative exponents, ESBTolerance will need to be changed to a smaller value.
X | Float to process |
Mantissa | Resultant Mantissa in the form x.yyyyyyy. |
Exponent | Resultant Exponent of the float, ie power of 10. |
Category
Arithmetic Routines for Floats
Implementation
procedure ExtractParts (const X: Extended; out Mantissa: Extended;
out Exponent: Integer);
begin
if FloatIsZero (X) then
begin
Exponent := 0;
Mantissa := 0;
end
else
begin
Exponent := Round (ESBFloor (ESBLog10 (abs (X))));
Mantissa := X / TenToY (Exponent);
end;
End; |
HTML generated by Time2HELP
|
http://www.time2help.com