Hennon Map

\(n = 10000; \ 
x = \(y = Table[null, {i, n + 1}]\); 
x[\([1]\)] = 0; \ 
    y[\([1]\)] = 0; \ 
a\  = \ 1.4; 
b = 0.3; \)

\(Do[
	x[\([i + 1]\)]\  = \ y[\([i]\)]\  + \ 1\  - \ a\ x[\([i]\)]^2; 

      	y[\([i + 1]\)]\  = \ b\ x[\([i]\)]
, {i, 1, n}	]\)

ListPlot[Transpose[{x, y}]];

ListPlot[Transpose[{x, y}], PlotRange -> {{ .2,  .4}, { .2,  .25}}];