I'm trying to create an animation of Lorenz equation as a function of t. Here is the numerical solution of the equation:
s = NDSolve[{x'[t] == 10 (y[t] - x[t]),
y'[t] == 23 x[t] - y[t] - x[t] z[t], z'[t] == x[t] y[t] - 8/7 z[t],
x[0] == z[0] == 2, y[0] == 2}, {x, y, z}, {t, 0, 70}]
I can create a simple plot of x,y and z from t=0 to a specific t:
ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. s], {t, 0, 70}]
I just couldn't figure out how to create an 3D animated graph of x(t), y(t) and z(t) as a function of t.
Thanks in advance.