{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 
"" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 0 14 0 0 0 0 0 
1 0 0 0 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 36 "restart:with(plots):
with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "f:=2*ar
ctan((sqrt(5)-1)/2): evalf(180*f/Pi,3):" }{TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "s:= array[1..6]:szin:=[yellow,blue,
cyan,magenta,green,red]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
157 "sp:= (r,d,ro,a,b) -> tubeplot(\n[(r+d*sin(5*t))*cos(t),(r+d*sin(5
*t))*sin(t),d*cos(5*t)],\nt=0..2*Pi,radius=ro, numpoints=a, tubepoints
=b,scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 
"  sp1:=sp(10,2,  1   , 80,11): # " }{TEXT -1 9 "f\341jln\351v :" }
{TEXT 256 1 " " }{TEXT 258 7 "6sp.wrl" }{MPLTEXT 1 0 34 "\n# sp1:=sp(1
0,0.5,0.4 , 80, 7): # " }{TEXT -1 10 "f\341jln\351v : " }{TEXT 257 8 "
6sp2.wrl" }{MPLTEXT 1 0 34 "\n# sp1:=sp(10,3  ,0.75,120, 7): # " }
{TEXT -1 10 "f\341jln\351v : " }{TEXT 256 9 "2sp3.wrl " }{TEXT -1 3 " \+
\351s" }{TEXT 265 10 "  6sp3.wrl" }{MPLTEXT 1 0 34 "\n# sp1:=sp(10,7  \+
,0.3 ,150, 7): # " }{TEXT -1 10 "f\341jln\351v : " }{TEXT 256 9 "2sp4.
wrl " }{TEXT -1 3 " \351s" }{TEXT 257 10 "  6sp4.wrl" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 174 "s[1]:=rotate(sp1,0,0,Pi):\ns[2]:=rotate(
sp1,0,f,0):\ns[3]:=rotate(s[2],0,0,2*Pi/5):\ns[4]:=rotate(s[2],0,0,4*P
i/5):\ns[5]:=rotate(s[2],0,0,6*Pi/5):\ns[6]:=rotate(s[2],0,0,8*Pi/5):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "spiral:=seq(plots[displ
ay](s[i],color=szin[i]),i=1..6):" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 36 "display(spiral,scaling=CONSTRAINED);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 254 "vrml(display(spiral,scaling
=CONSTRAINED),\n    `6sp.wrl`, background_color=COLOR(RGB,0,1,1), shin
iness=0.4, specular_color=COLOR(RGB,0.5,0.4,0.5),\ndirectional_light=[
1.0, COLOR(RGB,1,0,1), [0,0, 15]],\ndirectional_light=[1.0, COLOR(RGB,
1,0,1), [0,0,-15]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}}{MARK "4 0 0" 30 }{VIEWOPTS 1 0 1 1 1 1803 }