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 - download

⟦729a1c0e9⟧ TextFile

    Length: 182 (0xb6)
    Types: TextFile
    Notes: UNIX file
    Names: »acos.c«

Derivation

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

/*
 * Compute the inverse cosine function.
 */
#include <math.h>

double
acos(x)
double x;
{
	if (x<-1.0 || x>1.0) {
		errno = EDOM;
		return (0.0);
	}
	return (PI/2.0 - asin(x));
}