{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 10 " Lelek 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 322 "Fan:=s eq(seq(seq(seq(seq(seq(curve( [ [ 0,1],[((2*a/3+2*b/3^2 +2*c/3^3+2*d/3 ^4+2*e/3^5+2*f/3^6)-1/2)*abs(sin(1222^a*13^b*5^c*7^d*11^e*13^f)),1-abs (sin(1222^a*13^b*5^c*7^d*11^e*13^f))/2 ] ] , color=COLOR(RGB,rand()/10 ^12,rand()/10^12,rand()/10^12), 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,a xes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "plotsetup(gi f,plotoutput=`B.gif`,plotoptions=`noborder, axisheight=10cm, axiswidth =10cm,portrait,color`);" }}}{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 0 "" }}}}{MARK "6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }