世界を作っている有限かつ、辺縁が直線で仕切られているそこで作っている世界はぐるぐる回ったりするそれを表すのに、各座標は便利たとえば、掲載図に示すように限定した世界、角のとがった世界にするために、2つの工夫をする(1)0から無限を有限に納める(2)多次元球面を平面に変える(1)0から無限を有限に納めるのには、1次元の無限に伸びる直線を2次元空間の点(0,1)から眺めることで実現する。1:Np){tmp<-Cartesian2Angular(xs[i,])#simplexs[i,]<-Angular2Cartesian(tmp$r,tmp$t)simplexs[i,]<-Sphere2Simplex(tmp$r,tmp$t)#simplexs2[i,]<-TangentDist2(simplexs2[i,],0,1)simplexs2[i,]<-TangentDist3(simplexs2[i,])tmp2<-Cartesian2Angular(simplexs2[i,])simplexs3[i,]<-Sphere2Simplex(tmp2$r,tmp2$t)}plot3d(xs[,1],xs[,2],xs[,3],col=rainbow(Np))open3d()plot3d(simplexs[,1],simplexs[,2],simplexs[,3],col=rainbow(Np))open3d()plot3d(simplexs2[,1],simplexs2[,2],simplexs2[,3],col=rainbow(Np))open3d()plot3d(simplexs3[,1],simplexs3[,2],simplexs3[,3],col=rainbow(Np))正負の無限大を有限に納めた正のみの世界にするにはどうするか上記と同じ方法でtangentを使う。(1)はてなブログをはじめよう!ryamadaさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。