{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 }{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(PDEtools);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "eq1:=D*diff(u(x),x,x)-V*diff
(u(x),x)=0; general_solution:=dsolve(\{eq1\},u(x));" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 49 "dsolve(\{eq1,D(u)(0)=-B,D(u)(L)+E*u(L)=0
\},\{u(x)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "eq2:=D*dif
f(u(x),x,x)-k*u(x)=0; general_solution:=dsolve(\{eq2\},u(x));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "dsolve(\{eq2,D(u)(0)=-B,D(u)
(L)+E*u(L)=0\},\{u(x)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f:=unap
ply(rhs(%),x,k,D,B,E,L);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 
"f(x,1,1,1,1,1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f(x,4,1
,1,1,1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot(f(x,4,1,1,1,1),x=0..1
);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f(x,1,100,1,1,1);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plot(f(x,1,100,1,1,1),x=0..1);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "u:=(t,x)->(1/sqrt(t))*exp(-(
x-V*t)^2/(4*D*t));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ut:=D
[1](u);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "uxx:=D[2,2](u);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ux:=D[2](u);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "ut(t,x)-D*uxx(t,x)+V*ux(t,x)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "21" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }