如何用Mathematica计算三体问题

1、首先，确定三个星体的坐标分别用X1,Y1, X2,Y2 X3,Y3表示。为保险起见，将这几个变量Remove.

3、然后设置三个星体的质量M1,M2,M3, 万有引力常数G, 解算时间TMAX,钱砀渝测（还有绘图相关：动画的时间间隔DeltaTime, 绘图范围MyLTBR（就是上下左右的距离）)

5、定义三个星体的水平竖直两个方向上的受力。写成函数。

8、使用Graphics嵌套三个Disk画出三个圆点，然后Show函数结合ParametricPlot（轨迹图）以及Graphics里三个圆点。最外面嵌套一个Table生成一个图片列表。

9、使用列表帧动画函数ListAnimate得到动画。

10、使用Export方法导出Gif。最终效果如下。