{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 13 " Harmonic 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 68 "l:=curv e( [ [ 0,0],[0,1 ] ] , color=red , linestyle=1, thickness=2):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 130 "Fan:=seq(curve( [ [ 0,1],[1 /n,0 ] ] , color=COLOR(RGB,rand()/10^12,rand()/10^12,rand()/10^12), li nestyle=1, thickness=1),n=1..55):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "plots[display](Fan,l,scaling=constrained, thickness=1 ,axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "plotsetup( ps,plotoutput=`A.ps`,plotoptions=`noborder, axisheight=10cm, axiswidth =10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "plotsetup(gif,plotoutput=`B.gif`,plotoptions=`noborder, axisheight=10 cm, axiswidth=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }