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}
|
