[unix-history] / usr / src / libnm / acos.c

/*
acos(arg) return the arccos,
	respectively of their arguments.

	Arctan is called after appropriate range reduction.
*/

#include	<errno.h>
int errno;
double atan();
double sqrt();
static double pio2	= 1.570796326794896619;

double
acos(arg) double arg; {

	if(arg < 0)
		arg = -arg;

	if(arg > 1.){
		errno = EDOM;
		return(0.);
	}

	return(pio2 - asin(arg));
}
Commit	Line	Data
bf844a4f TL	1	/*
	2	acos(arg) return the arccos,
	3	respectively of their arguments.
	4
	5	Arctan is called after appropriate range reduction.
	6	*/
	7
	8	#include <errno.h>
	9	int errno;
	10	double atan();
	11	double sqrt();
	12	static double pio2 = 1.570796326794896619;
	13
	14	double
	15	acos(arg) double arg; {
	16
	17	if(arg < 0)
	18	arg = -arg;
	19
	20	if(arg > 1.){
	21	errno = EDOM;
	22	return(0.);
	23	}
	24
	25	return(pio2 - asin(arg));
	26	}