求助Mathematica大神

题目

求助Mathematica大神
将六边形在其所在平面内绕中心旋转,在旋转的过程中按照比例系数
S=(sinα+sinβ)/sinβ进行放大,其中α为旋转角度,β为正六边形的内角.试动画演示这旋转过程.

答案

这样?：Animate[Graphics[Polygon[Sqrt[Sin[a]/Sin[2 Pi/3] + 1] Table[{Cos[a + Pi/3 k],Sin[a + Pi/3 k]},{k,0,5}]],PlotRange -> {{-2,2},{-2,2}}],{a,0,Infinity}]这个代码转到一定时候会报错,这也是当然的,因为...