mathematica怎么把一个曲线和它的动点图画在一个坐标系？

Question

就是一个参数方程和构成它的点的轨迹（例如摆线），画在一个图里面，我试过这样的代码
f[h_, t_] := -h {-Cos[2 t], Sin[2 t]} + 6 {Cos[t], Sin[t]}
f1 := ParametricPlot[{f[1, t]}, {t, 0, 2 Pi},
PlotRange -> {{-10, 10}, {-10, 10}}, AspectRatio -> Automatic,
DisplayFunction -> Identity]
Show[f1, PlotRange -> Automatic]

Animate[Graphics[{Red,
Point[{Cos[2 t] + 6 Cos[t], -Sin[2 t] + 6 Sin[t]}]}, Axes -> True,
AxesOrigin -> {0, 0}, PlotRange -> {-15, 15}], {t, 0, 2 Pi}]
但画出来两个图，怎么把这两行合并？

Answer 1

Animate[Show[f1,
Graphics[{Red, Point[{Cos[2 t] + 6 Cos[t], -Sin[2 t] + 6 Sin[t]}]},
Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {-15, 15}]], {t,
0, 2 Pi}]