home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Python 1.4 / Python 1.4 source / Python / hypot.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-14  |  309 b   |  27 lines  |  [TEXT/CWIE]
  1. /* hypot() replacement */
  2.  
  3. #include "config.h"
  4. #include "myproto.h"
  5. #include "mymath.h"
  6.  
  7. double hypot(x, y)
  8.     double x;
  9.     double y;
  10. {
  11.     double yx;
  12.  
  13.     x = fabs(x);
  14.     y = fabs(y);
  15.     if (x < y) {
  16.         double temp = x;
  17.         x = y;
  18.         y = temp;
  19.     }
  20.     if (x == 0.)
  21.         return 0.;
  22.     else {
  23.         yx = y/x;
  24.         return x*sqrt(1.+yx*yx);
  25.     }
  26. }
  27.