DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a2b92015c⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Generic_Elementary_Functions, seg_0130ba

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



with Elementary_Functions_Exceptions;
generic
   type Float_Type is digits <>;
package Generic_Elementary_Functions is

-- from "Proposed Standard for a Generic Package of Elementary Functions
-- for Ada" ISO-IEC/JTC1/SC22/WG9 (Ada) Numerics Rapporteur Group
-- Draft 1.2, 12 December 1990

   function Sqrt (X : Float_Type)       return Float_Type;
   function Log  (X : Float_Type)       return Float_Type;
   function Log  (X, Base : Float_Type) return Float_Type;
   function Exp  (X : Float_Type)       return Float_Type;
   function "**" (X, Y : Float_Type)    return Float_Type;

   function Sin (X : Float_Type)        return Float_Type;
   function Sin (X, Cycle : Float_Type) return Float_Type;
   function Cos (X : Float_Type)        return Float_Type;
   function Cos (X, Cycle : Float_Type) return Float_Type;
   function Tan (X : Float_Type)        return Float_Type;
   function Tan (X, Cycle : Float_Type) return Float_Type;
   function Cot (X : Float_Type)        return Float_Type;
   function Cot (X, Cycle : Float_Type) return Float_Type;

   function Arcsin (X : Float_Type)        return Float_Type;
   function Arcsin (X, Cycle : Float_Type) return Float_Type;
   function Arccos (X : Float_Type)        return Float_Type;
   function Arccos (X, Cycle : Float_Type) return Float_Type;
   function Arctan (Y : Float_Type;  
                    X : Float_Type := 1.0) return Float_Type;
   function Arctan (Y     : Float_Type;  
                    X     : Float_Type := 1.0;  
                    Cycle : Float_Type)    return Float_Type;
   function Arccot (X : Float_Type;  
                    Y : Float_Type := 1.0) return Float_Type;
   function Arccot (X     : Float_Type;  
                    Y     : Float_Type := 1.0;  
                    Cycle : Float_Type)    return Float_Type;

   function Sinh (X : Float_Type) return Float_Type;
   function Cosh (X : Float_Type) return Float_Type;
   function Tanh (X : Float_Type) return Float_Type;
   function Coth (X : Float_Type) return Float_Type;

   function Arcsinh (X : Float_Type) return Float_Type;
   function Arccosh (X : Float_Type) return Float_Type;
   function Arctanh (X : Float_Type) return Float_Type;
   function Arccoth (X : Float_Type) return Float_Type;

   Argument_Error : exception
                        renames Elementary_Functions_Exceptions.Argument_Error;

   -- Argument_Error is raised whenever an argument is out of the
   -- domain of the corresponding function:
   --
   -- SQRT     when X < 0.0
   -- LOG      when X <= 0.0 , or when BASE < 0.0 or BASE = 1.0
   -- "**"     when X < 0.0, or when X = 0.0 and Y = 0.0
   --
   -- all trigonometric functions: when CYCLE <= 0.0
   --
   -- ARCSIN   when abs X > 1.0
   -- ARCCOS   when abs X > 1.0
   -- ARCTAN   when Y = 0.0 and X /= 0.0
   -- ARCCOT   when Y = 0.0 and X /= 0.0
   -- ARCCOSH  when X <= 1.0
   -- ARCTANH  when abs X > 1.0
   -- ARCCOTH  when abs X < 1.0

end Generic_Elementary_Functions;


E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=17 rec1=00 rec2=01 rec3=03e
        [0x01] rec0=01 rec1=00 rec2=05 rec3=02c
        [0x02] rec0=14 rec1=00 rec2=02 rec3=032
        [0x03] rec0=00 rec1=00 rec2=04 rec3=01c
        [0x04] rec0=1d rec1=00 rec2=03 rec3=000
    tail 0x2150db49082b1513e5db4 0x42a00066462061e03