{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1301 "restart: with(plot
s):with(plottools):\nr:=4:  \nx:=(r+cos(v))*cos(u):\ny:=(r+cos(v))*sin
(u):\nz:=sin(v)*sqrt((Pi-abs(u))/Pi):\ngsz0:=plot3d([x,y,z],u=-Pi..Pi,
v=u/2-Pi/2..u/2+Pi/2,grid=[25,2],scaling=constrained):\ngsz1:=plot3d([
x,y,z],u=-Pi..Pi,v=u/2+Pi/2..u/2+3*Pi/2,grid=[25,7],scaling=constraine
d):\ngsz1b:=plot3d([x,y,sin(v)],u=-Pi..Pi,v=u/2+Pi/2..u/2+3*Pi/2,grid=
[25,7],scaling=constrained):\ngsz2b:=plot3d([x,y,sin(v)],u=-Pi..Pi,v=u
/2-Pi/2..u/2+Pi/2,grid=[25,7],scaling=constrained):\n\ngsz2:=plot3d([x
,y,z],u=-Pi..Pi,v=u/2-Pi/2..u/2+Pi/2,grid=[25,7],scaling=constrained):
\ngsz12:=plot3d([x,y,z],u=-Pi..Pi,v=u/2-Pi/2..u/2+3*Pi/2,grid=[25,13],
scaling=constrained):\nv1:=u/2+Pi/2:\nx1:=(r+cos(v1))*cos(u):\ny1:=(r+
cos(v1))*sin(u):\nz1:=sin(v1)*sqrt((Pi-abs(u))/Pi):\n# z1:=sin(v1): # \+
a nem lap\355tott v\341ltozathoz\nvonal1:=tubeplot([x1,y1,z1],u=-Pi..P
i,radius=0.1,\ngrid=[25,5],scaling=CONSTRAINED, color=BLACK,  style=PA
TCHNOGRID):\nv2:=u/2-Pi/2:\nx2:=(r+cos(v2))*cos(u):\ny2:=(r+cos(v2))*s
in(u):\nz2:=+sin(v2)*sqrt((Pi-abs(u))/Pi):\n# z2:=sin(v2): # a nem lap
\355tott v\341ltozathoz\nvonal2:=tubeplot([x2,y2,z2],u=-Pi..Pi,radius=
0.1,\ngrid=[25,5],scaling=CONSTRAINED, color=BLACK,  style=PATCHNOGRID
):\ntorusz:=tubeplot([r*cos(v),r*sin(v),0],v=0..2*Pi,radius=0.9\n,grid
=[25,13],scaling=CONSTRAINED, color=GREY,  style=patchnogrid):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 234 "display3d(gsz0,vonal1,vonal
2,orientation=[150,70]);\nvrml(display3d(gsz0,vonal1,vonal2,color=yell
ow,style=PATCHNOGRID,orientation=[147,73]),`gsz0v.wrl`,background_colo
r=COLOR(RGB,0,1,1), shininess=0.5, specular_color=COLOR(RGB,1,1,1)):" 
}{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "gsz0;" }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "gsz1b;" }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "gsz1;" }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "gsz12;" }
{TEXT -1 0 "" }}}}{MARK "0 0 0" 33 }{VIEWOPTS 1 1 0 1 1 1803 }