\(\( (*\ henon' s\ map\ *) 
x[0] = 0; 

y[0] = 0.2; 

a = 1.4; 


    b = 0.3; 

nmax = 1000; 


    Do[x[n + 1] = 1 - a*\((x[n])\)^2 + y[n]; 
      y[n + 1] = b*x[n], {n, 0, nmax}]; 


    hh1 = ListPlot[Table[{x[n], y[n]}, {n, 0, nmax}], 
		
        AxesLabel -> {x, y}]\)\)