DataMuseum.dk Presents historical artifacts from the history of: Commodore CBM-900

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦b2da1bdf8⟧ TextFile

    Length: 178 (0xb2)
    Types: TextFile
    Notes: UNIX file
    Names: »cosh.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX Filesystem
        └─⟦this⟧ »libm/cosh.c« 

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

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);
}