こちらから デカルト座標での直線は、「その座標」では の直線は、 の直線は、とか… 無限遠は、上か… こんな座標系はどんな座標系？ SphericalCoordinate<-function(x,y){ if(x==0){list(x=x,y=0)}else{ a<-y/x list(x=1/a*cos(atan(x)-pi/2),y=1/a*sin(atan…

ソースを使いまわすために、整理する。こちらで。 一部はこちらの「書籍内Rソースコード」