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
79
|
% ...... start of pictex file generated by FastPicTeX ......
\beginpicture
% ...... macros for errorbars ......
\newcommand{\putxerrorbar}[3]{%
\dimen0=\Xdistance{#1} \dimen1=\Ydistance{#2} \dimen2=\Xdistance{#3}
\unitlength=1pt \setdimensionmode
\dimen3=\dimen0 \advance \dimen3 by -\dimen2
\dimen4=\dimen0 \advance \dimen4 by \dimen2
\dimen5=\dimen1 \advance \dimen5 by -1mm
\dimen6=\dimen1 \advance \dimen6 by 1mm
\putrule from {\dimen3} {\dimen1} to {\dimen4} {\dimen1}
\putrule from {\dimen3} {\dimen5} to {\dimen3} {\dimen6}
\putrule from {\dimen4} {\dimen5} to {\dimen4} {\dimen6}
\setcoordinatemode }
\newcommand{\putyerrorbar}[3]{%
\dimen0=\Xdistance{#1} \dimen1=\Ydistance{#2} \dimen2=\Ydistance{#3}
\unitlength=1pt \setdimensionmode
\dimen3=\dimen1 \advance \dimen3 by -\dimen2
\dimen4=\dimen1 \advance \dimen4 by \dimen2
\dimen5=\dimen0 \advance \dimen5 by -1mm
\dimen6=\dimen0 \advance \dimen6 by 1mm
\putrule from {\dimen0} {\dimen3} to {\dimen0} {\dimen4}
\putrule from {\dimen5} {\dimen3} to {\dimen6} {\dimen3}
\putrule from {\dimen5} {\dimen4} to {\dimen6} {\dimen4}
\setcoordinatemode }
\setcoordinatesystem units <0.075cm,0.0375cm> point at 0 0
\setplotarea x from 20 to 100, y from 80 to 240
% .......... axis ............
\axis bottom label {time (years)} ticks numbered from 20 to 100 by 20 /
\axis left label {\stack{b,l,o,o,d, , ,p,r,e,s,s,u,r,e}} ticks numbered from 80 to 240 by 40 /
% .......... heading ............
\plotheading {\bf Blood Pressure With Increasing Age}
% .......... series .............
\setlinear
\setsolid
\plot 25 120 30 135 35 156 40 165 45 175 50 190 60 203 70 196 80 210 90 203 /
\setsolid
\putyerrorbar{25}{120}{12}
\put {} [b] <0mm,0.5\baselineskip> at 25 132
\putyerrorbar{30}{135}{13}
\put {} [b] <0mm,0.5\baselineskip> at 30 148
\putyerrorbar{35}{156}{15}
\put {} [b] <0mm,0.5\baselineskip> at 35 171
\putyerrorbar{40}{165}{16}
\put {} [b] <0mm,0.5\baselineskip> at 40 181
\putyerrorbar{45}{175}{17}
\put {} [b] <0mm,0.5\baselineskip> at 45 192
\putyerrorbar{50}{190}{19}
\put {} [b] <0mm,0.5\baselineskip> at 50 209
\putyerrorbar{60}{203}{20}
\put {*} [b] <0mm,0.5\baselineskip> at 60 223
\putyerrorbar{70}{196}{20}
\put {*} [b] <0mm,0.5\baselineskip> at 70 216
\putyerrorbar{80}{210}{21}
\put {*} [b] <0mm,0.5\baselineskip> at 80 231
\putyerrorbar{90}{203}{18}
\put {*} [b] <0mm,0.5\baselineskip> at 90 221
\put {$\bullet$} at 25 120
\put {} [b] <0mm,0.5\baselineskip> at 25 120
\put {$\bullet$} at 30 135
\put {} [b] <0mm,0.5\baselineskip> at 30 135
\put {$\bullet$} at 35 156
\put {} [b] <0mm,0.5\baselineskip> at 35 156
\put {$\bullet$} at 40 165
\put {} [b] <0mm,0.5\baselineskip> at 40 165
\put {$\bullet$} at 45 175
\put {} [b] <0mm,0.5\baselineskip> at 45 175
\put {$\bullet$} at 50 190
\put {} [b] <0mm,0.5\baselineskip> at 50 190
\put {$\bullet$} at 60 203
\put {} [b] <0mm,0.5\baselineskip> at 60 203
\put {$\bullet$} at 70 196
\put {} [b] <0mm,0.5\baselineskip> at 70 196
\put {$\bullet$} at 80 210
\put {} [b] <0mm,0.5\baselineskip> at 80 210
\put {$\bullet$} at 90 203
\put {} [b] <0mm,0.5\baselineskip> at 90 203
\endpicture
% ...... end of pictex file generated by FastPicTeX ......
|