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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 18:16:28
求助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……