1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- ADA.NUMERICS.GENERIC_COMPLEX_ELEMENTARY_FUNCTIONS --
9 -- This specification is adapted from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
16 with Ada
.Numerics
.Generic_Complex_Types
;
18 with package Complex_Types
is new Ada
.Numerics
.Generic_Complex_Types
(<>);
21 package Ada
.Numerics
.Generic_Complex_Elementary_Functions
is
24 function Sqrt
(X
: Complex
) return Complex
;
26 function Log
(X
: Complex
) return Complex
;
28 function Exp
(X
: Complex
) return Complex
;
29 function Exp
(X
: Imaginary
) return Complex
;
31 function "**" (Left
: Complex
; Right
: Complex
) return Complex
;
32 function "**" (Left
: Complex
; Right
: Real
'Base) return Complex
;
33 function "**" (Left
: Real
'Base; Right
: Complex
) return Complex
;
35 function Sin
(X
: Complex
) return Complex
;
36 function Cos
(X
: Complex
) return Complex
;
37 function Tan
(X
: Complex
) return Complex
;
38 function Cot
(X
: Complex
) return Complex
;
40 function Arcsin
(X
: Complex
) return Complex
;
41 function Arccos
(X
: Complex
) return Complex
;
42 function Arctan
(X
: Complex
) return Complex
;
43 function Arccot
(X
: Complex
) return Complex
;
45 function Sinh
(X
: Complex
) return Complex
;
46 function Cosh
(X
: Complex
) return Complex
;
47 function Tanh
(X
: Complex
) return Complex
;
48 function Coth
(X
: Complex
) return Complex
;
50 function Arcsinh
(X
: Complex
) return Complex
;
51 function Arccosh
(X
: Complex
) return Complex
;
52 function Arctanh
(X
: Complex
) return Complex
;
53 function Arccoth
(X
: Complex
) return Complex
;
55 end Ada
.Numerics
.Generic_Complex_Elementary_Functions
;