{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 88 "conformal( z+1/z,z=-1-I..1+I
,-3-3*I..3+3*I,\nscaling=CONSTRAINED,grid=[50,50],axes=NONE);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 225 "colorelliptic:=\n    plot3d
(\{[Re(r*exp(I*t)+1/(r*exp(I*t))),\n             Im(r*exp(I*t)+1/(r*ex
p(I*t))),0]\},\n    r=1..3,t=0..2*Pi,\n    scaling=CONSTRAINED,color=r
,style=patchnogrid,            grid=[50,50],orientation=[90,0]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "interval:=spacecurve([t,0,0]
,t=-2..2,thickness=4,color=BLACK):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "display([colorelliptic,interval]);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 
1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }