Staging
v0.8.1
v0.8.1
Revision 5c38bf6c62eb9590fb0616120e51aeac220bfc0a authored by Barry Warsaw on 02 December 1997, 22:01:04 UTC, committed by Barry Warsaw on 02 December 1997, 22:01:04 UTC
Unnecessary for XEmacs, but oh well...
1 parent 673d05f
hypot.c
/* hypot() replacement */
#include "config.h"
#include "myproto.h"
#include "mymath.h"
double hypot(x, y)
double x;
double y;
{
double yx;
x = fabs(x);
y = fabs(y);
if (x < y) {
double temp = x;
x = y;
y = temp;
}
if (x == 0.)
return 0.;
else {
yx = y/x;
return x*sqrt(1.+yx*yx);
}
}
Computing file changes ...