Return to atan2.c CVS log

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

coherent

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

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

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

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