{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "" -1 256 "" 1 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 1 10 0 0 0 0 0 2 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 0 }{CSTYLE "" -1 259 "" 1 10 0 
0 0 0 0 2 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "T
imes" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 
2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 
4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 
0 8 2 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Cour
ier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 
2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {SECT 1 {PARA 3 "" 0 "" {TEXT -1 18 "N\351gysz\366g\373 toroid
ok" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;with(plots):" 
}}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been
 redefined\n" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 6 "Adatok" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 203 "d:=10:  # gy\373r\373 sugara\nr:=4
:   # keresztmetszet sugara\np:=10:   # gy\373r\373 egy sor\341ban l
\351v\365 lapjainak sz\341ma\nq:=6:   # keresztmetszet lapjainak sz
\341ma\nf:=2*Pi/p: ;\ng:=2*Pi/q: dg:=0:  # vagy dg:=g/2: aj\341nlott\n
" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 10 "Sz\341m\355t\341sok" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 189 "for i from 0 to p  do\n for
 j from 0 to q  do\n    n[i,j]:=[evalhf((d+r*cos(j*g+dg))*cos(i*f)),\n
             evalhf((d+r*cos(j*g+dg))*sin(i*f)),\n             evalhf(
r*sin(j*g+dg))]:\n  od;\nod;" }{TEXT -1 39 "( A 0. \351s a p. ill. q. \+
pont egybeesik.)" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 11 "Toroid rajz
" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "negyzet:=[seq(seq([n[i,j
],n[i+1,j],n[i+1,j+1],n[i,j+1]],\n          i=0..p-1),j=0..q-1)]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "polygonplot3d(negyzet,scalin
g= constrained);" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 13 "" 1 "" 
{TEXT -1 0 "" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 27 "Kontroll rajz t
ubeplottal:\n" }{TEXT 256 0 "" }{TEXT 257 51 "\311rdekes megeml\355ten
i, hogy a tubeplot utas\355t\341s csak " }{TEXT 258 4 "p>4-" }{TEXT 
259 28 " esetben  ad helyes rajzot. " }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 87 "tubeplot([d*sin(s),d*cos(s),0],s=0..2*Pi,radius=r,gri
d=[p+1,q+1],scaling=constrained); " }{TEXT -1 33 "# A k\351t rajz dg=0
 esetben azonos." }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "VRML f\341jl" }}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 123 "with(plottools):\nvrml( polygonplot3d(negyze
t,scaling= constrained), `44T10_6.wrl`,\n     background_color=COLOR(R
GB,0,1,1));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}}
{MARK "0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 
1 1 }