Return to approx.c CVS log

Up to [MW Coherent from dump] / coherent / a / usr / src / misc

coherent

/*
 * return 1 if args are within epsilon else 0
 */

double epsilon = 1.0e-20;

approx(a, b)
double a, b;
{
	if(0 > (a -= b))
		a = -a;
	return(a <= epsilon);
}

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