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

⟦20f10ed82⟧ TextFile

    Length: 325 (0x145)
    Types: TextFile
    Notes: UNIX file
    Names: »atan2.c«

Derivation

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

TextFile

/*
 * Compute the inverse tangent given two sides of a right angled
 * triangle.
 */
#include <math.h>

double
atan2(y, x)
double x;
double y;
{
	double r;

	if (x == 0.0) {
		r = PI/2;
		if (y < 0.0)
			r = -r;
		return (r);
	}
	r = atan(y/x);
	if (x < 0.0) {
		if (y < 0.0)
			r -= PI;
		else
			r += PI;
	}
	return (r);
}