{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 Outpu
t" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 
0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Map
le 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 424 "restart: with(plots
): with(plottools):\nx:=3*cos(Pi*t)+1/(1+10*t^2):\ny:=2*sin(Pi*t)*(1-t
^2)^5:\nr:=0.5*(1+sin(Pi*t/2)*sqrt(1-t^2)):\nbal :=tubeplot([x,y,0],t=
-1..-0.8,\n      radius=r,numpoints=5,tubepoints=13,\n        scaling=
CONSTRAINED,\n        orientation=[-160,70]):\njobb:=tubeplot([x,y,0],
t=-0.8..1,\n      radius=r,numpoints=37,tubepoints=13,\n        scalin
g=CONSTRAINED,\n        orientation=[-120,60]):\ndisplay(bal,jobb);" }
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 120 "vrml(display(bal,jobb),`kancso.wrl`,\nbackgroun
d_color=COLOR(RGB,0,1,1), shininess=0.3, specular_color=COLOR(RGB,1,1,
1)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 146 "vrml(display(bal,j
obb,color=YELLOW,style=PATCH),\n`kancso2.wrl`,background_color=COLOR(R
GB,0,0,1), shininess=0.5, specular_color=COLOR(RGB,1,1,1)):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 169 "midpoint := proc(x)\n     l
ocal v, n, g, i;\n     v := [op(x),x[1] ];    n := nops( x );\n     g \+
:= ( a, b) -> 1/2*( a + b ) :\n     [ seq( g( v[i], v[i+1] ), i=1..n)]
;\nend:" }}{PARA 12 "" 1 "" {TEXT -1 0 "" }{MPLTEXT 1 0 180 "rbal :=co
nvert( op(1,bal),POLYGONS):\nrjobb:=convert( op(1,jobb),POLYGONS):\ndi
splay(\{map( midpoint, rbal),\n         map( midpoint,rjobb)\},scaling
=constrained,\n   style=patchnogrid);" }{TEXT -1 0 "" }}{PARA 13 "" 1 
"" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "vrml(di
splay(\{map( midpoint, rbal),\n         map( midpoint,rjobb)\}),`rkanc
so.wrl`,\nbackground_color=COLOR(RGB,0.3,0.3,0.3), shininess=0.5):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 190 "vrml(display(\{map( midpoi
nt, rbal),\n         map( midpoint,rjobb)\},color=YELLOW,style=PATCH),
`rkancso2.wrl`,\nshininess=0.5,specular_color=COLOR(RGB,1,1,1),backgro
und_color=COLOR(RGB,0,1,1)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "7" 0 }{VIEWOPTS 1 1 0 1 1 1803 }