halvorsen2

Inicializar

Ejes

Atractor de Lorenz

anim

Animar

a

b

c

b = 28
c = 2.6666666666666665
Atractor = 0 (slider from 0 to 1)
z_0 = 0
y_0 = 0
x_0 = 1
a = 10
z'(t, x, y, z) = (x * y) - (c * z)
x'(t, x, y, z) = (a * (y - x))
y'(t, x, y, z) = (x * (b - z)) - y
t_f = 50 (slider from 0 to 50)
numx, numz, numy = NSolveODE({x', y', z'}, 0, {x_0, y_0, z_0}, t_f)
len = Length(numx)
ejes = false
L = Sequence((y(Point[numx, i]), y(Point[numz, i]), y(Point[numy, i])), i, 0, Atractor, 1 / len)
curva = PolyLine(L)
texto1: "x'=" + (LaTeX[x']) + "\\y'=" + (LaTeX[y']) + "\\z'=" + (LaTeX[z']) + ""
j: false
CasillaDeEntrada1 = Textfield(a)
CasillaDeEntrada2 = Textfield(b)
CasillaDeEntrada3 = Textfield(c)