Animate time

Restart

first curve

zp(t, x, y, z) = (x * y) - (8 / 3 * z)
yp(t, x, y, z) = (28 * x) - y - (x * z)
xp(t, x, y, z) = (-10 * x) + (10 * y)
maxT = 6.5 (slider from 0 to 50)
Pstart = (3, 0, 1)
z0: z(Pstart)
y0: y(Pstart)
x0: x(Pstart)
numericalIntegral1, numericalIntegral2, numericalIntegral3 = NSolveODE({xp, yp, zp}, 0, {x0, y0, z0}, maxT)
tcont = 0
tlast: 0
len = Length(numericalIntegral1)
c = 0.595 (slider from 0 to 1, step 1 / 1000)
flist_{1} = Sequence((y(Point[numericalIntegral1, i]), y(Point[numericalIntegral2, i]), y(Point[numericalIntegral3, i])), i, 0, 1, 1 / len)
f_{1} = PolyLine(flist_{1})
a = false
bflag = 0
q = 1
c2 = 0.595
Plast_{1} = Element(flist_{1}, len)
x1: y(Point[numericalIntegral1, c])
y1: y(Point[numericalIntegral2, c])
z1: y(Point[numericalIntegral3, c])
P_{1}: (x1, y1, z1)
glist_{1} = Sequence((y(Point[numericalIntegral1, i]), y(Point[numericalIntegral2, i]), y(Point[numericalIntegral3, i])), i, 0, c, 1 / len)
g_{1} = PolyLine(glist_{1})
firstshow = true
b = true