From 7ce331c01ce6eb7b3f5c715a38a24359da9c6ee2 Mon Sep 17 00:00:00 2001 From: Eric Andersen Date: Thu, 22 Nov 2001 14:04:29 +0000 Subject: Totally rework the math library, this time based on the MacOs X math library (which is itself based on the math lib from FreeBSD). -Erik --- libm/float/coshf.c | 67 ------------------------------------------------------ 1 file changed, 67 deletions(-) delete mode 100644 libm/float/coshf.c (limited to 'libm/float/coshf.c') diff --git a/libm/float/coshf.c b/libm/float/coshf.c deleted file mode 100644 index 2b44fdeb3..000000000 --- a/libm/float/coshf.c +++ /dev/null @@ -1,67 +0,0 @@ -/* coshf.c - * - * Hyperbolic cosine - * - * - * - * SYNOPSIS: - * - * float x, y, coshf(); - * - * y = coshf( x ); - * - * - * - * DESCRIPTION: - * - * Returns hyperbolic cosine of argument in the range MINLOGF to - * MAXLOGF. - * - * cosh(x) = ( exp(x) + exp(-x) )/2. - * - * - * - * ACCURACY: - * - * Relative error: - * arithmetic domain # trials peak rms - * IEEE +-MAXLOGF 100000 1.2e-7 2.8e-8 - * - * - * ERROR MESSAGES: - * - * message condition value returned - * coshf overflow |x| > MAXLOGF MAXNUMF - * - * - */ - -/* cosh.c */ - -/* -Cephes Math Library Release 2.2: June, 1992 -Copyright 1985, 1987, 1992 by Stephen L. Moshier -Direct inquiries to 30 Frost Street, Cambridge, MA 02140 -*/ - -#include -extern float MAXLOGF, MAXNUMF; - -float expf(float); - -float coshf(float xx) -{ -float x, y; - -x = xx; -if( x < 0 ) - x = -x; -if( x > MAXLOGF ) - { - mtherr( "coshf", OVERFLOW ); - return( MAXNUMF ); - } -y = expf(x); -y = y + 1.0/y; -return( 0.5*y ); -} -- cgit v1.2.3