求助Mathematica大神
将六边形在其所在平面内绕中心旋转,在旋转的过程中按照比例系数
S=(sinα+sinβ)/sinβ进行放大,其中α为旋转角度,β为正六边形的内角.试动画演示这旋转过程.
人气：227 ℃ 时间：2020-05-08 03:40:50
解答
这样?：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}]这个代码转到一定时候会报错,这也是当然的,因为...
推荐
猜你喜欢
- 小东看叔叔锯木头,锯一次木头要2分钟,叔叔把木头锯成5段,叔叔请小东算一算需要几分钟?
- 一辆汽车从A地开往B地，前3小时行了180千米，照这样的速度，还要1.5小时才能到达，AB两地相距多远？
- 你让我感到害怕,英语怎么说?
- 某同学做了一次较为精确的测定匀加速直线运动的加速度的实验,实验所得到的纸带如图所示,设0点是计数的起始点,两计数点之间的时间间隔为0.1s,则第一个计数点与0点的距离s1应为__________cm,物体的加速度________
- “我”上学了,还是不断收到姥姥寄来的剪纸,其中表达姥姥对‘我’的期待的一副剪纸是这样的
- 三七五折等于几成
- 小红计算两个数的加法时,把其中一个加数个位上的0漏掉了,结果算出的和是37,已知正确答案是91,那么这
- 如图所示的是闭合电路的一部分导体在两磁极间的运动情形．图中小圆圈代表导体的横截面，a、b、c、d表示运动中四个不同位置．图中箭头表示在那个位置上的运动方向．导体在_位置会产
