abs

static VALUE
nucomp_abs(VALUE self)
{
 get_dat1(self);
 if (f_zero_p(dat->real)) {
 VALUE a = f_abs(dat->imag);
 if (RB_FLOAT_TYPE_P(dat->real) && !RB_FLOAT_TYPE_P(dat->imag))
 a = f_to_f(a);
 return a;
 }
 if (f_zero_p(dat->imag)) {
 VALUE a = f_abs(dat->real);
 if (!RB_FLOAT_TYPE_P(dat->real) && RB_FLOAT_TYPE_P(dat->imag))
 a = f_to_f(a);
 return a;
 }
 return rb_math_hypot(dat->real, dat->imag);
}