RTAI API: base/math/w_cabs.c Source File

00001 /*
00002  * cabs() wrapper for hypot().
00003  * 
00004  * Written by J.T. Conklin, <jtc@wimsey.com>
00005  * Placed into the Public Domain, 1994.
00006  */
00007 
00008 #include <math.h>
00009 
00010 struct complex {
00011     double x;
00012     double y;
00013 };
00014 
00015 double
00016 cabs(struct complex z)
00017 {
00018     return hypot(z.x, z.y);
00019 }