acos.c 871 Bytes
/*
=============================================================================
        Copyright (C) 1997-1999 NINTENDO Co.,Ltd.
        
        $RCSfile: acos.c,v $
        $Revision: 1.1.1.1 $
        $Date: 2002/10/30 02:07:09 $
=============================================================================
関数名:acos
-----------------------------------------------------------------------------
書式:  #include <math.h>
        double acos(double x);
引数:  x (-1〜1の範囲)
戻り値:アークコサイン(0〜πの範囲)
説明:  引数 x のアークコサインを求める。
-----------------------------------------------------------------------------
*/
#include "math.h"

double acos(double x)
{
    double  z;

    if (fabs(x)>1) return DVAL_ZERO;
    z = sqrt(1-x*x);
    if (z != 0) return DVAL_PI/2-atan2(x,z);
    if (x>0) return DVAL_ZERO;
    else return DVAL_PI;
}