{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 "Times" 1 14 0 0 
0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title
" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 
12 12 0 0 0 0 0 0 19 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 
"Helvetica" 1 14 0 0 0 0 2 1 2 0 0 0 0 0 0 }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 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 23 "Three dimensional plots" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 8 "?plot3d;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "?implicitplot3d;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "plot3d(1,x=-5..5,y=-5..5,axes=FRAMED);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "implicitplot3d(\{x+y=1,y+z=1\},x=-1
0..10,y=-10..10,z=-5..5,axes=FRAMED);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 93 "implicitplot3d(\{x^2 - y^2 + z^2 = 1,y = exp(-x*z)\},
x=-Pi..Pi,y=-Pi..Pi,\nz=-1..1,axes=framed);" }}{PARA 0 "" 0 "" {TEXT 
-1 49 "One can color implicit plots using solid colors. " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "implicitplot3d( (x-1)^2 + (y+1)^2 +
 z^2 = 4,x=-1..3,y=-3..1,z=-2..2,\ncolor=blue,axes=framed);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 109 "p:= proc(x,y,z) if x^2 < y then x^2 + y^2 else x -
 y fi end:\nimplicitplot3d(p,-2..2,-1..3,0..3,axes=framed);\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "implicitplot3d( x^3 + y^3 + \+
z^3 + 1 = (x + y + z + 1)^3,x=-2..2,y=-2..2,\nz=-2..2,grid=[16,16,16])
;\n" }}}}{MARK "0 0 0" 17 }{VIEWOPTS 1 1 0 1 1 1803 }