一定となる点を取ると、それは半円周。rbind(XYZ,tmp)}plot3d(XYZ)次に、4次元空間を考える。w}XYZW}結び目のあるものをzw平面で回転させたいので、まずは結び目を作りたい三葉結び目はこちらで作れる。それをコピーしたのが以下(x,y,z空間で作る。k>1で、結ばれるk<-2x<-1/(2*(C1+C2))*sin((C1+C2)*t)+1/(2*(C1-C2))*sin((C1-C2)*t)+k/C2*sin(C2*t)y<-1/(2*(C1+C2))*sin((C1+C2)*(t+2/3*pi))+1/(2*(C1-C2))*sin((C1-C2)*(t+2/3*pi))+k/C2*sin(C2*(t+2/3*pi))z<-1/(2*(C1+C2))*sin((C1+C2)*(t+4/3*pi))+1/(2*(C1-C2))*sin((C1-C2)*(t+4/3*pi))+k/C2*sin(C2*(t+4/3*pi))plot3d(x,y,z,col=rainbow(npt))この結び目を少しxの正の方向にずらして、zw平面に2か所で貫通し、その接着点で張り付ける(x,y,z空間で作る。rbind(XYZW,tmp)}いくつかの方法で視覚化。(1)はてなブログをはじめよう!ryamadaさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。