{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 " Gehman ski" }}{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 45 "jaka:=c olor=maroon, linestyle=1, thickness=3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "jakb:=color=red, linestyle=1, thickness=3:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "jakc:=color=blue, linestyle= 1, thickness=3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "jakd:=co lor=black, linestyle=1, thickness=3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "jake:=color=red, linestyle=1, thickness=3:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "jakf:=color=green, linestyle =1, thickness=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 164 "FT0:=seq(seq(seq(curve( [ [ (2*a/3+2*b/3^2 +2*c/3^3),0],[(2*a/3+2*b/3^2 +2*c/3^2) + 1/(3^0*2),1/(2 *3^0)],[(2*a/3+2*b/3^2 +2*c/3^3)+1/3^0,0] ] , jaka),a=0),b=0),c=0):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 167 "FT1:=seq(seq(seq(curve( [ [(2*a/3+2*b/3^2 +2*c/3^3),0],[(2*a/3+2*b/3^2 +2*c/3^2) + 1/(3^1*2),1/ (2*3^1)],[(2*a/3+2*b/3^2 +2*c/3^3)+1/3^1,0] ] , jakb),a=0..1),b=0),c=0 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "FT2:=seq(seq(seq(cur ve( [ [(2*a/3+2*b/3^2 +2*c/3^3),0],[(2*a/3+2*b/3^2 +2*c/3^2) + 1/(3^2* 2),1/(2*3^2)],[(2*a/3+2*b/3^2 +2*c/3^3)+1/3^2,0] ] , jakc),a=0..1),b=0 ..1),c=0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 173 "FT3:=seq(seq (seq(curve( [ [(2*a/3+2*b/3^2 +2*c/3^3),0],[(2*a/3+2*b/3^2 +2*c/3^3) + 1/(3^3*2),1/(2*3^3)],[(2*a/3+2*b/3^2 +2*c/3^3)+1/3^3,0] ] , jakd),a=0 ..1),b=0..1),c=0..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 209 "F T4:=seq(seq(seq(seq(curve( [ [(2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4),0],[(2* a/3+2*b/3^2 +2*c/3^3+2*d/3^4) + 1/(3^4*2),1/(2*3^4)],[(2*a/3+2*b/3^2 + 2*c/3^3+2*d/3^4)+1/3^4,0] ] , jake),a=0..1),b=0..1),c=0..1),d=0..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 236 "FT5:=seq(seq(seq(seq(seq (curve( [ [(2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4 + e/3^4),0],[(2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4+e/3^4) + 1/(2),1/3],[(2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4 +e/3^4) - 1/(2),-1/3] ] , jakf),a=0..1),b=0..1),c=0..1),d=0..1),e=0..1 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "plots[display](FT4,FT 3,FT2,FT1,FT0,FT5,scaling=constrained,axes=none);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 103 "plotsetup(ps,plotoutput=`A.ps`,plotoptions= `noborder, axisheight=10cm, axiswidth=13cm,portrait,color`);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "plotsetup(gif,plotoutput=`C .gif`,plotoptions=`noborder, axisheight=10cm, axiswidth=13cm,portrait, color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "18 \+ 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }