{VERSION 4 0 "SUN SPARC SOLARIS" "4.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 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "#sfb sep 23, 2002; m
odified 6 feb 03" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(pl
ots);with(plottools);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "e
:=exp(1);fun:= 3*(1-x)^2*e^(-x^2-(y+1)^2)\n    - 10*(x/5-x^3-y^5)*e^(-
x^2-y^2) -(1/3)*e^(-(x+1)^2-y^2);xrange:=-3..3;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 39 "fun:=(x^2-1)*(y^2-1);xrange:=-1.5..1.5;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "fun:=x*y*(x+y-3);xrange:=-0.
5..3.5;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "fun:=sin(x)*sin(
y);xrange:=0..2*Pi;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "fstr
ing:=convert(fun,string);ftitle:=\"The good doctor's \"||fstring;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "a:=contourplot(fun,x=xrange,
y=xrange,contours=15):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "b
:=gradplot(fun,x=xrange,y=xrange,arrows=thick):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 46 "display(a,b,scaling=constrained,title=ftitle);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "t:=transform(unapply([x
,y,fun],x,y)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "display(t
(a),t(b),title=ftitle);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "13" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 
1 2 33 1 1 }