{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(geom3d):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "plot3d(\{[x,(1/2)*x,(x-6)/3]
,[x,y,(2*x+y-5)/2]\}, x=-12..13, y=-7..7);" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 180 "point(o,t,1/2*t,-2+t/3):\nplane(p,2*x+y-2*z=5,[x,y
,z]):\nd :=distance(o,p):\nans := [solve(d=7,t)]:\nfor i to nops(ans) \+
do\n   ans := subsop(i=subs(t=op(i,ans),coordinates(o)),ans);\nod:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "ans;" }}}}{MARK "4" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }