w_cabs.c revision 8870
1/* 2 * cabs() wrapper for hypot(). 3 * 4 * Written by J.T. Conklin, <jtc@wimsey.com> 5 * Placed into the Public Domain, 1994. 6 */ 7 8#include <math.h> 9 10struct complex { 11 double x; 12 double y; 13}; 14 15double 16cabs(z) 17 struct complex z; 18{ 19 return hypot(z.x, z.y); 20} 21 22double 23z_abs(z) 24 struct complex *z; 25{ 26 return hypot(z->x, z->y); 27} 28