{VERSION 6 0 "IBM INTEL LINUX" "6.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 32 "restart: with(plots)
:t0:=time():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "#***** ORIE
NTACION *****#\n\nA:=26.6: B:=54.5:\n\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 1435 "#***** ESCALERA *****#\n\n\nescher1:=PLOT3D(POLYGON
S(\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))$a=0..5:\n\nescher2:=PLOT3D(POLYG
ONS(\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,26+b],[10+5*b,25,26+b],[10+5*b,25,6+b],[10+5*b,30,6+b]],\n
[[10+5*b,25,26+b],[5+5*b,25,26+b],[5+5*b,25,6+b],[10+5*b,25,6+b]]\n))$
b=0..5:\n\nescher3:=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,3
2+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,32+a],[30,25-5*a,12+a],[35,25-5*a,12+a]]\n))$a=0..2:\n\nescher4:=
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)):\n#*****************
****************#\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 813 "#**
*** ANIMACION CON BALDOSA *****#\n\n\nani1:=seq(display(escher1,escher
2,escher3,escher4, \nPLOT3D(POLYGONS(\n[[0,0+5*a,20+a+.01],[0,5+5*a,20
+a+.01],[5,5+5*a,20+a+.01],[5,0+5*a,20+a+.01]]\n),COLOUR(RGB,1,0,0))\n
,orientation=[A,B]),a=0..5):\n\nani2:=seq(display(escher1,escher2,esch
er3,escher4, \nPLOT3D(POLYGONS(\n[[5+5*a,25,26+a+.01],[5+5*a,30,26+a+.
01],[10+5*a,30,26+a+.01],[10+5*a,25,26+a+.01]]\n),COLOUR(RGB,1,0,0))\n
,orientation=[A,B]),a=0..5):\n\nani3:=seq(display(escher1,escher2,esch
er3,escher4,\nPLOT3D(POLYGONS(\n[[30,20-5*a,32+a+.01],[30,25-5*a,32+a+
.01],[35,25-5*a,32+a+.01],[35,20-5*a,32+a+.01]]\n),COLOUR(RGB,1,0,0))
\n,orientation=[A,B]),a=0..2):\n\nani4:=display(escher1,escher2,escher
3,escher4,\nPLOT3D(POLYGONS(\n[[30,10,35+.01],[25,10,35+.01],[25,15,35
+.01],[30,15,35+.01]]\n),COLOUR(RGB,1,0,0))\n,orientation=[A,B]):\n" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "#display(ani1,ani2,ani3,an
i4,scaling=constrained,lightmodel=light4,insequence=true);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "#**********************************
***#\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 238 "#***** PELOTA **
***#\n\nesfera:=[r*sin(rho)*cos(theta),r*sin(rho)*sin(theta),r*cos(rho
)]:\nr:=2.4:\np:=[2.5,2.5,20+r]:\nesfera_d:=plot3d(esfera+p,rho=0..Pi,
theta=0..2*Pi,style=patchnogrid,color=red,light=[75,-60,1,1,1]):\n\n#*
*****************#\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 582 "#*
**** RECORRIDO DE LA PELOTA *****#\n\nrecorrido1:=seq(tubeplot([0,t,-0
.55*t**2+2.95*t]+[2.5,2.5+5*a,20+r+a],t=0..5\n,radius=0.01),a=0..4):\n
\nrecorrido2:=seq(tubeplot([t,0,-0.55*t**2+2.95*t]+[2.5+5*a,2.5+25,20+
r+a+5],t=0..5\n,radius=0.01),a=0..5):\n\nrecorrido3:=seq(tubeplot([0,-
t,-0.55*t**2+2.95*t]+[2.5+30,2.5-5*a+25,20+r+a+5+6],t=0..5\n,radius=0.
01),a=0..2):\n\nrecorrido4:=seq(tubeplot([-t,0,-0.55*t**2+2.95*t]+[2.5
+30-5*a,2.5+25-15,20+r+5+6+3+a]\n,t=0..5,radius=0.01),a=0..0):\n\nreco
rrido5:=tubeplot([25*t,10*t,-15*t**2+30*t]+p,t=0..1\n,radius=0.01):\n
\n#**********************************#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 1649 "pausa:=[\ndisplay(escher1,escher2,escher3,escher4,
\nrecorrido1,recorrido2,recorrido3,recorrido4,recorrido5\n,orientation
=[A,B]),\ndisplay(escher1,escher2,escher3,escher4,\nrecorrido1,recorri
do2,recorrido3,recorrido4,recorrido5\n,orientation=[A,B]),\ndisplay(es
cher1,escher2,escher3,escher4,\nrecorrido1,recorrido2,recorrido3,recor
rido4,recorrido5\n,orientation=[A,B]),\ndisplay(escher1,escher2,escher
3,escher4,\nrecorrido1,recorrido2,recorrido3,recorrido4,recorrido5\n,o
rientation=[A,B]),\ndisplay(escher1,escher2,escher3,escher4,\nrecorrid
o1,recorrido2,recorrido3,recorrido4,recorrido5\n,orientation=[A,B]),\n
display(escher1,escher2,escher3,escher4,\nrecorrido1,recorrido2,recorr
ido3,recorrido4,recorrido5\n,orientation=[A,B]),\ndisplay(escher1,esch
er2,escher3,escher4,\nrecorrido1,recorrido2,recorrido3,recorrido4,reco
rrido5\n,orientation=[A,B]),\ndisplay(escher1,escher2,escher3,escher4,
\nrecorrido1,recorrido2,recorrido3,recorrido4,recorrido5\n,orientation
=[A,B]),\ndisplay(escher1,escher2,escher3,escher4,\nrecorrido1,recorri
do2,recorrido3,recorrido4,recorrido5\n,orientation=[A,B]),\ndisplay(es
cher1,escher2,escher3,escher4,\nrecorrido1,recorrido2,recorrido3,recor
rido4,recorrido5\n,orientation=[A,B]),\ndisplay(escher1,escher2,escher
3,escher4,\nrecorrido1,recorrido2,recorrido3,recorrido4,recorrido5\n,o
rientation=[A,B]),\ndisplay(escher1,escher2,escher3,escher4,\nrecorrid
o1,recorrido2,recorrido3,recorrido4,recorrido5\n,orientation=[A,B]),\n
display(escher1,escher2,escher3,escher4,\nrecorrido1,recorrido2,recorr
ido3,recorrido4,recorrido5\n,orientation=[A,B]),\ndisplay(escher1,esch
er2,escher3,escher4,\nrecorrido1,recorrido2,recorrido3,recorrido4,reco
rrido5\n,orientation=[A,B])\n]:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
204 "\n#display(seq(display(escher1,escher2,escher3,escher4,recorrido1
,recorrido2,recorrido3,recorrido4,recorrid#o5,orientation=[A+i*10,B]),
i=0..36),pausa,lightmodel=light4,scaling=constrained,insequence=true);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 301 "k:=0:\n  \nfor j from 0 to 5 by 0.5 do\n\n  c
entro1[k]:=[0,j,-0.55*(j)**2+2.95*(j)]:\n  centro2[k]:=[j,0,-0.55*(j)*
*2+2.95*(j)]:\n  centro3[k]:=[0,-j,-0.55*(j)**2+2.95*(j)]:\n  centro4[
k]:=[-j,0,-0.55*(j)**2+2.95*(j)]:\n  centro5[k]:=[25*(j/5.0),10*(j/5.0
),-15*(j/5.0)**2+30*(j/5.0)]:\n  \n  k:=k+1;\n  \nod:\nk;  " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "num:=4: #numero de puntos co
n los que 'fabricas' la pelota\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 1100 "esfera_1:=seq(seq(display(escher1,escher2,escher3,e
scher4,\nplot3d(esfera+centro1[a]+[2.5, 2.5+5*b, 22.4+b],\nrho=0..Pi,t
heta=0..2*Pi,style=patchnogrid,color=red,numpoints=num),orientation=[A
,B]\n),a=0..(k-2)),b=0..4):\n\nesfera_2:=seq(seq(display(escher1,esche
r2,escher3,escher4,\nplot3d(esfera+centro2[a]+[2.5+5*b, 2.5+25, 22.4+5
+b],\nrho=0..Pi,theta=0..2*Pi,style=patchnogrid,color=red,numpoints=nu
m),orientation=[A,B]\n),a=0..(k-2)),b=0..5):\n\nesfera_3:=seq(seq(disp
lay(escher1,escher2,escher3,escher4,\nplot3d(esfera+centro3[a]+[2.5+30
, 2.5+25-5*b,22.4+5+6+b],\nrho=0..Pi,theta=0..2*Pi,style=patchnogrid,c
olor=red,numpoints=num),orientation=[A,B]\n),a=0..(k-2)),b=0..2):\n\ne
sfera_4:=seq(seq(display(escher1,escher2,escher3,escher4,\nplot3d(esfe
ra+centro4[a]+[2.5+30-5*b, 2.5+25-15, 22.4+5+6+3+b],\nrho=0..Pi,theta=
0..2*Pi,style=patchnogrid,color=red,numpoints=num),orientation=[A,B]\n
),a=0..(k-2)),b=0..0):\n\nesfera_5:=seq(display(escher1,escher2,escher
3,escher4,\nplot3d(esfera+centro5[10-a]+[2.5, 2.5, 22.4],\nrho=0..Pi,t
heta=0..2*Pi,style=patchnogrid,color=red,numpoints=num),orientation=[A
,B]\n),a=0..(k-2)):\n\n\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
1525 "for i from 0 to 23 do\n  \n  esfera_1_1[i]:=seq(seq(display(esch
er1,escher2,escher3,escher4,\n  plot3d(esfera+centro1[a]+[2.5, 2.5+5*b
, 22.4+b],\n  rho=0..Pi,theta=0..2*Pi,style=patchnogrid,color=red,nump
oints=num),orientation=[A+b+15*i,B]\n  ),a=0..(k-2)),b=0..4):\n\n  esf
era_2_1[i]:=seq(seq(display(escher1,escher2,escher3,escher4,\n  plot3d
(esfera+centro2[a]+[2.5+5*b, 2.5+25, 22.4+5+b],\n  rho=0..Pi,theta=0..
2*Pi,style=patchnogrid,color=red,numpoints=num),orientation=[A+5+b+15*
i,B]\n  ),a=0..(k-2)),b=0..5):\n\n  esfera_3_1[i]:=seq(seq(display(esc
her1,escher2,escher3,escher4,\n  plot3d(esfera+centro3[a]+[2.5+30, 2.5
+25-5*b,22.4+5+6+b],\n  rho=0..Pi,theta=0..2*Pi,style=patchnogrid,colo
r=red,numpoints=num),orientation=[A+5+6+b+15*i,B]\n  ),a=0..(k-2)),b=0
..2):\n\n  esfera_4_1[i]:=seq(seq(display(escher1,escher2,escher3,esch
er4,\n  plot3d(esfera+centro4[a]+[2.5+30-5*b, 2.5+25-15, 22.4+5+6+3+b]
,\n  rho=0..Pi,theta=0..2*Pi,style=patchnogrid,color=red,numpoints=num
),orientation=[A+5+6+3+b+15*i,B]\n  ),a=0..(k-2)),b=0..0):\n\n  esfera
_5_1[i]:=seq(display(escher1,escher2,escher3,escher4,\n  plot3d(esfera
+centro5[10-a]+[2.5, 2.5, 22.4],\n  rho=0..Pi,theta=0..2*Pi,style=patc
hnogrid,color=red,numpoints=num),orientation=[A+5+6+3+1+15*i,B]\n  ),a
=0..(k-2)):\n\n\n  #giro[i]:=display(esfera_1_1[i],esfera_2_1[i],esfer
a_3_1[i],esfera_4_1[i],esfera_5_1[i],\n  #scaling=constrained,lightmod
el=light4,insequence=true):\n\n  #El comentario este de arriba hace qu
e cada vez que bota vaya girando un poco\n  #pero el ordenador peta si
 lo pones\n\n     \nod:\n  " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "giro[25];\ni;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 181 "\n\np
rint(`tiempo`,time()-t0);\ndisplay(esfera_1,esfera_2,esfera_3,esfera_4
,esfera_5,\nscaling=constrained,lightmodel=light4,insequence=true); #,
orientation=[A,B] #,seq(giro[i],i=0..23)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }