m1 = 3.5;
m2 = 1.7;
m3 = 0.3;
x1[t_] = Sin[3 t];
y1[t_] = 2 t^2 - 1;
x2[t_] = 4 Log[3 t + 2];
y2[t_] = Sin[2 t];
x3[t_] = Tan[5/(t + 1)];
y3[t_] = Exp[-2 t];
T = 2;
M = m1 + m2 + m3;
xC[t_] = (m1 x1[t] + m2 x2[t] + m3 x3[t])/M;
yC[t_] = (m1 y1[t] + m2 y2[t] + m3 y3[t])/M;
Animate[ParametricPlot[{xC[t], yC[t]}, {t, 0, 2}], {?? ??}]
How to make the "animate" change the value of t?
t
?t
is already fixed byParametricPlot
, so it's not a variable in the animated expression any more. Do you want to vary the range oft
? What exactly should be animated? $\endgroup$t
you could do something like..., {t, 0, u}], {u, 0, 2}]
. You might have to fixPlotRange
inParametricPlot
then though so that the frame remains the same throughout the animation. $\endgroup$