正五角錐を回転させるアニメーションを製作しましょう。 /* 3.4.1m.mac */ load(draw)$ xyz2polar(v) := block([r : sqrt(v[1]^2 + v[2]^2 + v[3]^2)], [r, acos(v[3]/r), mod(atan2(v[2], v[1]), 2*%pi)])$ t : makelist(ev([cos(a), sin(a), 0], a = 2*%pi…