Return to cosh.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libm

coherent

/*
 * Hyperbolic cosine.
 */
#include <math.h>

#if	EMU87
#include "emumath.h"
#endif

double
cosh(x)
double x;
{
	double r;
	register int e;

	e = errno;
	r = exp(x);
	errno = e;
	r = (r+1.0/r) / 2.0;
	return (r);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.