【Mathematica】制作水波干涉的动画

1、水面上的波小絮扬片纹，大体上是逐步衰减的正弦波动，因此可以用如下的参数方程，来表示某一刻的波动：{x, y, Sin[0.02 ((x + 10)^2 + y^2) ] + 0.9^((x + 10)^2 + y^2)}

3、加快一下速度，就是要把"DisplayDurations" -> 0.1的时间缩短一下："DisplayDurations" -> 0.02

5、让两个波源离远点：Sin[0.03 ((x + 20)^2 + (y + 0)^2) - n] + 0.9^((x + 20)^2 + (y + 0)^2)+ S足毂忍珩in[0.03 ((x - 20)^2 + (y + 0)^2) - n] + 0.9^((x - 20)^2 + (y + 0)^2)

7、如果再加上第三个波源：……+Sin[0.03 ((x + 0)^2 + (y + 20)^2) - n] + 0.9^((x - 0)^2 + (y + 20)^2)