Apˆendice B. Programas Maple
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 0.2507462687, y = 0.7462686567, z = 0.1552238806e − 1, %);
> linalg[eigenvals](%);
−0.9376831737, −0.02966587558 + 0.1583121586I, −0.02966587558 − 0.1583121586I
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 0, y = 0, z = 0, %);
> linalg[eigenvals] (%);
−1., 1., 1.
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 0, y = 1, z = 0, %);
> linalg[eigenvals](%); −1., 0.1000000000, −0.5000000000
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 0, y = 2, z = −1, %);
> linalg[eigenvals](%); 0.4142135624, −2.414213562, 4.200000000
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 1, y = 0, z = 0, %);
> linalg[eigenvals](%);
−1., 0.05000000000, 1.500000000
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 0.4, y = 0, z = 0.12, %);
> linalg[eigenvals](%);
−0.2000000000 + 0.7483314774I, −0.2000000000 − 0.7483314774I, 0.5000000000
> linalg[jacobian]([eq1(t, x, y, z), eq2(t, x, y, z), eq3(t, x, y, z)], [x, y, z]);
> subs(x = 0.6896551724, y = 0.344827586210, z = 0, %);
> linalg[eigenvals](%);
−1.000000000, −0.03448275866, 0.8965517241
88