『アンパンマンを描いてみよう』 # アンパンマン d <- 3 n.pt <- 2000 X <- matrix(rnorm(d*n.pt),ncol=d) X <- X/sqrt(apply(X^2,1,sum)) librar(rgl) plot3d(X) nose <- X*0.3 nose[,1] <- nose[,1]+1 hoppe1 <- hoppe2 <- X* 0.3 theta <- pi/6 hoppe1[,1…