Return to tanh.c CVS log

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

coherent

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

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

double
tanh(x)
double x;
{
	double r;
	register int s;

	s = 0;
	if (x < 0.0) {
		x = -x;
		s = 1;
	}
	r = exp(-2.0*x);
	r = (1.0-r) / (1.0+r);
	return (s?-r:r);
}

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