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
|
\documentclass[12pt]{article}% Philippe Esperet
\usepackage[noxcolor]{pstricks} % To use the "color" package with PSTricks
\usepackage{multido}
\usepackage{pst-plot}
\definecolor{MyLightGray}{gray}{.93}
\newcommand{\curveA}{\psbezier(1.,10.)(1.333,6.667)(1.333,6.667)(2.,5.)}
\newcommand{\curveB}{\psbezier(2.,5.)(2.4,4.)(2.4,4.)(3.,3.333)}
\newcommand{\curveC}{\psbezier(3.,3.333)(3.429,2.857)(3.429,2.857)(4.,2.5)}
\newcommand{\curveD}{\psbezier(4.,2.5)(4.444,2.222)(4.444,2.222)(5.,2.)}
\newcommand{\curveE}{\psbezier(5.,2.)(5.455,1.818)(5.455,1.818)(6.,1.667)}
\newcommand{\curveF}{\psbezier(6.,1.667)(6.462,1.538)(6.462,1.538)(7.,1.429)}
\newcommand{\curveG}{\psbezier(7.,1.429)(7.467,1.333)(7.467,1.333)(8.,1.25)}
\newcommand{\curveH}{\psbezier(8.,1.25)(8.471,1.176)(8.471,1.176)(9.,1.111)}
\newcommand{\curveI}{\psbezier(9.,1.111)(9.474,1.053)(9.474,1.053)(10.,1.)}
\def\farbe#1{\ifodd#1blue\else red\fi}
\def\draw(#1,#2)(#3,#4)#5{%
\def\rel{%
\begin{pspicture}(#1,#4)(#3,#2) % (x1,y4)(x4,y1)
\pscustom[linecolor=yellow,fillstyle=solid,
fillcolor={\expandafter\farbe{#5}}]{%
\ifcase#5\or\curveA\or\curveB\or\curveC\or\curveD%
\or\curveE\or\curveF\or\curveG\fi
\psline(#1,#4)(#1,#2)} % (x1,y4)(x1,y1)
\end{pspicture}}
\rput[tl]{0}(#1,#2){\rel} % Point is (x1,y1)
\rput[tl]{0}(0,#2){\rel}} % Point is (0,y1)
\pagestyle{empty}
\parindent=0pt
\begin{document}
\psset{unit=2.7em}
\begin{center}
\begin{pspicture}(-.5,-.5)(10.5,10.5)
\SpecialCoor
% Gray rectangle on left
\psframe*[linecolor=lightgray](0,0)(1,10)
% Filling under the curve in more light gray
\pscustom[linestyle=none,fillstyle=solid,fillcolor=MyLightGray]{%
\psplot{1}{10}{10 x div}
\psline(10,0)(1,0)(1,10)}
% Union of curves, in bold (in a group to have a local line width)
{\psset{linewidth=.04}
\curveA\curveB\curveC\curveD\curveE\curveF\curveG\curveH\curveI}
% Drawing of the 14 small surfaces
\draw(1,10)(2.,5.)1 % (1.,10.)(1.333,6.667)(1.333,6.667)(2.,5.)}
\draw(2.,5.)(3.,3.333)2 % (2.,5.)(2.4,4.)(2.4,4.)(3.,3.333)
\draw(3.,3.333)(4.,2.5)3 % (3.,3.333)(3.429,2.857)(3.429,2.857)(4.,2.5)
\draw(4.,2.5)(5.,2.)4 % (4.,2.5)(4.444,2.222)(4.444,2.222)(5.,2.)
\draw(5.,2.)(6.,1.667)5 % (5.,2.)(5.455,1.818)(5.455,1.818)(6.,1.667)
\draw(6.,1.667)(7.,1.429)6 % (6.,1.667)(6.462,1.538)(6.462,1.538)(7.,1.429)
\draw(7.,1.429)(8.,1.25)7 % (7.,1.429)(7.467,1.333)(7.467,1.333)(8.,1.25)
% Vertical lines and labels for n=1 and 3
\multido{\i=1+1}{8}{%
\psline[linestyle=dashed](!\i\space 0)(!\i\space 10 \i\space 1 add div)%
\psline[linestyle=dotted]%
(!1 10 \i\space div)(!\i\space 1 sub 10 \i\space div)}
\uput[d]{0}(1,0){$n=1$}
\uput[d]{0}(3,0){$n=3$}
\psline{<->}(0,10.5)(0,0)(10.5,0) % Axes
\end{pspicture}
\end{center}
\end{document}
|