{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 }{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 }{PSTYLE "Maple Plot
" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 738 "restart: with(plots
):with(plottools):\nr:=6: a:=2: \nx:=(r+a*cos(v))*cos(u):\ny:=(r+a*cos
(v))*sin(u):\nz:=a*sin(v):\ntorusz1:=plot3d([x,y,z],v=0..2*Pi,u=0..2*P
i,grid=[19,37]):\nt:=u/2:\n# Ha t:=0 vagy t:=Pi/2, azaz konstans, -> t
orusz2,torusz3:\n# Ha t:=u, 360 foknyival csavartuk  -> torusz4:\nx:=(
r+a*cos(t)*sin(v)-sin(t)*sin(2*v))*cos(u):\ny:=(r+a*cos(t)*sin(v)-sin(
t)*sin(2*v))*sin(u):\nz:=a*sin(t)*sin(v)+ cos(t)*sin(2*v):\ncsavart:=p
lot3d([x,y,z],v=0..2*Pi,u=0..2*Pi,grid=[19,37]):\nvonal:=tubeplot([r*s
in(u),r*cos(u),0],u=0..2*Pi,\n      radius=0.2,numpoints=37,tubepoints
=5,\n        color=RED,style=PATCHNOGRID):\nd:=Pi/9:\nfor i from 0 by \+
1 to 17 do    f[i]:=plot3d([x,y,z],v=0..2*Pi,u=i*d..(i+0.4)*d ,grid=[3
6,2]):\nod:\nL := [seq(f[i],i=0..17)]:" }{TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 263 "display3d(csavart,vonal,orientatio
n=[150,70],scaling=constrained);\nvrml(display3d(csavart,color=yellow,
style=PATCHNOGRID,scaling=constrained,orientation=[147,73]),`csavartkk
1.wrl`,background_color=COLOR(RGB,0,1,1), shininess=0.5, specular_colo
r=COLOR(RGB,1,1,1)):" }{TEXT -1 0 "" }}{PARA 13 "" 1 "" {TEXT -1 0 "" 
}}}{PARA 13 "" 1 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 43 "display(csavart,vonal,scaling=constrained);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 37 "display(L,vonal,scaling=constrained);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "display(torusz1,vonal,scali
ng=constrained);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 43 "display(torusz2,vonal,scaling=constrained);
" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "display(torusz3,vonal,scaling=constrained);" }}{PARA 
13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "
#display(torusz4,vonal,scaling=constrained);" }}{PARA 13 "" 1 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "#display(to
rusz5,vonal,scaling=constrained);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 75 }
{VIEWOPTS 1 1 0 1 1 1803 }