[cc]mc | .hd tan$m "calculate tangent" 04/27/83 longreal function tan$m (x) real x .sp Library: vswtmath (Subsystem mathematical library) .fs This function calculates the tangent of the angle whose measure is given (in radians) as the argument to the function. The arguments must have an absolute value of less than 13176794.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 return value will be 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 calculated based on a minimax polynomial approximation over a reduced argument. 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 cot$m (2), dint$p (2), dtan$m (2), err$m (2), .br .ul SWT Math Library User's Guide [cc]mc