索引
r := hypot(x,y); ... := sqrt(x*x+y*y) theta := atan2(y,x)
r := sqrt(x*x+y*y); r =0 の場合は、x := copysign(1,x);
jman