2014-08-30から1日間の記事一覧

はまぐりの数学 貝のらせん(Wolfram) 貝のらせん(Wikipedia) uu <- seq(from=0,to=2*pi,length=50) vv <- seq(from=-2*pi,to=2*pi,length=100) uv <- expand.grid(uu,vv) x <- 5/4*(1-uv[,2]/(2*pi))*cos(2*uv[,2])*(1+cos(uv[,1]))+cos(2*uv[,2]) y <- 5/…