Sorry, you are totaly right. I don't know but I really forget it.
So, I get this:
Block[
{a = 0.05, T = 90, x1 = 0, y1 = 20, z1 = 40, x2 = 10, y2 = 10,
z2 = 0}, ParametricPlot3D[
{x[t], y[t], z[t]}, {t, 0, T},
AxesLabel -> {"x[t]", "y[t]", "z[t]"}, BoxRatios -> {1, 1, 1},
PlotStyle -> Red
]
]
But how can I get a Plot3D (if I can)?
Plot3D[{x[t], y[t], z[t]}, {t, 0, T}, ...]
Attachments: