{VERSION 3 0 "IBM INTEL LINUX" "3.0" }
{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 13 "front:=x->-1;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "rear:=x->1;" }}}{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 14 "top:=(x,y)->1;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "bottom:=(x,y)->-1;" }}}{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 23 "#left_normal
 = [-1,0,0]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "#right_norma
l = [1, 0,0]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "#front_norm
al = [front_x,-1,0]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "#rea
r_normal = [-rear_x, 1, 0]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
33 "#top_normal = [-top_x, -top_y, 1]" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "#bottom_normal = [bottom_x, bottom_y, -1]" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "# notation top_x is partial top/par
tial x = diff(top(x,y),x)" }}}}{MARK "21 0 0" 60 }{VIEWOPTS 1 1 0 1 1 
1803 }