{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 
0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 257 1 {CSTYLE "" -1 -1 "Tim
es" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots);" }{TEXT -1 0 "" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 122 "The following is the graph of the
 fundamental solution of diffusion equation in 1-d, with diffusion con
stant D=1, and M=10" }}{PARA 256 "" 0 "" {XPPEDIT 18 0 "f(t,x) = 10*ex
p(-x^2/(4*Pi*t))/sqrt(4*Pi*t);" "6#/-%\"fG6$%\"tG%\"xG*(\"#5\"\"\"-%$e
xpG6#,$*&F(\"\"#*(\"\"%F+%#PiGF+F'F+!\"\"F5F+-%%sqrtG6#*(F3F+F4F+F'F+F
5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 76 "plot3d(10*exp(-x^2/(4*t))/(sqrt(4*Pi*t)), x=-5..5, \+
t=0.01..0.2, axes=boxed);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 107 "plot3d(10*exp(-x^2/(4*t))/(sqrt(4*Pi*t)), x=-5..5, t
=0.1..2, style=patchnogrid,grid =[50, 50], axes=boxed);" }{TEXT -1 0 "
" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "densityplot(10
*exp(-x^2/(4*t))/(sqrt(4*Pi*t)), x=-2..2, t=0.01..0.2,numpoints=1600,a
xes=boxed, colorstyle=HUE);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 75 "animate(10*exp(-x^2/(4*t))/(sqrt(4*Pi*t)), x=-2..2,
 t=0.01..0.2,frames=50);" }{TEXT -1 0 "" }}}{EXCHG }{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 113 "plot3d(10*exp(5*t-x^2/(4*t))/(sqrt(4*Pi*t)), \+
x=-2..2, t=0.01..0.6, style=patchnogrid,grid =[50, 50], axes=boxed);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 116 "densityplot(10*exp(0.5*t
-x^2/(4*t))/(sqrt(4*Pi*t)), x=-2..2, t=0.01..0.6,numpoints=1600,axes=b
oxed, colorstyle=HUE);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "a
nimate(10*exp(10*t-x^2/(4*t))/(sqrt(4*Pi*t)), x=-2..2, t=0.01..0.2,fra
mes=50);" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 "animat
e3d(10*exp(-(x^2+y^2)/(4*t))/(4*Pi*t),x=-0.5..0.5, y=-0.5..0.5,t=0.005
..0.2,axes=boxed,style=patchcontour,frames=50);" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 124 "The following is the graph of the fundamental solut
ion of diffusion equation in 2-d, with diffusion constant D=1, and M=1
0, " }{XPPEDIT 18 0 "f(t,x) = 10*exp(5*t-(x^2+y^2)/(4*t))/(4*Pi*t);" "
6#/-%\"fG6$%\"tG%\"xG*(\"#5\"\"\"-%$expG6#,&*&\"\"&F+F'F+F+*&,&*$F(\"
\"#F+*$%\"yGF5F+F+*&\"\"%F+F'F+!\"\"F:F+*(F9F+%#PiGF+F'F+F:" }{TEXT 
-1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "animate3d(10*exp
(5*t-(x^2+y^2)/(4*t))/(4*Pi*t),x=-2..2, y=-2..2,t=0.005..1,axes=boxed,
style=patchcontour,frames=100);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}}{MARK "0 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }