{VERSION 6 0 "IBM INTEL LINUX" "6.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 "" 0 1 0 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 393 "diag:=proc(g)\n  lo
cal t,d:\n  t:=-.5:\n  d:=0.01:\n  plots[display](\n     plottools[dis
k]([0,0],d,color=black),\n     plottools[disk]([g*cos(t),g*sin(t)],d,c
olor=blue),\n\n     plottools[circle]([0,0],1,color=black),\n     plot
tools[circle]([0,0],g,color=red,thickness=2),\n     plottools[disk]([0
,0],g,color=pink),\n     plottools[disk]([g*cos(t),g*sin(t)],(1-g),col
or=cyan),\n    axes=none);\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 159 "nf:=20:\ngmin:=0.4: gmax:=0.6:\ndrange:=gmax-gmin:\n
dg:=drange/nf:\n#plots[display]( seq(diag(gmin+i*dg),i=0..nf), seq(dia
g(gmax-i*dg),i=0..nf), insequence=true );" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }