如何为旋转的三角形设置动画，该三角形在旋转时（随机）改变颜色

Question

所以我想创建一个等边三角形的动画，它固定在一个圆心上，三个顶点在一个圆上，当它旋转时，颜色会以随机模式不断变化。

到目前为止我有：

Animate[Graphics[{Hue[RandomReal[]], 
   Triangle[{{-1/2 - Cos[i], 0 - 1/2 Tan[i]}, {1/2 - Cos[i], 
      0 - 1/2 Tan[i]}, {0 - Cos[i], 3^(1/2)/2 - 1/2 Tan[i]}}]}], {i, 
  0, 2*Pi}]

当前输出（三角形除了自旋外什么都做）

我希望的输出：

Spinning Triangle

我希望知道我做错了什么以及我该如何修正我的代码才能正常工作。

Answer 1

好的解决方法是processing.org 可以制作动画，方便放到网上。

Answer 2

以下是使用 Rotate

执行此操作的方法

c = RegionCentroid[SSSTriangle[1, 1, 1]];
Animate[Graphics[{Hue[RandomReal[]], 
   Rotate[SSSTriangle[1, 1, 1], i, c]},
  PlotRange -> {{c[[1]] - 2/3, c[[1]] + 2/3}, {c[[2]] - 2/3, 
     c[[2]] + 2/3}}], {i, 0, 2 Pi}]

原来的问题是你的公式完全错误。这行得通。

Animate[Graphics[{Hue[RandomReal[]],
   Triangle[{{Sin[i], Cos[i]}, {Sin[i + 2 Pi/3], 
      Cos[i + 2 Pi/3]}, {Sin[i + 4 Pi/3], Cos[i + 4 Pi/3]}}]},
  PlotRange -> {{-3/2, 3/2}, {-3/2, 3/2}}], {i, 0, 2 Pi}]

如何为旋转的三角形设置动画，该三角形在旋转时（随机）改变颜色

How to animate a spinning Triangle that changes colors (randomly) as it spins

graphics

animation

wolfram-mathematica

trigonometry