summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples-en/15-04-7.ltx
blob: bcc69553acd56fd657390bbc40428b6e62a9c3af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
%% 
%%  A DANTE-Edition example
%% 
%%  Example 15-04-7 on page 217.
%% 
%%  Copyright (C) 2011 Herbert Voss
%% 
%%  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.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
\documentclass[]{article}
\pagestyle{empty}
\setlength\textwidth{153.70511pt}
\setlength\parindent{0pt}
\def\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
}

\usepackage{pstricks,pst-plot}
\makeatletter
\pst@def{ScalePoints}<%
  45 rotate % rotate by 45 degrees
  /y ED /x ED
  counttomark dup dup cvi eq not {exch pop} if
  /m exch def /n m 2 div cvi def
  n {exch % swap x y
     y mul m 1 roll x mul m 1 roll
     /m m 2 sub
     def } repeat>
\makeatother

\begin{document}
\psset{yunit=1.5cm, xunit=3cm}
\begin{pspicture}(-0.5,-2)(1.25,2)
 \psaxes{->}(0,0)(-0.5,-2)(1.25,2)
 \listplot[showpoints,plotstyle=curve]{\henon}
\end{pspicture}
\end{document}