你们谁有办法把这只蝴蝶也飞起来？

FreddyMusic

http://forum.simwe.com/thread-881210-1-1.html

你们谁有办法把这只数学蝴蝶也飞起来？

HyperGroups

有一个蜻蜓，我说它会飞，你信吗@@——！;P

HyperGroups

it's easy,
可以参考一个叫AnimatedButterfly的Demo
两年前好像就有这个demo，之前说的蜻蜓我就是参考它画的。
简单修改如下，当然效果还不太好。。。上班了，，，
Manipulate[
g1 = ParametricPlot[{5 flap Sin[
      u] (E^Cos - 2 Cos[4 u] + Sin[1/12 u]^5),
    Cos (E^Cos - 2 Cos[4 u] + Sin[1/12 u]^5)},
   {u, 0, 1.95 Pi}, BoundaryStyle -> None,
   PlotRange -> All, PlotPoints -> 15,
   MaxRecursion -> ControlActive[2, 3],
   PlotStyle -> Directive[Opacity[1], Hue[flap]],
   Background -> LightBlue,
   Axes -> False, Frame -> False, PerformanceGoal -> "Quality"];
Show[g1, g2, g3, g4, PlotRange -> 2 Pi,
  AspectRatio -> Automatic, ImageSize -> {500, 450}],
{flap, 1.25, 0.1}]