こちらの続き 円と直線にする 曲率とその微分を図示しているわけだけれど、曲率とその微分とその積分と、曲線が閉じることについても考えたい Cartesian2Spherical2<-function(x,y){ if(x==0){list(x=x,y=0)}else{ a<-y/x list(x=1/a*cos(4*atan(x)-pi/2),y=…