{VERSION 2 3 "IBM INTEL NT" "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 21 "restart: with(plots)
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 374 "escher1:=PLOT3D(POLYG
ONS(\n[[0,0+5*a,20+a],[0,5+5*a,20+a],[5,5+5*a,20+a],[5,0+5*a,20+a]],\n
[[0,0+5*a,20+a],[0,5+5*a,20+a],[0,5+5*a,0+a],[0,0+5*a,0+a]],\n[[0,0+5*
a,0+a],[5,0+5*a,0+a],[5,0+5*a,20+a],[0,0+5*a,20+a]],\n[[5,0+5*a,0+a],[
5,0+5*a,20+a],[5,5+5*a,20+a],[5,5+5*a,0+a]],\n[[5,5+5*a,20+a],[5,5+5*a
,0+a],[0,5+5*a,0+a],[0,5+5*a,20+a]]\n),AXES(NONE),SCALING(CONSTRAINED)
)$a=0..5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "escher1a:=PLO
T3D(POLYGONS(\n[[0,0+5*a,20+a+1],[0,5+5*a,20+a+1],[5,5+5*a,20+a+1],[5,
0+5*a,20+a+1]]\n),AXES(NONE),SCALING(CONSTRAINED))$a=0..5:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 404 "escher2:=PLOT3D(POLYGONS(\n[[5+5*b
,25,26+b],[5+5*b,30,26+b],[10+5*b,30,26+b],[10+5*b,25,26+b]],\n[[5+5*b
,25,26+b],[5+5*b,30,26+b],[5+5*b,30,6+b],[5+5*b,25,6+b]],\n[[5+5*b,30,
26+b],[10+5*b,30,26+b],[10+5*b,30,6+b],[5+5*b,30,6+b]],\n[[10+5*b,30,2
6+b],[10+5*b,25,26+b],[10+5*b,25,6+b],[10+5*b,30,6+b]],\n[[10+5*b,25,2
6+b],[5+5*b,25,26+b],[5+5*b,25,6+b],[10+5*b,25,6+b]]\n),AXES(NONE),SCA
LING(CONSTRAINED))$b=0..5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
422 "escher3:=PLOT3D(POLYGONS(\n[[30,20-5*a,32+a],[30,25-5*a,32+a],[35
,25-5*a,32+a],[35,20-5*a,32+a]],\n[[30,20-5*a,32+a],[30,25-5*a,32+a],[
30,25-5*a,12+a],[30,20-5*a,12+a]],\n[[30,20-5*a,32+a],[35,20-5*a,32+a]
,[35,20-5*a,12+a],[30,20-5*a,12+a]],\n[[35,20-5*a,32+a],[35,25-5*a,32+
a],[35,25-5*a,12+a],[35,20-5*a,12+a]],\n[[35,25-5*a,32+a],[30,25-5*a,3
2+a],[30,25-5*a,12+a],[35,25-5*a,12+a]]\n),AXES(NONE),SCALING(CONSTRAI
NED))$a=0..2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 295 "escher4:=
PLOT3D(POLYGONS(\n[[30,10,35],[25,10,35],[25,15,35],[30,15,35]],\n[[30
,10,35],[25,10,35],[25,10,15],[30,10,15]],\n[[30,10,35],[30,15,35],[30
,15,15],[30,10,15]],\n[[30,15,35],[25,15,35],[25,15,15],[30,15,15]],\n
[[25,10,35],[25,15,35],[25,15,15],[25,10,15]]\n),AXES(NONE),SCALING(CO
NSTRAINED)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "#Maple 9 #A:=30.55: B:=55.5:\nA:=27
: B:=54.6:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 238 "ani1:=seq(
display(\{escher1\} union \{escher2\} union \{escher3\} union \{escher
4\} union \n\{PLOT3D(POLYGONS(\n[[0,0+5*a,20+a+.1],[0,5+5*a,20+a+.1],[
5,5+5*a,20+a+.1],[5,0+5*a,20+a+.1]]\n,COLOR(RGB,1,0,0)),AXES(NONE),SCA
LING(CONSTRAINED))\}\n),a=0..5):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 244 "ani2:=seq(display(\{escher1\} union \{escher2\} unio
n \{escher3\} union \{escher4\} union \n\{PLOT3D(POLYGONS(\n[[5+5*a,25
,26+a+.1],[5+5*a,30,26+a+.1],[10+5*a,30,26+a+.1],[10+5*a,25,26+a+.1]]
\n,COLOR(RGB,1,0,0)),AXES(NONE),SCALING(CONSTRAINED))\}\n),a=0..5):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 246 "ani3:=seq(display(\{esche
r1\} union \{escher2\} union \{escher3\} union \{escher4\} union \n\{P
LOT3D(POLYGONS(\n[[30,20-5*a,32+a+.1],[30,25-5*a,32+a+.1],[35,25-5*a,3
2+a+.1],[35,20-5*a,32+a+.1]]\n,COLOR(RGB,1,0,0)),AXES(NONE),SCALING(CO
NSTRAINED))\}\n),a=0..2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
210 "ani4:=display(\{escher1\} union \{escher2\} union \{escher3\} uni
on \{escher4\} union \n\{PLOT3D(POLYGONS(\n[[30,10,35+.1],[25,10,35+.1
],[25,15,35+.1],[30,15,35+.1]]\n,COLOR(RGB,1,0,0)),AXES(NONE),SCALING(
CONSTRAINED))\}\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "disp
lay(ani1,ani2,ani3,ani4,insequence=true,style=patch,orientation=[A,B])
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1200 "pausa:=[display(\{es
cher1\} union \{escher2\} union \{escher3\} union \{escher4\},orientat
ion=[A,B]),display(\{escher1\} union \{escher2\} union \{escher3\} uni
on \{escher4\},orientation=[A,B]),display(\{escher1\} union \{escher2
\} union \{escher3\} union \{escher4\},orientation=[A,B]),display(\{es
cher1\} union \{escher2\} union \{escher3\} union \{escher4\},orientat
ion=[A,B]),display(\{escher1\} union \{escher2\} union \{escher3\} uni
on \{escher4\},orientation=[A,B]),display(\{escher1\} union \{escher2
\} union \{escher3\} union \{escher4\},orientation=[A,B]),display(\{es
cher1\} union \{escher2\} union \{escher3\} union \{escher4\},orientat
ion=[A,B]),display(\{escher1\} union \{escher2\} union \{escher3\} uni
on \{escher4\},orientation=[A,B]),display(\{escher1\} union \{escher2
\} union \{escher3\} union \{escher4\},orientation=[A,B]),display(\{es
cher1\} union \{escher2\} union \{escher3\} union \{escher4\},orientat
ion=[A,B]),display(\{escher1\} union \{escher2\} union \{escher3\} uni
on \{escher4\},orientation=[A,B]),display(\{escher1\} union \{escher2
\} union \{escher3\} union \{escher4\},orientation=[A,B]),display(\{es
cher1\} union \{escher2\} union \{escher3\} union \{escher4\},orientat
ion=[A,B]),display(\{escher1\} union \{escher2\} union \{escher3\} uni
on \{escher4\},orientation=[A,B])]:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 146 "display(seq(display(\{escher1\} union \{escher2\} union \{esche
r3\} union \{escher4\},orientation=[A+i*10,B]),i=0..36),pausa,style=pa
tch,insequence=true);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0" 559 }
{VIEWOPTS 1 1 0 1 1 1803 }