資料PDF library(geometry) a1 <- a2 <- a3 <- a4 <- -10:10 aaaa <- expand.grid(a1,a2,a3,a4) t1 <- (1+sqrt(5))/2 t2 <- (1-sqrt(5))/2 u <- c(cos(0),sin(0)) v <- c(cos(4*pi/5),sin(4*pi/5)) u. <- c(cos(0),sin(0)) v. <- c(cos(2*pi/5),sin(2*pi/5))…