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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 03:17:02
求助Mathematica大神将六边形在其所在平面内绕中心旋转,在旋转的过程中按照比例系数S=(sinα+sinβ)/sinβ进行放大,其中α为旋转角度,β为正六边形的内角.试动画演示这旋转过程.

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

求助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}]
这个代码转到一定时候会报错,这也是当然的,因为你的题设有问题……你那个比例系数到一定时候会小于0……