{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 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 11 " Cantor fan" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 196 "Fan:=seq(seq(seq(seq(seq(se
q(curve( [ [((2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4+2*e/3^5+2*f/3^6)),0],[ 1/
2,1/2] ] , color=green , linestyle=1, thickness=1),a=0..1),b=0..1),c=0
..1),d=0..1),e=0..1),f=0..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 63 "plots[display](Fan,scaling=constrained, thickness=1,axes=none);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "plotsetup(ps,plotoutpu
t=`A.ps`,plotoptions=`noborder, axisheight=10cm, axiswidth=10cm,portra
it,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "plotsetup(g
if,plotoutput=`A.gif`,plotoptions=`noborder, axisheight=10cm, axiswidt
h=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "8 0 0" 27 }{VIEWOPTS 1 1 0 1 1 1803 }