blob: 963fa3c369667738638bc18624d8e9ee536c9e4f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package Opt18_Pkg is
pragma Pure;
type Limit_Type is record
Low : Float;
High : Float;
end record;
function First_Order_Trig return Float;
type Trig_Pair_Type is
record
Sin : Float;
Cos : Float;
end record;
function Atan2 (Trig : in Trig_Pair_Type) return Float;
function Unchecked_Trig_Pair (Sin, Cos : in Float) return Trig_Pair_Type;
function Double_Trig (Trig : in Trig_Pair_Type) return Trig_Pair_Type;
function Sqrt (X : Float) return Float;
end Opt18_Pkg;
|
