Return to sinh.c CVS log

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

coherent

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

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

double
sinh(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.