{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 16 "with(plottools):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "p:=Pi*2/3;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"pG,$%#PiG#\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "q:=sqrt(3)/2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"qG,$*$-%%sqrtG6#\"\"$\"\"\"#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 42 "w1:=sphere([cos(p),sin(p),0],q,color=red):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "w2:=sphere([cos(2*p),sin(2*p
),0],q,color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "w3:
=sphere([cos(3*p),sin(3*p),0],q,color=blue):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 39 "w4:=sphere([0,0,sqrt(2)],q,color=cyan):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "h:=display(w1,w2,w3,w4,scali
ng=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "vrml(h,
\"f:/data/chuan/exp99/8/4spheres.wrl\",background_color=white);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }