halvorsen2

Inicializar

Ejes

Atractor de Halvorsen

anim

Parar

a

Atractor = 1 (slider from 0 to 1)
z_0 = -1.93
y_0 = 2.2
x_0 = -0.47
a = 1.33
z'(t, x, y, z) = ((-a) * z) - (4 * x) - (4 * y) - x^(2)
x'(t, x, y, z) = ((-a) * x) - (4 * y) - (4 * z) - y^(2)
y'(t, x, y, z) = ((-a) * y) - (4 * z) - (4 * x) - z^(2)
tiempo = 40 (slider from 0 to 40)
numx, numz, numy = NSolveODE({x', y', z'}, 0, {x_0, y_0, z_0}, tiempo)
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 = true
CasillaDeEntrada1 = Textfield(a)