I use Mathematica 7 I am trying to animate a planet (Disk in Mathematica) on an elliptical orbit whose ContourPlot is found from:
plot1=ContourPlot[x^2 + 2 y^2 == 3, {x, -1.75, 1.75}, {y, -1.75, 1.75},
ContourStyle -> {Red, Thickness[0.0025]}, Frame -> False,
Axes -> True ]
using an input from an earlier version of Mathematica, which is:
plot2=Animate[{plot1,
Graphics[{RGBColor[0, 0, 1],
Disk[{Sqrt[3] Sin[x], Sqrt[3/2] Cos[x]}, 0.1]}]}, {x, 0, 2 \[Pi],
0.3}, PlotRange -> {{-1.9, 1.9}, {-1.5, 1.5}}]
This does not work. I shall be grateful if someone could help me to find the correct code for animation for Mathematica 7