ex08_solutions

Note the typo... The initial values were not given in the assignment. You can try out these, although you can give pretty much anything as long as it's small enough. Also try to vary the parameters α and β.

In[17]:=

$x_p = 0. ; y_p = 0. ; Henon = {{x_p, y_p}} ; α = 1.4 ; β = 0.3 ; n = 5000 ;$

$For[i = 0, i<n, i ++, x_0 = 1 + y_p - α x_p^2 ; y_0 = β x_p ; x_p = x_0 ; y_p = y_0 ; Henon = Append[Henon, {x_0, y_0}] ;]$

[Graphics:../HTMLFiles/ex08_solutions_30.gif]

Out[19]=

Created by Mathematica (April 10, 2007)