acospi.c

操作系统SunOS 4.1.3版本的源码

#ifndef lint
static	char sccsid[] = "@(#)acospi.c 1.1 92/07/30 SMI";
#endif

/*
 * Copyright (c) 1988 by Sun Microsystems, Inc.
 */

/* acospi(x)
 *
 *	acospi(x) = acos(x)/pi
 *
 */

static double invpi = 0.3183098861837906715377675;

double acospi(x)
double x;
{
	double acos(); return acos(x)*invpi;
}