[cc]mc |
.hd cos$m "calculate cosine" 04/27/83
longreal function cos$m (x)
real x
.sp
Library: vswtmath (Subsystem mathematical library)
.fs
This function returns the cosine of the angle whose measure
(in radians) is given by the argument.
The absolute value of
the angle plus one-half pi must be less than than 26353588.0.
The condition SWT_MATH_ERROR$ is signalled if there is an argument error.
An on-unit can be established to deal with this error; the SWT Math
Library contains a default handler named 'err$m' which the user may
utilize.
If an error is signalled, the default function return is zero.
.sp
This function is intended to serve as a single precision function although
it returns a double precision result.  The function has been coded so
that any value returned will not overflow or underflow a single precision
floating point value.  The double precision register overlaps the single
precision register so it is possible to declare and use this function
as simply a "real" function.
.im
The function is implemented as a minimax polynomial approximation.
It is adapted from the algorithm given in the book
.ul
Software Manual for the Elementary Functions
by William Waite and William Cody, Jr.  (Prentice-Hall, 1980).
.ca
dint$p, Primos signl$
.sa
acos$m (2), dcos$m (2), dint$p (2), err$m (2), sin$m (2),
.br
.ul
SWT Math Library User's Guide
[cc]mc