%% 
%%  The LaTeX Graphics Companion, 2ed (first printing May 2007)
%% 
%%  Example 6-1-34 on page 327.
%% 
%%  Copyright (C) 2007 Michel Goossens, Frank Mittelbach, Denis Roegel, Sebastian Rahtz, Herbert Vo\ss 
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 

\documentclass{ttctexa}
\pagestyle{empty}
\setcounter{page}{6}
\setlength\textwidth{159.83385pt}
\newcommand\henon{
 1.00000000  1.00000000
 0.56000000  0.31000000
 0.85841600  0.17360000
 0.11249564  0.26610896
 1.24788537  0.03487365
-1.20752013  0.38684447
-0.71282656 -0.37433124
-0.10602649 -0.22097623
 0.76283584 -0.03286821
 0.12916912  0.23647911
 1.21245320  0.04004243
-1.07681914  0.37586049
-0.29387634 -0.33381393
 0.54182291 -0.09110166
 0.48615456  0.16796510
 0.82762650  0.15070791
 0.16435741  0.25656422
 1.21766498  0.05095080
-1.08414872  0.37747614
-0.31506881 -0.33608610
 0.52096746 -0.09767133
 0.51150245  0.16149991
 0.78474587  0.15856576
 0.27177620  0.24327122
 1.13690951  0.08425062
-0.77704042  0.35244195
 0.48298173 -0.24088253
 0.42320673  0.14972434
 0.89181467  0.13119409
-0.01408602  0.27646255
 1.27617683 -0.00436667
-1.34958997  0.39561482
-1.22719125 -0.41837289
-1.58701052 -0.38042929 }
\StartShownPreambleCommands
\usepackage{pstricks,pst-plot}
\makeatletter
\pst@def{ScalePoints}<%
  45 rotate % rotate all objects
  /y ED /x ED
  counttomark dup dup cvi eq not { exch pop } if
  /m exch def /n m 2 div cvi def
  n { exch % exchanges the last two stack elements
      y mul m 1 roll x mul m 1 roll
      /m m 2 sub def } repeat>
\makeatother
\StopShownPreambleCommands
\begin{document}
\psset{yunit=1.5cm, xunit=2.5cm}
\begin{pspicture}(-0.5,-2)(1.25,2.0)
  \psaxes{->}(0,0)(-0.5,-2)(1.25,2)
  \listplot[showpoints=true,linecolor=blue,%
       plotstyle=curve]{\henon}
\end{pspicture}
\end{document}