1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
/* * cabs() wrapper for hypot(). * * Written by J.T. Conklin, <jtc@wimsey.com> * Placed into the Public Domain, 1994. */ #include <sys/cdefs.h> __FBSDID("$FreeBSD$"); #include <complex.h> #include <math.h> double cabs(z) double complex z; { return hypot(creal(z), cimag(z)); }