代码没有粘玩，mma里面搜索双摆可以找到。下面只是制作动画的部分
Animate[Graphics[{{PointSize[.025], {Red, Point[{x1[t], y1[t]}]}, {Blue, Point[{x2[t], y2[t]}]}, Line[{{0, 0}, {x1[t], y1[t]}, {x2[t], y2[t]}}]} /. soldp, {Gray, Line[Map[Function[Evaluate[{x2[
#], y2[#
]} /. soldp]],Range[0, t, 0.025]]]}}, PlotRange -> {{-2, 2}, {-2, 0}}, Axes -> True, Ticks -> False, ImageSize -> 500], {t, 0, 10, .025}, SaveDefinitions -> True]
这句看不懂 {Gray, Line[Map[Function[Evaluate[{x2[
#], y2[#
]} /. soldp]],Range[0, t, 0.025]]]}}，知道这句是在画轨迹线，不懂为什么是这样，求指教

来个人啊！

我记得这帖应该是有人回过的，好像是@无影东瓜 回的。是不是又仅作者可见了？

好嘛，仔细一看楼层编号，还真没人答过。可是你是觉得哪不懂？我写成下面这样你会不会觉得好懂一点？：
solexpr = {x2[
#], y2[#
]} /. soldp
solfunc = Function[Evaluate[solexpr]]
coord = Map[solfunc, Range[0, t, 0.025]]
{Gray, Line[coord]}
还有你知不知道在Mathematica里只要N次点击一段代码，代码的各个部件就会依照优先级被刷蓝？用这个方法可以轻易看清多重嵌套的优先级。（当然了，自版本9开始，Mathematica已经会依据光标位置，自动使用浅绿色标识有优先级了，这个技巧也不是那么必要了。）