{VERSION 5 0 "IBM INTEL LINUX" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 14 0 
0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R
3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 
0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 
257 1 {CSTYLE "" -1 -1 "Courier" 1 14 0 0 0 0 2 2 2 0 0 0 0 0 0 1 }0 
0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "sphere:=plot3d(\{[cos(t)*co
s(u),sin(t)*cos(u),1+sin(u)]\},\nt=0..2*Pi,u=-Pi/2..Pi/2,\nscaling=con
strained,style=patchnogrid,color=1+sin(u),grid=[100,100]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "plane:=plot3d(\{[r*cos(u),r*sin(u)
,0]\},r=0..3,u=0..2*Pi,\nscaling=constrained,style=patchnogrid,color=(
r^2)/(r^2+4),\ngrid=[100,100]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 65 "line:=spacecurve([t,t,2-2*t],t=-.1..1.5,color=black,thickness=
3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "display(\{sphere,pla
ne,line\},\naxes=none,orientation=[105,65]);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 5 }{VIEWOPTS 1 1 0 1 1 1803 
1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }