{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{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 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "front:=x->sqrt(x);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "rear:=x->1;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "left:=0; right:=1;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "n:=21;m:=9;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "top:=(x,y)->1-y;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "bottom:=(x,y)->0;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "xstep:=i->left+i*(right-left)/n;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 67 "ystep:=(i,j)->front(xstep(i))+j*(rear(xstep(
i))-front(xstep(i)))/m;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "
Top:=[seq([seq([xstep(i), evalf(ystep(i,j)), evalf(top(xstep(i),ystep(
i,j)))],j=0..m)],i=0..n)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
102 "Bottom:=[seq([seq([xstep(i), evalf(ystep(i,j)), evalf(bottom(xste
p(i),ystep(i,j)))],j=0..m)],i=0..n)]:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 152 "Front:=[seq([[xstep(i), evalf(ystep(i,0)), evalf(bot
tom(xstep(i),ystep(i,0)))],[xstep(i), evalf(ystep(i,0)), evalf(top(xst
ep(i),ystep(i,0)))]],i=0..n)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 151 "Rear:=[seq([[xstep(i), evalf(ystep(i,m)), evalf(bottom(xstep(
i),ystep(i,m)))],[xstep(i), evalf(ystep(i,m)), evalf(top(xstep(i),yste
p(i,m)))]],i=0..n)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "Le
ft:=[[seq([xstep(0), evalf(ystep(0,j)), evalf(bottom(xstep(0),ystep(0,
j)))],j=0..m)],[seq([xstep(0), evalf(ystep(0,j)), evalf(top(xstep(0),y
step(0,j)))],j=0..m)]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 
"Right:=[[seq([xstep(n), evalf(ystep(n,j)), evalf(bottom(xstep(n),yste
p(n,j)))],j=0..m)],[seq([xstep(n), evalf(ystep(n,j)), evalf(top(xstep(
n),ystep(n,j)))],j=0..m)]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
77 "PLOT3D(MESH(Top),MESH(Bottom),MESH(Front),MESH(Rear),MESH(Left),ME
SH(Right));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "
15 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }