こちらを見て自分でも書いてみたのでメモ t<-seq(0,600,by=0.001) r<-0.7 T1<-1 T2<-1*r w1<-2*pi/T1 w2<-2*pi/T2 theta<-w1*t phi<-w2*t r1<-2 r2<-1 x<-r1*cos(theta)+r2*cos(theta)*cos(phi) y<-r1*sin(theta)+r2*sin(theta)*cos(phi) z<-r2*sin(phi) #li…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。