{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 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
258 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 1 12 0 0 
0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 1 12 0 0 0 0 0 0 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 }{PSTYLE "Heading 1" 0 3 
1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 
0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 0 
0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 8 2 0 0 0 0 0 0 -1 0 }{PSTYLE "" 3 
256 1 {CSTYLE "" -1 -1 "" 1 12 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 "" {TEXT 256 31 "M\366bius szalag piros-k
\351k sz\355nnel" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 262 6 "Adatok" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 305 "restart: with(plots):with(p
lottools):\n a:=-1: b:=1: # sz\351less\351g\n c:=0: d:=Pi: # hossz\372
s\341g\n r:=5:        # ker\374let\n emel:=0:     # kiemelked\351s az \+
xy s\355kb\363l\n s1:= MAGENTA: s2:= MAGENTA: # perem sz\355nei \n k:=
1:  # Csavar\341s m\351rt\351ke (M\366bius szalag)\n p:=1:  # Hull\341
mz\341s m\351rt\351ke (Henger pal\341st)\n nev:=`dupla.wrl`:" }}}}
{SECT 1 {PARA 3 "" 0 "" {TEXT 261 8 "Sz\341mol\341s" }}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 871 "racs:=round(36*(d-c)/Pi)+1: vonal:=(b-a)/1
5:\nu:=r*cos(2*t):\nv:=r*sin(2*p*t)/p:\nw:=emel:\ndf:=.03:\nx:= u + f*
sin(k*(t-df))*cos(2*t): \ny:= v + f*sin(k*(t-df))*sin(2*t): \nz:= w + \+
f*cos(k*(t-df)): \n\nxb:= u + a*sin(k*t)*cos(2*t): \nyb:= v + a*sin(k*
t)*sin(2*t):\nzb:= w + a*cos(k*t): \nxj:= u + b*sin(k*t)*cos(2*t): \ny
j:= v + b*sin(k*t)*sin(2*t):\nzj:= w + b*cos(k*t): \nszalag1:=plot3d([
x,y,z],f=a..b,t=c..d,\ngrid=[5,racs],scaling=CONSTRAINED,color=RED): \+
\n\nx:= u + f*sin(k*(t+df))*cos(2*t): \ny:= v + f*sin(k*(t+df))*sin(2*
t): \nz:= w + f*cos(k*(t+df)): \n\nszalag2:=plot3d([x,y,z],f=a..b,t=c+
1.5..d+1.5,\ngrid=[5,racs],scaling=CONSTRAINED,color=BLUE): \n\nvonal1
:=tubeplot(\{[xb,yb,zb]\},t=c..d,radius=vonal,grid=[racs,5],scaling=CO
NSTRAINED, color=s1,  style=PATCHNOGRID):\nvonal2:=tubeplot(\{[xj,yj,z
j]\},t=c..d,radius=vonal,grid=[racs,5],scaling=CONSTRAINED, color=s2, \+
 style=PATCHNOGRID):" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT 257 12 "Megjel
en\355t\351s" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "display3d(sz
alag1,szalag2,vonal1,vonal2,style=PATCH, orientation=[-120,60]);" }
{TEXT -1 0 "" }}}{PARA 4 "" 0 "" {TEXT 258 0 "" }}}{SECT 1 {PARA 256 "
" 0 "" {TEXT -1 0 "" }{TEXT 256 18 "VRML f\341jl k\351sz\355t\351s" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "vrml(display3d(szalag1,szal
ag2,color=COLOR(RGB,0.6,0.5,0),style=PATCHNOGRID),nev, background_colo
r=COLOR(RGB,0,1,1), shininess=0.3, specular_color=COLOR(RGB,1,1,1)):" 
}}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }