{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 23 "front:=x->-sqrt(1-x^
2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "rear:=x->sqrt(1-x^2)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "left:=-1; right:=1;" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "n:=21;m:=9;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "top:=(x,y)->(sin(x*Pi)+1)/2;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "bottom:=(x,y)->-sqrt(1-x^2-y
^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "xstep:=i->left+i*(r
ight-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(yst
ep(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(xstep(i),ystep(i,j)))],j=0..m)],i=0.
.n)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "Front:=[seq([[xst
ep(i), evalf(ystep(i,0)), evalf(bottom(xstep(i),ystep(i,0)))],[xstep(i
), evalf(ystep(i,0)), evalf(top(xstep(i),ystep(i,0)))]],i=0..n)]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "Rear:=[seq([[xstep(i), eval
f(ystep(i,m)), evalf(bottom(xstep(i),ystep(i,m)))],[xstep(i), evalf(ys
tep(i,m)), evalf(top(xstep(i),ystep(i,m)))]],i=0..n)]:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "Left:=[[seq([xstep(0), evalf(ystep
(0,j)), evalf(bottom(xstep(0),ystep(0,j)))],j=0..m)],[seq([xstep(0), e
valf(ystep(0,j)), evalf(top(xstep(0),ystep(0,j)))],j=0..m)]]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "Right:=[[seq([xstep(n), eva
lf(ystep(n,j)), evalf(bottom(xstep(n),ystep(n,j)))],j=0..m)],[seq([xst
ep(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(B
ottom),MESH(Front),MESH(Rear),MESH(Left),MESH(Right));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "15 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 }