1 % GNUPLOT: plain TeX with Postscript
5 \def\do##1{\catcode`##1=12\relax}\dospecials
6 \catcode`\{=1\catcode`\}=2\catcode\%=14\relax\special}%
8 \expandafter\ifx\csname GNUPLOTpicture\endcsname\relax
9 \csname newdimen\endcsname\GNUPLOTunit
10 \gdef\GNUPLOTpicture(#1,#2){\vbox to#2\GNUPLOTunit\bgroup
11 \def\put(##1,##2)##3{\unskip\raise##2\GNUPLOTunit
12 \hbox to0pt{\kern##1\GNUPLOTunit ##3\hss}\ignorespaces}%
13 \def\ljust##1{\vbox to0pt{\vss\hbox to0pt{##1\hss}\vss}}%
14 \def\cjust##1{\vbox to0pt{\vss\hbox to0pt{\hss ##1\hss}\vss}}%
15 \def\rjust##1{\vbox to0pt{\vss\hbox to0pt{\hss ##1}\vss}}%
16 \def\stack##1{\let\\=\cr\tabskip=0pt\halign{\hfil ####\hfil\cr ##1\crcr}}%
17 \def\lstack##1{\hbox to0pt{\vbox to0pt{\vss\stack{##1}}\hss}}%
18 \def\cstack##1{\hbox to0pt{\hss\vbox to0pt{\vss\stack{##1}}\hss}}%
19 \def\rstack##1{\hbox to0pt{\vbox to0pt{\stack{##1}\vss}\hss}}%
20 \vss\hbox to#1\GNUPLOTunit\bgroup\ignorespaces}%
21 \gdef\endGNUPLOTpicture{\hss\egroup\egroup}%
24 \GNUPLOTpicture(3600,2376)
26 %!PS-Adobe-2.0 EPSF-2.0
27 %%Title: rand-laplace.tex
28 %%Creator: gnuplot 4.0 patchlevel 0
29 %%CreationDate: Wed Aug 31 12:38:29 2005
31 %%BoundingBox: 0 0 360 237
32 %%Orientation: Landscape
38 /gnulinewidth 5.000 def
39 /userlinewidth gnulinewidth def
51 /N {newpath moveto} bind def
52 /C {setrgbcolor} bind def
53 /f {rlineto fill} bind def
56 /Lshow { currentpoint stroke M
58 /Rshow { currentpoint stroke M
59 dup stringwidth pop neg vshift R show } def
60 /Cshow { currentpoint stroke M
61 dup stringwidth pop -2 div vshift R show } def
62 /UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
63 /hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def
64 /DL { Color {setrgbcolor Solid {pop []} if 0 setdash }
65 {pop pop pop 0 setgray Solid {pop []} if 0 setdash} ifelse } def
66 /BL { stroke userlinewidth 2 mul setlinewidth
67 Rounded { 1 setlinejoin 1 setlinecap } if } def
68 /AL { stroke userlinewidth 2 div setlinewidth
69 Rounded { 1 setlinejoin 1 setlinecap } if } def
70 /UL { dup gnulinewidth mul /userlinewidth exch def
71 dup 1 lt {pop 1} if 10 mul /udl exch def } def
72 /PL { stroke userlinewidth setlinewidth
73 Rounded { 1 setlinejoin 1 setlinecap } if } def
74 /LTw { PL [] 1 setgray } def
75 /LTb { BL [] 0 0 0 DL } def
76 /LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def
77 /LT0 { PL [] 1 0 0 DL } def
78 /LT1 { PL [4 dl 2 dl] 0 1 0 DL } def
79 /LT2 { PL [2 dl 3 dl] 0 0 1 DL } def
80 /LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def
81 /LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def
82 /LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def
83 /LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def
84 /LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def
85 /LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def
86 /Pnt { stroke [] 0 setdash
87 gsave 1 setlinecap M 0 0 V stroke grestore } def
88 /Dia { stroke [] 0 setdash 2 copy vpt add M
89 hpt neg vpt neg V hpt vpt neg V
90 hpt vpt V hpt neg vpt V closepath stroke
92 /Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V
94 hpt neg vpt neg R hpt2 0 V stroke
96 /Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
97 0 vpt2 neg V hpt2 0 V 0 vpt2 V
98 hpt2 neg 0 V closepath stroke
100 /Crs { stroke [] 0 setdash exch hpt sub exch vpt add M
101 hpt2 vpt2 neg V currentpoint stroke M
102 hpt2 neg 0 R hpt2 vpt2 V stroke } def
103 /TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M
104 hpt neg vpt -1.62 mul V
106 hpt neg vpt 1.62 mul V closepath stroke
108 /Star { 2 copy Pls Crs } def
109 /BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M
110 0 vpt2 neg V hpt2 0 V 0 vpt2 V
111 hpt2 neg 0 V closepath fill } def
112 /TriUF { stroke [] 0 setdash vpt 1.12 mul add M
113 hpt neg vpt -1.62 mul V
115 hpt neg vpt 1.62 mul V closepath fill } def
116 /TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
117 hpt neg vpt 1.62 mul V
119 hpt neg vpt -1.62 mul V closepath stroke
121 /TriDF { stroke [] 0 setdash vpt 1.12 mul sub M
122 hpt neg vpt 1.62 mul V
124 hpt neg vpt -1.62 mul V closepath fill} def
125 /DiaF { stroke [] 0 setdash vpt add M
126 hpt neg vpt neg V hpt vpt neg V
127 hpt vpt V hpt neg vpt V closepath fill } def
128 /Pent { stroke [] 0 setdash 2 copy gsave
129 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
130 closepath stroke grestore Pnt } def
131 /PentF { stroke [] 0 setdash gsave
132 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
133 closepath fill grestore } def
134 /Circle { stroke [] 0 setdash 2 copy
135 hpt 0 360 arc stroke Pnt } def
136 /CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def
137 /C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def
138 /C1 { BL [] 0 setdash 2 copy moveto
139 2 copy vpt 0 90 arc closepath fill
140 vpt 0 360 arc closepath } bind def
141 /C2 { BL [] 0 setdash 2 copy moveto
142 2 copy vpt 90 180 arc closepath fill
143 vpt 0 360 arc closepath } bind def
144 /C3 { BL [] 0 setdash 2 copy moveto
145 2 copy vpt 0 180 arc closepath fill
146 vpt 0 360 arc closepath } bind def
147 /C4 { BL [] 0 setdash 2 copy moveto
148 2 copy vpt 180 270 arc closepath fill
149 vpt 0 360 arc closepath } bind def
150 /C5 { BL [] 0 setdash 2 copy moveto
153 2 copy vpt 180 270 arc closepath fill
154 vpt 0 360 arc } bind def
155 /C6 { BL [] 0 setdash 2 copy moveto
156 2 copy vpt 90 270 arc closepath fill
157 vpt 0 360 arc closepath } bind def
158 /C7 { BL [] 0 setdash 2 copy moveto
159 2 copy vpt 0 270 arc closepath fill
160 vpt 0 360 arc closepath } bind def
161 /C8 { BL [] 0 setdash 2 copy moveto
162 2 copy vpt 270 360 arc closepath fill
163 vpt 0 360 arc closepath } bind def
164 /C9 { BL [] 0 setdash 2 copy moveto
165 2 copy vpt 270 450 arc closepath fill
166 vpt 0 360 arc closepath } bind def
167 /C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
169 2 copy vpt 90 180 arc closepath fill
170 vpt 0 360 arc closepath } bind def
171 /C11 { BL [] 0 setdash 2 copy moveto
172 2 copy vpt 0 180 arc closepath fill
174 2 copy vpt 270 360 arc closepath fill
175 vpt 0 360 arc closepath } bind def
176 /C12 { BL [] 0 setdash 2 copy moveto
177 2 copy vpt 180 360 arc closepath fill
178 vpt 0 360 arc closepath } bind def
179 /C13 { BL [] 0 setdash 2 copy moveto
180 2 copy vpt 0 90 arc closepath fill
182 2 copy vpt 180 360 arc closepath fill
183 vpt 0 360 arc closepath } bind def
184 /C14 { BL [] 0 setdash 2 copy moveto
185 2 copy vpt 90 360 arc closepath fill
186 vpt 0 360 arc } bind def
187 /C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
188 vpt 0 360 arc closepath } bind def
189 /Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
190 neg 0 rlineto closepath } bind def
191 /Square { dup Rec } bind def
192 /Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def
193 /S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def
194 /S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def
195 /S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
196 /S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def
197 /S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
198 /S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill
199 exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def
200 /S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def
201 /S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
202 2 copy vpt Square fill
204 /S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def
205 /S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def
206 /S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
208 /S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
210 /S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def
211 /S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
212 2 copy vpt Square fill Bsquare } bind def
213 /S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
214 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def
215 /S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def
216 /D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def
217 /D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def
218 /D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def
219 /D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def
220 /D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def
221 /D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def
222 /D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def
223 /D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def
224 /D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def
225 /D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def
226 /D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def
227 /D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def
228 /D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def
229 /D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def
230 /D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def
231 /D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def
232 /DiaE { stroke [] 0 setdash vpt add M
233 hpt neg vpt neg V hpt vpt neg V
234 hpt vpt V hpt neg vpt V closepath stroke } def
235 /BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M
236 0 vpt2 neg V hpt2 0 V 0 vpt2 V
237 hpt2 neg 0 V closepath stroke } def
238 /TriUE { stroke [] 0 setdash vpt 1.12 mul add M
239 hpt neg vpt -1.62 mul V
241 hpt neg vpt 1.62 mul V closepath stroke } def
242 /TriDE { stroke [] 0 setdash vpt 1.12 mul sub M
243 hpt neg vpt 1.62 mul V
245 hpt neg vpt -1.62 mul V closepath stroke } def
246 /PentE { stroke [] 0 setdash gsave
247 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
248 closepath stroke grestore } def
249 /CircE { stroke [] 0 setdash
250 hpt 0 360 arc stroke } def
251 /Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def
252 /DiaW { stroke [] 0 setdash vpt add M
253 hpt neg vpt neg V hpt vpt neg V
254 hpt vpt V hpt neg vpt V Opaque stroke } def
255 /BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M
256 0 vpt2 neg V hpt2 0 V 0 vpt2 V
257 hpt2 neg 0 V Opaque stroke } def
258 /TriUW { stroke [] 0 setdash vpt 1.12 mul add M
259 hpt neg vpt -1.62 mul V
261 hpt neg vpt 1.62 mul V Opaque stroke } def
262 /TriDW { stroke [] 0 setdash vpt 1.12 mul sub M
263 hpt neg vpt 1.62 mul V
265 hpt neg vpt -1.62 mul V Opaque stroke } def
266 /PentW { stroke [] 0 setdash gsave
267 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
268 Opaque stroke grestore } def
269 /CircW { stroke [] 0 setdash
270 hpt 0 360 arc Opaque stroke } def
271 /BoxFill { gsave Rec 1 setgray fill grestore } def
276 /ColB exch def /ColG exch def /ColR exch def
277 /ColR ColR Fillden mul Fillden sub 1 add def
278 /ColG ColG Fillden mul Fillden sub 1 add def
279 /ColB ColB Fillden mul Fillden sub 1 add def
280 ColR ColG ColB setrgbcolor
283 % PostScript Level 1 Pattern Fill routine
284 % Usage: x y w h s a XX PatternFill
285 % x,y = lower left corner of box to be filled
286 % w,h = width and height of box
287 % a = angle in degrees between lines and x-axis
288 % XX = 0/1 for no/yes cross-hatch
290 /PatternFill { gsave /PFa [ 9 2 roll ] def
291 PFa 0 get PFa 2 get 2 div add PFa 1 get PFa 3 get 2 div add translate
292 PFa 2 get -2 div PFa 3 get -2 div PFa 2 get PFa 3 get Rec
293 gsave 1 setgray fill grestore clip
294 currentlinewidth 0.5 mul setlinewidth
295 /PFs PFa 2 get dup mul PFa 3 get dup mul add sqrt def
296 0 0 M PFa 5 get rotate PFs -2 div dup translate
297 0 1 PFs PFa 4 get div 1 add floor cvi
298 { PFa 4 get mul 0 M 0 PFs V } for
300 0 1 PFs PFa 4 get div 1 add floor cvi
301 { PFa 4 get mul 0 2 1 roll M PFs 0 V } for
303 stroke grestore } def
305 /Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
306 dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
307 currentdict end definefont pop
1030 \put(3037,1863){\rjust{$a=2$}}%
1031 \put(3037,1963){\rjust{$a=1$}}%
1032 \put(1965,2226){\cjust{Laplace Distribution (Two-sided Exponential)}}%
1033 \put(1965,50){\cjust{$x$}}%
1035 \special{ps: gsave currentpoint currentpoint translate
1036 270 rotate neg exch neg exch translate}%
1038 \special{ps: currentpoint grestore moveto}%
1040 \put(3450,200){\cjust{ 5}}%
1041 \put(3153,200){\cjust{ 4}}%
1042 \put(2856,200){\cjust{ 3}}%
1043 \put(2559,200){\cjust{ 2}}%
1044 \put(2262,200){\cjust{ 1}}%
1045 \put(1965,200){\cjust{ 0}}%
1046 \put(1669,200){\cjust{-1}}%
1047 \put(1372,200){\cjust{-2}}%
1048 \put(1075,200){\cjust{-3}}%
1049 \put(778,200){\cjust{-4}}%
1050 \put(481,200){\cjust{-5}}%
1051 \put(400,1917){\rjust{ 0.5}}%
1052 \put(400,1600){\rjust{ 0.4}}%
1053 \put(400,1283){\rjust{ 0.3}}%
1054 \put(400,966){\rjust{ 0.2}}%
1055 \put(400,648){\rjust{ 0.1}}%
1056 \put(400,331){\rjust{ 0}}%