{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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 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 "Maple Output" 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots):with(plottools):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "r:=cos(t);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"rG-%$cosG6#%\"tG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "x:=r*cos(s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"x
G*&-%$cosG6#%\"tG\"\"\"-F'6#%\"sGF*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "y:=r*sin(s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"y
G*&-%$cosG6#%\"tG\"\"\"-%$sinG6#%\"sGF*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "z:=sqrt(1-r^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"zG*$-%%sqrtG6#,&\"\"\"F**$)-%$cosG6#%\"tG\"\"#\"\"\"!\"\"F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "a:=plot3d([x,y,z],s=t..2*Pi-
t,t=0..Pi/2,scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 62 "b:=plot3d([x,y,-z],s=t..2*Pi-t,t=0..Pi/2,scaling=cons
trained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "h:=display(a,b
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "vrml(h,\"f:/data/chua
n/exp99/12/sp-cyl.wrl\",background_color=white,point_light=[0.3,white,
[0,0,0]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1
0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }