halvorsen2

Inicializar

Ejes

Atractor de Rössler

anim

Animar

a

b

c

salto: 3
t_f = 150 (slider from 0 to 500)
x'(t, x, y, z) = (-y) - z
a = 0.1
y'(t, x, y, z) = x + (a * y)
x_0 = 1
y_0 = 0
z_0 = 0
Atractor = 0 (slider from 0 to 1)
c = 14
b = 0.1
z'(t, x, y, z) = b + (z * (x - c))
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, salto / len)
curva = PolyLine(L)
texto1: "x'=" + (LaTeX[x']) + "\\y'=" + (LaTeX[y']) + "\\z'=" + (LaTeX[z']) + ""
fac: 3
j: false
CasillaDeEntrada1 = Textfield(a)
CasillaDeEntrada2 = Textfield(b)
CasillaDeEntrada3 = Textfield(c)