{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 17 " Gehman dendrite " }}{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=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "jakb:=color=red, linestyle=1, thickness=2:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "jakc:=color=blue, linestyle= 1, thickness=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "jakd:=co lor=green, linestyle=1, thickness=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "jake:=color=violet, linestyle=1, thickness=1:" }}} {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] ] , jaka),a=0..1),b=0..1),c=0..1),d=0..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "plots[display](FT4,FT3,FT 2,FT1,FT0,scaling=constrained,axes=none);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 102 "plotsetup(ps,plotoutput=`A.ps`,plotoptions=`nobord er, axisheight=5cm, axiswidth=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "15 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }