NeXT TypedStream Data | 1991-04-16 | 574KB | 21,552 lines
typedstream
PrintInfo
Object
*fffffcsiii*s***i
Letter$$$$
Local_Printer
NeXT 400 dpi Laser Printer
antipode
GraphicView
Responder
TextGraphic
Graphic
ffffs
ciifffcfffs
[63c]{\rtf0\ansi{\fonttbl\f1\fswiss Helvetica;}
\margl40
\margr40
[38@]
[135c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 MODELS OF DISPERSION, DIFFUSION AND TRANSPORT}
[529c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 Figure 3}
{\f0\fs24\fi0\li0\ql\gray0 . Analytic solutions to the dispersion-advection equation simulate the dispersion and transport of, for instance, polutants with initial concentration C}
{\f0\fs24\fi0\li0\ql\gray0 \dn8 o}
{\f0\fs24\fi0\li0\ql\gray0 through an aquifer. Contours\
are drawn at intervals of C}
{\f0\fs24\fi0\li0\ql\gray0 \dn8 o}
{\f0\fs24\fi0\li0\ql\gray0 /15. a) One finite source b) Two finite sources at two times. }
[91c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 }
[162c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 Figure 3. }
{\f0\fs24\fi0\li0\ql\gray0 Multidimensional }
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 y}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 y}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 x}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 y}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 x}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 x}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 y}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 y}
{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 x}
[124c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\fs16\fi0\li0\ql\gray0 C}
{\f0\fs16\fi0\li0\ql\gray0 \dn8 o}
[126c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\fs18\fi0\li0\ql\gray0 C=C}
{\f0\fs18\fi0\li0\ql\gray0 \dn8 o}
[233c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 t=t}
{\f0\b\fs22\fi0\li0\ql\gray0 \dn8 2}
{\f0\b\fs22\fi0\li0\ql\gray0 }
{\f0\b\fs24\fi0\li0\ql\gray0 > t}
{\f0\b\fs22\fi0\li0\ql\gray0 \dn8 1}
[130c]{\rtf0\ansi{\fonttbl\f0\froman Times;}
\margl40
\margr40
{\f0\b\fs24\fi0\li0\ql\gray0 t=t}
{\f0\b\fs22\fi0\li0\ql\gray0 \dn8 1}
[93c]{\rtf0\ansi{\fonttbl\f1\froman Times;}
\margl40
\margr40
{\f1\b\fs24\fi0\li0\ql\gray0 (b)}
{\rtf0\ansi{\fonttbl\f1\froman Times;}
\margl40
\margr40
{\f1\b\fs24\fi0\li0\ql\gray0 (a)}
[90c]{\rtf0\ansi{\fonttbl\f1\froman Times;}
\margl40
\margr40
{\f1\fs22\fi0\li0\ql\gray0 }
PSGraphic
ffffi
[129452c]%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 0 0 282 282
%%Creator: Mathematica
%%Title: Clipboard
%%CreationDate: Never Never
%%EndComments
50 dict begin
/Mnodistort true def
/pageDashArray [4] def
/nullDashArray [] def
% Compute the minimum of two numbers.
/Mmin { % p q Mmin min(p,q)
2 copy % p q p q
gt % p q p>q?
{ exch } if % min(p,q) max(p,q)
pop % min(p,q)
} bind def
% Compute the maximum of two numbers.
/Mmax { % p q Mmax max(p,q)
2 copy % p q p q
lt % p q p<q?
{ exch } if % max(p,q) min(p,q)
pop % max(p,q)
} bind def
/Mpstart {
MathPictureStart
} bind def
/Mpend {
MathPictureEnd
} bind def
/Mscale {
0 1 0 1
5 -1 roll
MathScale
} bind def
/Plain
/Courier findfont
/Bold
/Courier-Bold findfont
/Italic
/Courier-Oblique findfont
/MathPictureStart {
gsave
newpath
/Mtmatrix
matrix currentmatrix
Plain
Mfontsize scalefont
setfont
0 setgray 0 setlinewidth
} bind def
/MathPictureEnd {
grestore
} bind def
/Mdot {
moveto
0 0 rlineto
stroke
} def
/Mtetra {
moveto
lineto
lineto
lineto
fill
} def
/Metetra {
moveto
lineto
lineto
lineto
closepath
gsave
fill
grestore
0 setgray
stroke
} def
/Mistroke {
flattenpath
0 0 0
4 2 roll
pop pop
4 -1 roll
2 index
sub dup mul
4 -1 roll
2 index
sub dup mul
add sqrt
4 -1 roll
3 1 roll
stop
stop
pathforall
pop pop
currentpoint
stroke
moveto
currentdash
3 -1 roll
setdash
} def
/Mfstroke {
stroke
currentdash
pop 0
setdash
} def
/Msboxa {
newpath
5 -1 roll
Mvboxa
6 -1 roll
5 -1 roll
4 -1 roll
Msboxa1
5 -3 roll
Msboxa1
7 -2 roll
[ 2 index 2 index
10 -1 roll
9 -1 roll
6 1 roll
5 -2 roll
} bind def
/Msboxa1 {
2 div
2 index
1 add
3 -1 roll
-1 add
3 -1 roll
} bind def
/Mvboxa {
gsave
newpath
[ true
3 -1 roll
Mbbox
5 -1 roll
5 1 roll
7 -1 roll
exch sub
(m) stringwidth pop
.3 mul
7 1 roll
6 -1 roll
4 -1 roll
Mmin
3 -1 roll
5 index
5 -1 roll
4 -1 roll
Mmax
4 -1 roll
ifelse
false
forall
{ stop } if
counttomark
1 add
4 roll
grestore
} bind def
/Mbbox {
0 0 moveto
false charpath
flattenpath
pathbbox
newpath
} bind def
/Mmin {
2 copy
{ exch } if
} bind def
/Mmax {
2 copy
{ exch } if
} bind def
/Mshowa {
4 -2 roll
moveto
2 index
Mtmatrix setmatrix
Mvboxa
7 1 roll
6 -1 roll
5 -1 roll
4 -1 roll
Mshowa1
4 1 roll
Mshowa1
rmoveto
currentpoint
4 index length
-1 add
2 index
4 index
2 index
3 index
moveto
4 index
exch get
show
} for
pop pop pop pop
Mgmatrix setmatrix
} bind def
/Mshowa1 {
2 copy
4 1 roll
-2 div
} bind def
/MathScale {
Mwidth
Mheight
translate
scale
/Mgmatrix
matrix currentmatrix
/Msaveaa exch def
/Msavebb exch def
/Msavecc exch def
/Msavedd exch def
} bind def
/Mlp {
3 copy
Mlpfirst
Mnodistort
Mmin
} if
4 index
2 index
2 index
Mlprun
11 index
11 -1 roll
10 -4 roll
Mlp1
8 index
9 -5 roll
Mlp1
4 -1 roll
{ exit } if
3 -1 roll
pop pop
} loop
exch
3 1 roll
7 -3 roll
pop pop pop
} bind def
/Mlpfirst {
3 -1 roll
dup length
2 copy
-2 add
aload
pop pop pop
4 -2 roll
-1 add
aload
pop pop pop
6 -1 roll
3 -1 roll
5 -1 roll
dup /MsaveAx exch def
4 1 roll
exch sub
dup /MsaveAy exch def
} bind def
/Mlprun {
2 copy
4 index
0 get
4 1 roll
Mlprun1
3 copy
8 -2 roll
9 -1 roll
3 copy
Mlprun1
3 copy
11 -3 roll
/gt Mlpminmax
8 3 roll
11 -3 roll
/lt Mlpminmax
8 3 roll
} forall
pop pop pop pop
3 1 roll
pop pop
aload pop
5 -1 roll
aload pop
exch
6 -1 roll
Mlprun2
8 2 roll
4 -1 roll
Mlprun2
6 2 roll
3 -1 roll
Mlprun2
4 2 roll
exch
Mlprun2
6 2 roll
} bind def
/Mlprun1 {
aload pop
exch
6 -1 roll
5 -1 roll
mul add
4 -2 roll
3 -1 roll
} bind def
/Mlprun2 {
2 copy
add 2 div
3 1 roll
exch sub
} bind def
/Mlpminmax {
2 index
6 index
2 index
exec
7 -3 roll
4 -1 roll
} if
1 index
5 index
3 -1 roll
exec
4 1 roll
5 -1 roll
aload
pop pop
4 -1 roll
aload pop
8 -2 roll
5 -2 roll
6 -2 roll
5 -1 roll
4 1 roll
pop pop pop
} ifelse
} bind def
/Mlp1 {
5 index
3 index sub
5 index
2 index mul
1 index
1 index
0 le
1 index
3 index div
.99999 mul
8 -1 roll
7 1 roll
8 -1 roll
2 div
7 -2 roll
pop sub
5 index
6 -3 roll
pop pop
mul sub
exch
} bind def
/Mfontsize 12 def
/Mleft 0.000000 def
/Mbottom 282.000000 def
/Mwidth 282.000000 def
/Mheight 282.000000 def
currentscreen 3 1 roll pop pop 400.0000 45.0000 3 -1 roll setscreen