13a8617a8SJordan K. Hubbard /* 23a8617a8SJordan K. Hubbard * cabs() wrapper for hypot(). 33a8617a8SJordan K. Hubbard * 43a8617a8SJordan K. Hubbard * Written by J.T. Conklin, <jtc@wimsey.com> 53a8617a8SJordan K. Hubbard * Placed into the Public Domain, 1994. 63a8617a8SJordan K. Hubbard */ 73a8617a8SJordan K. Hubbard 83a8617a8SJordan K. Hubbard #include <math.h> 93a8617a8SJordan K. Hubbard 103a8617a8SJordan K. Hubbard struct complex { 113a8617a8SJordan K. Hubbard double x; 123a8617a8SJordan K. Hubbard double y; 133a8617a8SJordan K. Hubbard }; 143a8617a8SJordan K. Hubbard 153a8617a8SJordan K. Hubbard double 163a8617a8SJordan K. Hubbard cabs(z) 173a8617a8SJordan K. Hubbard struct complex z; 183a8617a8SJordan K. Hubbard { 193a8617a8SJordan K. Hubbard return hypot(z.x, z.y); 203a8617a8SJordan K. Hubbard } 21