|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1422 (0x58e)
Types: TextFile
Names: »V«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
generic
type Argument is digits <>; -- the type to take the log of.
type Return_Value is digits <>; -- the type returned by the log.
package Base_Ten is
--======================================================
--= =
--= This package provides a function to return the log =
--= (to the base 10) of a number. The number must be a=
--= floating point number. This package currently does=
--= minimal error anlysis and numerical analysis to =
--= keep the correct accuracy and could, therefore use =
--= some improvement. =
--= =
--= =
--= written by Brad Balfour with help from Ed Berard =
--= version 1.0 =
--= June 16, 1985 =
--= =
--======================================================
function Log (Of_Value : in Argument) return Return_Value;
-- computes the log to the base 10 of the number.
Negative_Log : exception;
-- raised if the argument to the log function is <= 0
Value_Too_Large : exception;
-- raised if the argument to the log function causes
-- an overflow to occur.
end Base_Ten;