{VERSION 3 0 "IBM INTEL LINUX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }{CSTYLE " " -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "terminal " 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "terminal" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "fixed" 0 1 0 0 0 0 0 0 0 0 0 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 }{PSTYLE "Text Output " -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 } 1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 } 0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title " 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 39 "Nekonecne ciselne rady - \+ zakladni pojmy" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 11 "Soucet rady" } }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{PARA 0 "" 0 " " {TEXT -1 19 "Urcete soucet rady " }{XPPEDIT 18 0 "sum(1/(n*(n+1)),n \+ = 1 .. infinity);" "6#-%$sumG6$*&\"\"\"\"\"\"*&%\"nGF(,&F*F(\"\"\"F(F( !\"\"/F*;\"\"\"%)infinityG" }{TEXT -1 1 "." }}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 38 "rada:=Sum(1/(n*(n+1)), n=1..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%radaG-%$SumG6$*&\"\"\"F)*&%\"nG\"\"\",&F+\" \"\"F.F.\"\"\"!\"\"/F+;F.%)infinityG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "convert(op(1,rada),'parfrac',n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"\"\"F%%\"nG!\"\"\"\"\"*&F%F%,&F&F(F(F(F'!\"\"" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "s[n]:=1-1/(n+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"sG6#%\"nG,&\"\"\"F)*&\"\"\"F+,&F'F)F)F) !\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Limit(s[n],n= infinity):%=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%&LimitG6$, &\"\"\"F(*&\"\"\"F*,&%\"nGF(F(F(!\"\"!\"\"/F,%)infinityGF(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 318 "poslcass := proc(a, b, d)\nlocal i , j, s, e;\n s := 0;\n j := 0;\n for i from b to d + b - 1 do \n j := j + 1;\n s := s + eval(subs(n = i, a));\n \+ lprint(evaln(s[j]) = s)\n od;\n e := sum(a, n = b .. n);\n l print(evaln(s[n]) = e);\n Sum(a, n = b .. infinity) = limit(e, n = \+ infinity)\nend:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "poslca ss(op(1,rada),1,5);" }}{PARA 6 "" 1 "" {TEXT -1 10 "s[1] = 1/2" }} {PARA 6 "" 1 "" {TEXT -1 10 "s[2] = 2/3" }}{PARA 6 "" 1 "" {TEXT -1 10 "s[3] = 3/4" }}{PARA 6 "" 1 "" {TEXT -1 10 "s[4] = 4/5" }}{PARA 6 " " 1 "" {TEXT -1 10 "s[5] = 5/6" }}{PARA 6 "" 1 "" {TEXT -1 16 "s[n] = \+ 1-1/(n+1)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%$SumG6$*&\"\"\"F(*&%\" nG\"\"\",&F*\"\"\"F-F-\"\"\"!\"\"/F*;F-%)infinityGF-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "Sum(1/(n*(n+1)), n=1..infinity)=sum(1/(n* (n+1)), n=1..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%$SumG6$* &\"\"\"F(*&%\"nG\"\"\",&F*\"\"\"F-F-\"\"\"!\"\"/F*;F-%)infinityGF-" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 766 "sumplots := proc(rada)\nlocal term , n, a, b, psum, m, points, i, c, sn, p1, p2;\n if nargs = 2 then c := args[2] else c := 0 fi;\n if typematch(rada, 'Sum'(term::algebr aic,\n n::name = (a::integer) .. (b::integer))) then\n psum \+ :=\n evalf@(unapply(Sum(term, n = a .. a + m - 1), m))\n \+ ;\n points := [seq(\n [[i, psum(i) + c], [i + 1, psum(i) + c]],\n i = 1 .. b - a + 1)];\n point s := map(op, points);\n p1 := PLOT(CURVES(points), AXESLABELS(n , \"s[n]\"));\n sn := evalf(c + sum(term, n = a .. infinity))\n else ERROR(\"expecting a Sum structure as input\")\n fi;\n i f sn < infinity then\n p2 := plot(sn, n = a .. b, linestyle = 4 );\n display(\{p1, p2\})\n else p1\n fi\nend:\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "sumplots(Sum(op(1,rada),n=1. .60));" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6%7S7$$\"\"\"\"\"!F(7 $$\"1LL$e4KgG#!#:F(7$$\"1n;/Y<+0MF.F(7$$\"1LL3Z,SjYF.F(7$$\"1MLeH+9IfF .F(7$$\"1m;a=$f3>(F.F(7$$\"1M$3F[2(f$)F.F(7$$\"1+]Pa?)*p&*F.F(7$$\"1L3 xu\\;#3\"!#9F(7$$\"1+voK.$p?\"FDF(7$$\"1nm\"*QoEN8FDF(7$$\"1L$eMq0$[9F DF(7$$\"1++v\"pgbd\"FDF(7$$\"1++D,#QLq\"FDF(7$$\"1++D3bZE=FDF(7$$\"1L3 xzfHQ>FDF(7$$\"1nm\"fLh72#FDF(7$$\"1nmmL/!R=#FDF(7$$\"1+v$>[E\\J#FDF(7 $$\"1nm;On!4V#FDF(7$$\"1+v$pXb\"eDFDF(7$$\"1+D\"3LE$zEFDF(7$$\"1n;/Eav 0GFDF(7$$\"1nTN-o&=#HFDF(7$$\"1L$e9#y3ZIFDF(7$$\"1L3xaw;xJFDF(7$$\"1+D 1KDS!H$FDF(7$$\"1M$3G9Dv&FDF(7$$\"1+D1,a!=(eFDF(7$$\"#gF*F(-%'C OLOURG6&%$RGBG$\"#5!\"\"F*F*-%*LINESTYLEG6#\"\"%-F$6#7dr7$F)$\"+++++]! #57$\"\"#Ffu7$Fju$\"+nmmmmFhu7$\"\"$F\\v7$F_v$\"+++++vFhu7$FauFav7$Fau $\"+++++!)Fhu7$\"\"&Fev7$Fhv$\"+LLLL$)Fhu7$\"\"'Fjv7$F]w$\"+r&G9d)Fhu7 $\"\"(F_w7$Fbw$\"++++]()Fhu7$\"\")Fdw7$Fgw$\"+*)))))))))Fhu7$\"\"*Fiw7 $F\\x$\"+++++!*Fhu7$F\\uF^x7$F\\u$\"+\"4444*Fhu7$\"#6Fbx7$Fex$\"+nmmm \"*Fhu7$\"#7Fgx7$Fjx$\"+J#p2B*Fhu7$\"#8F\\y7$F_y$\"+'G9dG*Fhu7$\"#9Fay 7$Fdy$\"+LLLL$*Fhu7$\"#:Ffy7$Fiy$\"++++v$*Fhu7$\"#;F[z7$F^z$\"+1Zw6%*F hu7$\"#Fjz7$F][ l$\"+++++&*Fhu7$\"#?F_[l7$Fb[l$\"+C&4Q_*Fhu7$\"#@Fd[l7$Fg[l$\"+XXXX&*F hu7$\"#AFi[l7$F\\\\l$\"+\"R<_c*Fhu7$\"#BF^\\l7$Fa\\l$\"+LLL$e*Fhu7$\"# CFc\\l7$Ff\\l$\"+++++'*Fhu7$\"#DFh\\l7$F[]l$\"+:YQ:'*Fhu7$\"#EF]]l7$F` ]l$\"+I'H'H'*Fhu7$\"#FFb]l7$Fe]l$\"+Vr&Gk*Fhu7$\"#GFg]l7$Fj]l$\"+9Cun*Fhu7$\"#JF f^l7$Fi^l$\"+++](o*Fhu7$\"#KF[_l7$F^_l$\"+(pppp*Fhu7$\"#LF`_l7$Fc_l$\" +`B)eq*Fhu7$\"#MFe_l7$Fh_l$\"+9dG9(*Fhu7$\"#NFj_l7$F]`l$\"+AAAA(*Fhu7$ \"#OF_`l7$Fb`l$\"+I(H(H(*Fhu7$\"#PFd`l7$Fg`l$\"+0@%ot*Fhu7$\"#QFi`l7$F \\al$\"+W(*eV(*Fhu7$\"#RF^al7$Faal$\"++++](*Fhu7$\"#SFcal7$Ffal$\"+hv4 c(*Fhu7$\"#TFhal7$F[bl$\"+iZ!>w*Fhu7$\"#UF]bl7$F`bl$\"+g=Wn(*Fhu7$\"#V Fbbl7$Febl$\"+tsss(*Fhu7$\"#WFgbl7$Fjbl$\"+yxxx(*Fhu7$\"#XF\\cl7$F_cl$ \"+'p3Ey*Fhu7$\"#YFacl7$Fdcl$\"+VSB(y*Fhu7$\"#ZFfcl7$Ficl$\"+nmm\"z*Fh u7$\"#[F[dl7$F^dl$\"+n$=fz*Fhu7$\"#\\F`dl7$Fcdl$\"+++++)*Fhu7$\"#]Fedl 7$Fhdl$\"+p:#R!)*Fhu7$\"#^Fjdl7$F]el$\"+3Bp2)*Fhu7$\"#_F_el7$Fbel$\"+b 2K6)*Fhu7$\"#`Fdel7$Fgel$\"+:[\"[\")*Fhu7$\"#aFiel7$F\\fl$\"+====)*Fhu 7$\"#bF^fl7$Fafl$\"+r&G9#)*Fhu7$\"#cFcfl7$Fffl$\"+/9cC)*Fhu7$\"#dFhfl7 $F[gl$\"+2ieF)*Fhu7$\"#eF]gl7$F`gl$\"+v%30$)*Fhu7$\"#fFbgl7$Fegl$\"+LL LL)*Fhu7$FftFggl7$Fft$\"+ub1O)*Fhu7$\"#hF[hl-%+AXESLABELSG6$Q\"n6\"%!G -%%VIEWG6$;F(Fet%(DEFAULTG" 2 308 205 205 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 19 "Urcete soucet rady " }{XPPEDIT 18 0 "sum(1/((3*n-2)*(3*n+1)),n = 1 .. infinity);" "6#-%$sum G6$*&\"\"\"\"\"\"*&,&*&\"\"$F(%\"nGF(F(\"\"#!\"\"F(,&*&\"\"$F(F-F(F(\" \"\"F(F(F//F-;\"\"\"%)infinityG" }{TEXT -1 1 "." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 46 "rada:=Sum(1/((3*n-2)*(3*n+1)), n=1..infinity); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%radaG-%$SumG6$*&\"\"\"F)*&,&%\" nG\"\"$!\"#\"\"\"\"\"\",&F,F-F/F/\"\"\"!\"\"/F,;F/%)infinityG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "convert(op(1,rada),'parfrac' ,n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"\"\"F%,&%\"nG\"\"$!\"#\" \"\"!\"\"#F*F(*&F%F%,&F'F(F*F*F+#!\"\"F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "poslcass(op(1,rada),1,5);" }}{PARA 6 "" 1 "" {TEXT -1 10 "s[1] = 1/4" }}{PARA 6 "" 1 "" {TEXT -1 10 "s[2] = 2/7" }}{PARA 6 "" 1 "" {TEXT -1 11 "s[3] = 3/10" }}{PARA 6 "" 1 "" {TEXT -1 11 "s[4 ] = 4/13" }}{PARA 6 "" 1 "" {TEXT -1 11 "s[5] = 5/16" }}{PARA 6 "" 1 " " {TEXT -1 23 "s[n] = -1/3/(3*n+1)+1/3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%$SumG6$*&\"\"\"F(*&,&%\"nG\"\"$!\"#\"\"\"\"\"\",&F+F,F.F.\"\" \"!\"\"/F+;F.%)infinityG#F.F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "s[n];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&\"\"\"F$*&\"\"\"F&,&% \"nGF$F$F$!\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Lim it(s[n],n=infinity):%=value(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-% &LimitG6$,&\"\"\"F(*&\"\"\"F*,&%\"nGF(F(F(!\"\"!\"\"/F,%)infinityGF(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "Sum(1/((3*n-2)*(3*n+1)), \+ n=1..infinity)=sum(1/((3*n-2)*(3*n+1)), n=1..infinity);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#/-%$SumG6$*&\"\"\"F(*&,&%\"nG\"\"$!\"#\"\"\"\"\" \",&F+F,F.F.\"\"\"!\"\"/F+;F.%)infinityG#F.F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "sumplots(Sum(op(1,rada),n=1..60));" }}{PARA 13 " " 1 "" {INLPLOT "6&-%'CURVESG6#7dr7$\"\"\"$\"+++++D!#57$\"\"#F)7$F-$\" +dG9dGF+7$\"\"$F/7$F2$\"+++++IF+7$\"\"%F47$F7$\"+xI#p2$F+7$\"\"&F97$F< $\"++++DJF+7$\"\"'F>7$FA$\"+PZ*y:$F+7$\"\"(FC7$FF$\"+#====$F+7$\"\")FH 7$FK$\"+++++KF+7$\"\"*FM7$FP$\"+9dG9KF+7$\"#5FR7$FU$\"+_k!eA$F+7$\"#6F W7$FZ$\"+=THNKF+7$\"#7Ffn7$Fin$\"+VKCVKF+7$\"#8F[o7$F^o$\"++++]KF+7$\" #9F`o7$Fco$\"+aR\"eD$F+7$\"#:Feo7$Fho$\"+l&p3E$F+7$\"#;Fjo7$F]p$\"+AhI lKF+7$\"#Fip7$F\\q$ \"+p?'eF$F+7$\"#?F^q7$Faq$\"+D&)oyKF+7$\"#@Fcq7$Ffq$\"+++D\"G$F+7$\"#A Fhq7$F[r$\"+!4#e$G$F+7$\"#BF]r7$F`r$\"+'G9dG$F+7$\"#CFbr7$Fer$\"+L7n(G $F+7$\"#DFgr7$Fjr$\"+%ot%*G$F+7$\"#EF\\s7$F_s$\"+T#R6H$F+7$\"#FFas7$Fd s$\"+FHo#H$F+7$\"#GFfs7$Fis$\"+Zw6%H$F+7$\"#HF[t7$F^t$\"+XXX&H$F+7$\"# IF`t7$Fct$\"+(H.nH$F+7$\"#JFet7$Fht$\"+SB(yH$F+7$\"#KFjt7$F]u$\"+s!p*) H$F+7$\"#LF_u7$Fbu$\"+++++LF+7$\"#MFdu7$Fgu$\"+u3(4I$F+7$\"#NFiu7$F\\v $\"+#z')=I$F+7$\"#OF^v7$Fav$\"+%H_FI$F+7$\"#PFcv7$Ffv$\"+H9d.LF+7$\"#Q Fhv7$F[w$\"+EyM/LF+7$\"#RF]w7$F`w$\"+YZ30LF+7$\"#SFbw7$Few$\"+C^y0LF+7 $\"#TFgw7$Fjw$\"+8;X1LF+7$\"#UF\\x7$F_x$\"+9m32LF+7$\"#VFax7$Fdx$\"+3B p2LF+7$\"#WFfx7$Fix$\"+x1F3LF+7$\"#XF[y7$F^y$\"+HN#)3LF+7$\"#YF`y7$Fcy $\"+=DN4LF+7$\"#ZFey7$Fhy$\"+b\"f)4LF+7$\"#[Fjy7$F]z$\"+G[M5LF+7$\"#\\ F_z7$Fbz$\"+63\"3J$F+7$\"#]Fdz7$Fgz$\"+y#e7J$F+7$\"#^Fiz7$F\\[l$\"+7$) o6LF+7$\"#_F^[l7$Fa[l$\"+6>57LF+7$\"#`Fc[l7$Ff[l$\"+++]7LF+7$\"#aFh[l7 $F[\\l$\"+OM)GJ$F+7$\"#bF]\\l7$F`\\l$\"+7ID8LF+7$\"#cFb\\l7$Fe\\l$\"+n %4OJ$F+7$\"#dFg\\l7$Fj\\l$\"+)[`RJ$F+7$\"#eF\\]l7$F_]l$\"+9dG9LF+7$\"# fFa]l7$Fd]l$\"+Ung9LF+7$\"#gFf]l7$Fi]l$\"+Fr\"\\J$F+7$\"#hF[^l-F$6%7S7 $$F(\"\"!$\"1+++LLLLL!#;7$$\"1LL$e4KgG#!#:Fe^l7$$\"1n;/Y<+0MF[_lFe^l7$ $\"1LL3Z,SjYF[_lFe^l7$$\"1MLeH+9IfF[_lFe^l7$$\"1m;a=$f3>(F[_lFe^l7$$\" 1M$3F[2(f$)F[_lFe^l7$$\"1+]Pa?)*p&*F[_lFe^l7$$\"1L3xu\\;#3\"!#9Fe^l7$$ \"1+voK.$p?\"Fa`lFe^l7$$\"1nm\"*QoEN8Fa`lFe^l7$$\"1L$eMq0$[9Fa`lFe^l7$ $\"1++v\"pgbd\"Fa`lFe^l7$$\"1++D,#QLq\"Fa`lFe^l7$$\"1++D3bZE=Fa`lFe^l7 $$\"1L3xzfHQ>Fa`lFe^l7$$\"1nm\"fLh72#Fa`lFe^l7$$\"1nmmL/!R=#Fa`lFe^l7$ $\"1+v$>[E\\J#Fa`lFe^l7$$\"1nm;On!4V#Fa`lFe^l7$$\"1+v$pXb\"eDFa`lFe^l7 $$\"1+D\"3LE$zEFa`lFe^l7$$\"1n;/Eav0GFa`lFe^l7$$\"1nTN-o&=#HFa`lFe^l7$ $\"1L$e9#y3ZIFa`lFe^l7$$\"1L3xaw;xJFa`lFe^l7$$\"1+D1KDS!H$Fa`lFe^l7$$ \"1M$3G9Dv&Fa`lFe^l7$$\"1+D1,a!=(eFa`lFe^l7$$Fi]lFd^lFe^l -%'COLOURG6&%$RGBG$FU!\"\"Fd^lFd^l-%*LINESTYLEG6#F7-%+AXESLABELSG6$%\" nGQ%s[n]6\"-%%VIEWG6$;Fc^lFhgl%(DEFAULTG" 2 308 205 205 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "s ave poslcass, sumplots, `cisrady.txt`;" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 20 "Sierpinskeho koberec" }} {EXCHG {PARA 0 "" 0 "" {TEXT -1 464 "Vypoctet obsah Sierpinsk\351ho ko berce, ktery se konstruuje takto: jednotkovy ctverec rozdelime na deve t shodnych ctvercu a odstranime vnitrek prostredniho ctverce. Kazdy ze zbyvajicich osmi ctvercu rozdelime opet na devet shodnych ctvercu a z novu odstranime vnitrek prostredniho ctverce. Kdyz tuto operaci prodlo uzime do nekonecna dostaneme utvar, ktery se nazyva Sierpinskeho kober ec. Jednotlive iterace sierpinskeho koberce muzeme kreslit v Maplu pom oci procedury " }{TEXT 259 11 "sierpkob(n)" }{TEXT -1 1 ":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 17 "sierpkob:=proc(n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "local x,y,d,i,j;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "global s, kr,sez,poms,kre,sq;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "s:=[x,y],[x+ d,y], [x+2*d,y], [x,y+d], [x+2*d,y+d]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 " [x,y+2*d], [x+d,y+2*d],[x+2*d,y+2*d];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "kr:=POLYGONS([s[5],s[8],s[7],[x+d,y+d]]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "x:=0;y:=0;d:=1/3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "kre:=kr;sez:=s;poms:=sez;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "sq:=POLYGONS([[0,0],[1,0],[1,1],[0,1]], COLOR(RGB,0,1 ,0));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "for i to n-1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "d:=d/3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for j to nops([sez]) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "x:=s ez[j,1];y:=sez[j,2];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "poms:=poms, s; kre:=kre,kr;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "od; sez:=poms; o d;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "PLOT(kre,sq,AXESSTYLE(NONE), \+ SCALING(CONSTRAINED));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 53 "kde parametr n udava, kolikata ite race se vykresluje." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with (plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "o:=array(1..2,1 ..2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "o[1,1]:=sierpkob(1 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "o[1,2]:=sierpkob(2): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "o[2,1]:=sierpkob(3):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "o[2,2]:=sierpkob(4):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "display(o);" }}{PARA 13 "" 1 "" {INLPLOT "6g^n-%'CURVESG6\"-%)POLYGONSG6#7&7$#\"#5\"\"$#!#5F-7$F+ F+7$F.F+7$F.F.-F'6$7&7$F/F/7$F,F/7$F,F,7$F/F,-%&COLORG6&%$RGBG\"\"!\" \"\"F>-F'6#7&7$F+#!$+\"F-7$F+#!#!)F-7$F.FG7$F.FD-F'6#7&7$#!#]\"\"*#!$S $FQ7$FO#!$?$FQ7$#!#qFQFU7$FXFR-F'6#7&7$#F,FQFR7$FinFU7$#F/FQFU7$F\\oFR -F'6#7&7$#\"#qFQFR7$FboFU7$#\"#]FQFU7$FfoFR-F'6#7&7$FO#!$!GFQ7$FO#!$g# FQ7$FXF`p7$FXF]p-F'6#7&7$FboF]p7$FboF`p7$FfoF`p7$FfoF]p-F'6#7&7$FO#!$? #FQ7$FO#!$+#FQ7$FXFbq7$FXF_q-F'6#7&7$FinF_q7$FinFbq7$F\\oFbq7$F\\oF_q- F'6#7&7$FboF_q7$FboFbq7$FfoFbq7$FfoF_q-F'6#7&7$#!$I#\"#F#!%g5Fjr7$Fhr# !%S5Fjr7$#!$]#FjrF^s7$FasF[s-F'6#7&7$#FPFjrF[s7$FhsF^s7$#FYFjrF^s7$F[t F[s-F'6#7&7$#\"$I\"FjrF[s7$FatF^s7$#\"$5\"FjrF^s7$FetF[s-F'6#7&7$Fhr#! $!))Fjr7$Fhr#!$g)Fjr7$FasF_u7$FasF\\u-F'6#7&7$FatF\\u7$FatF_u7$FetF_u7 $FetF\\u-F'6#7&7$Fhr#!$+(Fjr7$Fhr#!$!oFjr7$FasFav7$FasF^v-F'6#7&7$FhsF ^v7$FhsFav7$F[tFav7$F[tF^v-F'6#7&7$FatF^v7$FatFav7$FetFav7$FetF^vFdr-F '6#7&7$#!$q\"FjrF[s7$FgwF^s7$#!$!>FjrF^s7$F[xF[s-F'6#7&7$#!$5\"FjrF[s7 $FbxF^s7$#!$I\"FjrF^s7$FfxF[s-F'6#7&7$Fhr#!%+5Fjr7$Fhr#!$!)*Fjr7$FasF` y7$FasF]y-F'6#7&7$FbxF]y7$FbxF`y7$FfxF`y7$FfxF]y-F'6#7&7$Fhr#!$S*Fjr7$ Fhr#!$?*Fjr7$FasFbz7$FasF_z-F'6#7&7$FgwF_z7$FgwFbz7$F[xFbz7$F[xF_z-F'6 #7&7$FbxF_z7$FbxFbz7$FfxFbz7$FfxF_zFds-F'6#7&7$#F,FjrF[s7$Fh[lF^s7$#F/ FjrF^s7$F[\\lF[s-F'6#7&7$#FcoFjrF[s7$Fa\\lF^s7$#FgoFjrF^s7$Fd\\lF[s-F' 6#7&7$FhsF]y7$FhsF`y7$F[tF`y7$F[tF]y-F'6#7&7$Fa\\lF]y7$Fa\\lF`y7$Fd\\l F`y7$Fd\\lF]y-F'6#7&7$FhsF_z7$FhsFbz7$F[tFbz7$F[tF_z-F'6#7&7$Fh[lF_z7$ Fh[lFbz7$F[\\lFbz7$F[\\lF_z-F'6#7&7$Fa\\lF_z7$Fa\\lFbz7$Fd\\lFbz7$Fd\\ lF_zF]t-F'6#7&7$#\"$!>FjrF[s7$F]_lF^s7$#\"$q\"FjrF^s7$Fa_lF[s-F'6#7&7$ #\"$]#FjrF[s7$Fh_lF^s7$#\"$I#FjrF^s7$F\\`lF[s-F'6#7&7$FatF]y7$FatF`y7$ FetF`y7$FetF]y-F'6#7&7$Fh_lF]y7$Fh_lF`y7$F\\`lF`y7$F\\`lF]y-F'6#7&7$Fa tF_z7$FatFbz7$FetFbz7$FetF_z-F'6#7&7$F]_lF_z7$F]_lFbz7$Fa_lFbz7$Fa_lF_ z-F'6#7&7$Fh_lF_z7$Fh_lFbz7$F\\`lFbz7$F\\`lF_zFht-F'6#7&7$FgwF\\u7$Fgw F_u7$F[xF_u7$F[xF\\u-F'6#7&7$FbxF\\u7$FbxF_u7$FfxF_u7$FfxF\\u-F'6#7&7$ Fhr#!$?)Fjr7$Fhr#!$+)Fjr7$FasFgcl7$FasFdcl-F'6#7&7$FbxFdcl7$FbxFgcl7$F fxFgcl7$FfxFdcl-F'6#7&7$Fhr#!$g(Fjr7$Fhr#!$S(Fjr7$FasFidl7$FasFfdl-F'6 #7&7$FgwFfdl7$FgwFidl7$F[xFidl7$F[xFfdl-F'6#7&7$FbxFfdl7$FbxFidl7$FfxF idl7$FfxFfdlFcu-F'6#7&7$F]_lF\\u7$F]_lF_u7$Fa_lF_u7$Fa_lF\\u-F'6#7&7$F h_lF\\u7$Fh_lF_u7$F\\`lF_u7$F\\`lF\\u-F'6#7&7$FatFdcl7$FatFgcl7$FetFgc l7$FetFdcl-F'6#7&7$Fh_lFdcl7$Fh_lFgcl7$F\\`lFgcl7$F\\`lFdcl-F'6#7&7$Fa tFfdl7$FatFidl7$FetFidl7$FetFfdl-F'6#7&7$F]_lFfdl7$F]_lFidl7$Fa_lFidl7 $Fa_lFfdl-F'6#7&7$Fh_lFfdl7$Fh_lFidl7$F\\`lFidl7$F\\`lFfdlFju-F'6#7&7$ FgwF^v7$FgwFav7$F[xFav7$F[xF^v-F'6#7&7$FbxF^v7$FbxFav7$FfxFav7$FfxF^v- F'6#7&7$Fhr#!$S'Fjr7$Fhr#!$?'Fjr7$FasFajl7$FasF^jl-F'6#7&7$FbxF^jl7$Fb xFajl7$FfxFajl7$FfxF^jl-F'6#7&7$Fhr#!$!eFjr7$Fhr#!$g&Fjr7$FasFc[m7$Fas F`[m-F'6#7&7$FgwF`[m7$FgwFc[m7$F[xFc[m7$F[xF`[m-F'6#7&7$FbxF`[m7$FbxFc [m7$FfxFc[m7$FfxF`[mFev-F'6#7&7$Fh[lF^v7$Fh[lFav7$F[\\lFav7$F[\\lF^v-F '6#7&7$Fa\\lF^v7$Fa\\lFav7$Fd\\lFav7$Fd\\lF^v-F'6#7&7$FhsF^jl7$FhsFajl 7$F[tFajl7$F[tF^jl-F'6#7&7$Fa\\lF^jl7$Fa\\lFajl7$Fd\\lFajl7$Fd\\lF^jl- F'6#7&7$FhsF`[m7$FhsFc[m7$F[tFc[m7$F[tF`[m-F'6#7&7$Fh[lF`[m7$Fh[lFc[m7 $F[\\lFc[m7$F[\\lF`[m-F'6#7&7$Fa\\lF`[m7$Fa\\lFc[m7$Fd\\lFc[m7$Fd\\lF` [mF\\w-F'6#7&7$F]_lF^v7$F]_lFav7$Fa_lFav7$Fa_lF^v-F'6#7&7$Fh_lF^v7$Fh_ lFav7$F\\`lFav7$F\\`lF^v-F'6#7&7$FatF^jl7$FatFajl7$FetFajl7$FetF^jl-F' 6#7&7$Fh_lF^jl7$Fh_lFajl7$F\\`lFajl7$F\\`lF^jl-F'6#7&7$FatF`[m7$FatFc[ m7$FetFc[m7$FetF`[m-F'6#7&7$F]_lF`[m7$F]_lFc[m7$Fa_lFc[m7$Fa_lF`[m-F'6 #7&7$Fh_lF`[m7$Fh_lFc[m7$F\\`lFc[m7$F\\`lF`[m-F'6$7&7$F/!#S7$F,F[cm7$F ,!#?7$F/F^cmF:-F'6#7&7$#\"$+\"F-F.7$FdcmF+7$#\"#!)F-F+7$FhcmF.-F'6#7&7 $#\"$?#FQFX7$F_dmFO7$#\"$+#FQFO7$FcdmFX-F'6#7&7$#\"$!GFQFX7$FjdmFO7$# \"$g#FQFO7$F^emFX-F'6#7&7$#\"$S$FQFX7$FeemFO7$#\"$?$FQFO7$FiemFX-F'6#7 &7$F_dmF\\o7$F_dmFin7$FcdmFin7$FcdmF\\o-F'6#7&7$FeemF\\o7$FeemFin7$Fie mFin7$FiemF\\o-F'6#7&7$F_dmFfo7$F_dmFbo7$FcdmFbo7$FcdmFfo-F'6#7&7$Fjdm Ffo7$FjdmFbo7$F^emFbo7$F^emFfo-F'6#7&7$FeemFfo7$FeemFbo7$FiemFbo7$Fiem Ffo-F'6$7&7$\"#?F/7$\"#SF/7$FehmF,7$FchmF,F:-F'6#7&7$FdcmFD7$FdcmFG7$F hcmFG7$FhcmFD-F'6#7&7$F_dmFR7$F_dmFU7$FcdmFU7$FcdmFR-F'6#7&7$FjdmFR7$F jdmFU7$F^emFU7$F^emFR-F'6#7&7$FeemFR7$FeemFU7$FiemFU7$FiemFR-F'6#7&7$F _dmF]p7$F_dmF`p7$FcdmF`p7$FcdmF]p-F'6#7&7$FeemF]p7$FeemF`p7$FiemF`p7$F iemF]p-F'6#7&7$F_dmF_q7$F_dmFbq7$FcdmFbq7$FcdmF_q-F'6#7&7$FjdmF_q7$Fjd mFbq7$F^emFbq7$F^emF_q-F'6#7&7$FeemF_q7$FeemFbq7$FiemFbq7$FiemF_q-F'6# 7&7$#\"$!eFjrF[s7$F[]nF^s7$#\"$g&FjrF^s7$F_]nF[s-F'6#7&7$#\"$g(FjrF[s7 $Ff]nF^s7$#\"$S(FjrF^s7$Fj]nF[s-F'6#7&7$#\"$S*FjrF[s7$Fa^nF^s7$#\"$?*F jrF^s7$Fe^nF[s-F'6#7&7$F[]nF\\u7$F[]nF_u7$F_]nF_u7$F_]nF\\u-F'6#7&7$Fa ^nF\\u7$Fa^nF_u7$Fe^nF_u7$Fe^nF\\u-F'6#7&7$F[]nF^v7$F[]nFav7$F_]nFav7$ F_]nF^v-F'6#7&7$Ff]nF^v7$Ff]nFav7$Fj]nFav7$Fj]nF^v-F'6#7&7$Fa^nF^v7$Fa ^nFav7$Fe^nFav7$Fe^nF^vFg\\n-F'6#7&7$#\"$S'FjrF[s7$F_anF^s7$#\"$?'FjrF ^s7$FcanF[s-F'6#7&7$#\"$+(FjrF[s7$FjanF^s7$#\"$!oFjrF^s7$F^bnF[s-F'6#7 &7$F[]nF]y7$F[]nF`y7$F_]nF`y7$F_]nF]y-F'6#7&7$FjanF]y7$FjanF`y7$F^bnF` y7$F^bnF]y-F'6#7&7$F[]nF_z7$F[]nFbz7$F_]nFbz7$F_]nF_z-F'6#7&7$F_anF_z7 $F_anFbz7$FcanFbz7$FcanF_z-F'6#7&7$FjanF_z7$FjanFbz7$F^bnFbz7$F^bnF_zF b]n-F'6#7&7$#\"$?)FjrF[s7$FhdnF^s7$#\"$+)FjrF^s7$F\\enF[s-F'6#7&7$#\"$ !))FjrF[s7$FcenF^s7$#\"$g)FjrF^s7$FgenF[s-F'6#7&7$Ff]nF]y7$Ff]nF`y7$Fj ]nF`y7$Fj]nF]y-F'6#7&7$FcenF]y7$FcenF`y7$FgenF`y7$FgenF]y-F'6#7&7$Ff]n F_z7$Ff]nFbz7$Fj]nFbz7$Fj]nF_z-F'6#7&7$FhdnF_z7$FhdnFbz7$F\\enFbz7$F\\ enF_z-F'6#7&7$FcenF_z7$FcenFbz7$FgenFbz7$FgenF_zF]^n-F'6#7&7$#\"%+5Fjr F[s7$FahnF^s7$#\"$!)*FjrF^s7$FehnF[s-F'6#7&7$#\"%g5FjrF[s7$F\\inF^s7$# \"%S5FjrF^s7$F`inF[s-F'6#7&7$Fa^nF]y7$Fa^nF`y7$Fe^nF`y7$Fe^nF]y-F'6#7& 7$F\\inF]y7$F\\inF`y7$F`inF`y7$F`inF]y-F'6#7&7$Fa^nF_z7$Fa^nFbz7$Fe^nF bz7$Fe^nF_z-F'6#7&7$FahnF_z7$FahnFbz7$FehnFbz7$FehnF_z-F'6#7&7$F\\inF_ z7$F\\inFbz7$F`inFbz7$F`inF_zFh^n-F'6#7&7$F_anF\\u7$F_anF_u7$FcanF_u7$ FcanF\\u-F'6#7&7$FjanF\\u7$FjanF_u7$F^bnF_u7$F^bnF\\u-F'6#7&7$F[]nFdcl 7$F[]nFgcl7$F_]nFgcl7$F_]nFdcl-F'6#7&7$FjanFdcl7$FjanFgcl7$F^bnFgcl7$F ^bnFdcl-F'6#7&7$F[]nFfdl7$F[]nFidl7$F_]nFidl7$F_]nFfdl-F'6#7&7$F_anFfd l7$F_anFidl7$FcanFidl7$FcanFfdl-F'6#7&7$FjanFfdl7$FjanFidl7$F^bnFidl7$ F^bnFfdlF__n-F'6#7&7$FahnF\\u7$FahnF_u7$FehnF_u7$FehnF\\u-F'6#7&7$F\\i nF\\u7$F\\inF_u7$F`inF_u7$F`inF\\u-F'6#7&7$Fa^nFdcl7$Fa^nFgcl7$Fe^nFgc l7$Fe^nFdcl-F'6#7&7$F\\inFdcl7$F\\inFgcl7$F`inFgcl7$F`inFdcl-F'6#7&7$F a^nFfdl7$Fa^nFidl7$Fe^nFidl7$Fe^nFfdl-F'6#7&7$FahnFfdl7$FahnFidl7$Fehn Fidl7$FehnFfdl-F'6#7&7$F\\inFfdl7$F\\inFidl7$F`inFidl7$F`inFfdlFf_n-F' 6#7&7$F_anF^v7$F_anFav7$FcanFav7$FcanF^v-F'6#7&7$FjanF^v7$FjanFav7$F^b nFav7$F^bnF^v-F'6#7&7$F[]nF^jl7$F[]nFajl7$F_]nFajl7$F_]nF^jl-F'6#7&7$F janF^jl7$FjanFajl7$F^bnFajl7$F^bnF^jl-F'6#7&7$F[]nF`[m7$F[]nFc[m7$F_]n Fc[m7$F_]nF`[m-F'6#7&7$F_anF`[m7$F_anFc[m7$FcanFc[m7$FcanF`[m-F'6#7&7$ FjanF`[m7$FjanFc[m7$F^bnFc[m7$F^bnF`[mF]`n-F'6#7&7$FhdnF^v7$FhdnFav7$F \\enFav7$F\\enF^v-F'6#7&7$FcenF^v7$FcenFav7$FgenFav7$FgenF^v-F'6#7&7$F f]nF^jl7$Ff]nFajl7$Fj]nFajl7$Fj]nF^jl-F'6#7&7$FcenF^jl7$FcenFajl7$Fgen Fajl7$FgenF^jl-F'6#7&7$Ff]nF`[m7$Ff]nFc[m7$Fj]nFc[m7$Fj]nF`[m-F'6#7&7$ FhdnF`[m7$FhdnFc[m7$F\\enFc[m7$F\\enF`[m-F'6#7&7$FcenF`[m7$FcenFc[m7$F genFc[m7$FgenF`[mFd`n-F'6#7&7$FahnF^v7$FahnFav7$FehnFav7$FehnF^v-F'6#7 &7$F\\inF^v7$F\\inFav7$F`inFav7$F`inF^v-F'6#7&7$Fa^nF^jl7$Fa^nFajl7$Fe ^nFajl7$Fe^nF^jl-F'6#7&7$F\\inF^jl7$F\\inFajl7$F`inFajl7$F`inF^jl-F'6# 7&7$Fa^nF`[m7$Fa^nFc[m7$Fe^nFc[m7$Fe^nF`[m-F'6#7&7$FahnF`[m7$FahnFc[m7 $FehnFc[m7$FehnF`[m-F'6#7&7$F\\inF`[m7$F\\inFc[m7$F`inFc[m7$F`inF`[m-F '6#7&7$#\"%g;\"#\")#!%?KFa[p7$F_[p#!%+KFa[p7$#\"%S;Fa[pFe[p7$Fh[pFb[p- F'6#7&7$#\"%+AFa[pFb[p7$F_\\pFe[p7$#\"%!=#Fa[pFe[p7$Fc\\pFb[p-F'6#7&7$ #\"%SFFa[pFb[p7$Fj\\pFe[p7$#\"%?FFa[pFe[p7$F^]pFb[p-F'6#7&7$F_[p#!%!o# Fa[p7$F_[p#!%gEFa[p7$Fh[pFh]p7$Fh[pFe]p-F'6#7&7$Fj\\pFe]p7$Fj\\pFh]p7$ F^]pFh]p7$F^]pFe]p-F'6#7&7$F_[p#!%S@Fa[p7$F_[p#!%?@Fa[p7$Fh[pFj^p7$Fh[ pFg^p-F'6#7&7$F_\\pFg^p7$F_\\pFj^p7$Fc\\pFj^p7$Fc\\pFg^p-F'6#7&7$Fj\\p Fg^p7$Fj\\pFj^p7$F^]pFj^p7$F^]pFg^pF[[p-F'6#7&7$#\"%S=Fa[pFb[p7$F``pFe [p7$#\"%?=Fa[pFe[p7$Fd`pFb[p-F'6#7&7$#\"%??Fa[pFb[p7$F[apFe[p7$#\"%+?F a[pFe[p7$F_apFb[p-F'6#7&7$F_[p#!%SIFa[p7$F_[p#!%?IFa[p7$Fh[pFiap7$Fh[p Ffap-F'6#7&7$F[apFfap7$F[apFiap7$F_apFiap7$F_apFfap-F'6#7&7$F_[p#!%gGF a[p7$F_[p#!%SGFa[p7$Fh[pF[cp7$Fh[pFhbp-F'6#7&7$F``pFhbp7$F``pF[cp7$Fd` pF[cp7$Fd`pFhbp-F'6#7&7$F[apFhbp7$F[apF[cp7$F_apF[cp7$F_apFhbpF[\\p-F' 6#7&7$#\"%!Q#Fa[pFb[p7$FadpFe[p7$#\"%gBFa[pFe[p7$FedpFb[p-F'6#7&7$#\"% gDFa[pFb[p7$F\\epFe[p7$#\"%SDFa[pFe[p7$F`epFb[p-F'6#7&7$F_\\pFfap7$F_ \\pFiap7$Fc\\pFiap7$Fc\\pFfap-F'6#7&7$F\\epFfap7$F\\epFiap7$F`epFiap7$ F`epFfap-F'6#7&7$F_\\pFhbp7$F_\\pF[cp7$Fc\\pF[cp7$Fc\\pFhbp-F'6#7&7$Fa dpFhbp7$FadpF[cp7$FedpF[cp7$FedpFhbp-F'6#7&7$F\\epFhbp7$F\\epF[cp7$F`e pF[cp7$F`epFhbpFf\\p-F'6#7&7$#\"%?HFa[pFb[p7$FjgpFe[p7$#\"%+HFa[pFe[p7 $F^hpFb[p-F'6#7&7$#\"%+JFa[pFb[p7$FehpFe[p7$#\"%!3$Fa[pFe[p7$FihpFb[p- F'6#7&7$Fj\\pFfap7$Fj\\pFiap7$F^]pFiap7$F^]pFfap-F'6#7&7$FehpFfap7$Feh pFiap7$FihpFiap7$FihpFfap-F'6#7&7$Fj\\pFhbp7$Fj\\pF[cp7$F^]pF[cp7$F^]p Fhbp-F'6#7&7$FjgpFhbp7$FjgpF[cp7$F^hpF[cp7$F^hpFhbp-F'6#7&7$FehpFhbp7$ FehpF[cp7$FihpF[cp7$FihpFhbpFa]p-F'6#7&7$F``pFe]p7$F``pFh]p7$Fd`pFh]p7 $Fd`pFe]p-F'6#7&7$F[apFe]p7$F[apFh]p7$F_apFh]p7$F_apFe]p-F'6#7&7$F_[p# !%+DFa[p7$F_[p#!%![#Fa[p7$Fh[pFd\\q7$Fh[pFa\\q-F'6#7&7$F[apFa\\q7$F[ap Fd\\q7$F_apFd\\q7$F_apFa\\q-F'6#7&7$F_[p#!%?BFa[p7$F_[p#!%+BFa[p7$Fh[p Ff]q7$Fh[pFc]q-F'6#7&7$F``pFc]q7$F``pFf]q7$Fd`pFf]q7$Fd`pFc]q-F'6#7&7$ F[apFc]q7$F[apFf]q7$F_apFf]q7$F_apFc]qF\\^p-F'6#7&7$FjgpFe]p7$FjgpFh]p 7$F^hpFh]p7$F^hpFe]p-F'6#7&7$FehpFe]p7$FehpFh]p7$FihpFh]p7$FihpFe]p-F' 6#7&7$Fj\\pFa\\q7$Fj\\pFd\\q7$F^]pFd\\q7$F^]pFa\\q-F'6#7&7$FehpFa\\q7$ FehpFd\\q7$FihpFd\\q7$FihpFa\\q-F'6#7&7$Fj\\pFc]q7$Fj\\pFf]q7$F^]pFf]q 7$F^]pFc]q-F'6#7&7$FjgpFc]q7$FjgpFf]q7$F^hpFf]q7$F^hpFc]q-F'6#7&7$Fehp Fc]q7$FehpFf]q7$FihpFf]q7$FihpFc]qFc^p-F'6#7&7$F``pFg^p7$F``pFj^p7$Fd` pFj^p7$Fd`pFg^p-F'6#7&7$F[apFg^p7$F[apFj^p7$F_apFj^p7$F_apFg^p-F'6#7&7 $F_[p#!%g>Fa[p7$F_[p#!%S>Fa[p7$Fh[pF^cq7$Fh[pF[cq-F'6#7&7$F[apF[cq7$F[ apF^cq7$F_apF^cq7$F_apF[cq-F'6#7&7$F_[p#!%!y\"Fa[p7$F_[p#!%gFa[pFb[p7$F`gsFe[p7$#\"%!)=Fa[pFe[ p7$FdgsFb[p-F'6#7&7$#\"%g>Fa[pFb[p7$F[hsFe[p7$#\"%S>Fa[pFe[p7$F_hsFb[p -F'6#7&7$F``pF^]r7$F``pFa]r7$Fd`pFa]r7$Fd`pF^]r-F'6#7&7$F[hsF^]r7$F[hs Fa]r7$F_hsFa]r7$F_hsF^]r-F'6#7&7$F``pF`^r7$F``pFc^r7$Fd`pFc^r7$Fd`pF`^ r-F'6#7&7$F`gsF`^r7$F`gsFc^r7$FdgsFc^r7$FdgsF`^r-F'6#7&7$F[hsF`^r7$F[h sFc^r7$F_hsFc^r7$F_hsF`^rFg`p-F'6#7&7$#\"%!3#Fa[pFb[p7$FijsFe[p7$#\"%g ?Fa[pFe[p7$F][tFb[p-F'6#7&7$#\"%S@Fa[pFb[p7$Fd[tFe[p7$#\"%?@Fa[pFe[p7$ Fh[tFb[p-F'6#7&7$F[apF^]r7$F[apFa]r7$F_apFa]r7$F_apF^]r-F'6#7&7$Fd[tF^ ]r7$Fd[tFa]r7$Fh[tFa]r7$Fh[tF^]r-F'6#7&7$F[apF`^r7$F[apFc^r7$F_apFc^r7 $F_apF`^r-F'6#7&7$FijsF`^r7$FijsFc^r7$F][tFc^r7$F][tF`^r-F'6#7&7$Fd[tF `^r7$Fd[tFc^r7$Fh[tFc^r7$Fh[tF`^rFbap-F'6#7&7$Fh[rFfap7$Fh[rFiap7$F\\ \\rFiap7$F\\\\rFfap-F'6#7&7$Fc\\rFfap7$Fc\\rFiap7$Fg\\rFiap7$Fg\\rFfap -F'6#7&7$F_[p#!%!)HFa[p7$F_[p#!%gHFa[p7$Fh[pFc_t7$Fh[pF`_t-F'6#7&7$Fc \\rF`_t7$Fc\\rFc_t7$Fg\\rFc_t7$Fg\\rF`_t-F'6#7&7$F_[p#!%?HFa[p7$F_[p#! %+HFa[p7$Fh[pFe`t7$Fh[pFb`t-F'6#7&7$Fh[rFb`t7$Fh[rFe`t7$F\\\\rFe`t7$F \\\\rFb`t-F'6#7&7$Fc\\rFb`t7$Fc\\rFe`t7$Fg\\rFe`t7$Fg\\rFb`tF]bp-F'6#7 &7$FijsFfap7$FijsFiap7$F][tFiap7$F][tFfap-F'6#7&7$Fd[tFfap7$Fd[tFiap7$ Fh[tFiap7$Fh[tFfap-F'6#7&7$F[apF`_t7$F[apFc_t7$F_apFc_t7$F_apF`_t-F'6# 7&7$Fd[tF`_t7$Fd[tFc_t7$Fh[tFc_t7$Fh[tF`_t-F'6#7&7$F[apFb`t7$F[apFe`t7 $F_apFe`t7$F_apFb`t-F'6#7&7$FijsFb`t7$FijsFe`t7$F][tFe`t7$F][tFb`t-F'6 #7&7$Fd[tFb`t7$Fd[tFe`t7$Fh[tFe`t7$Fh[tFb`tFdbp-F'6#7&7$Fh[rFhbp7$Fh[r F[cp7$F\\\\rF[cp7$F\\\\rFhbp-F'6#7&7$Fc\\rFhbp7$Fc\\rF[cp7$Fg\\rF[cp7$ Fg\\rFhbp-F'6#7&7$F_[p#!%+GFa[p7$F_[p#!%!y#Fa[p7$Fh[pF]ft7$Fh[pFjet-F' 6#7&7$Fc\\rFjet7$Fc\\rF]ft7$Fg\\rF]ft7$Fg\\rFjet-F'6#7&7$F_[p#!%SFFa[p 7$F_[p#!%?FFa[p7$Fh[pF_gt7$Fh[pF\\gt-F'6#7&7$Fh[rF\\gt7$Fh[rF_gt7$F\\ \\rF_gt7$F\\\\rF\\gt-F'6#7&7$Fc\\rF\\gt7$Fc\\rF_gt7$Fg\\rF_gt7$Fg\\rF \\gtF_cp-F'6#7&7$F`gsFhbp7$F`gsF[cp7$FdgsF[cp7$FdgsFhbp-F'6#7&7$F[hsFh bp7$F[hsF[cp7$F_hsF[cp7$F_hsFhbp-F'6#7&7$F``pFjet7$F``pF]ft7$Fd`pF]ft7 $Fd`pFjet-F'6#7&7$F[hsFjet7$F[hsF]ft7$F_hsF]ft7$F_hsFjet-F'6#7&7$F``pF \\gt7$F``pF_gt7$Fd`pF_gt7$Fd`pF\\gt-F'6#7&7$F`gsF\\gt7$F`gsF_gt7$FdgsF _gt7$FdgsF\\gt-F'6#7&7$F[hsF\\gt7$F[hsF_gt7$F_hsF_gt7$F_hsF\\gtFfcp-F' 6#7&7$FijsFhbp7$FijsF[cp7$F][tF[cp7$F][tFhbp-F'6#7&7$Fd[tFhbp7$Fd[tF[c p7$Fh[tF[cp7$Fh[tFhbp-F'6#7&7$F[apFjet7$F[apF]ft7$F_apF]ft7$F_apFjet-F '6#7&7$Fd[tFjet7$Fd[tF]ft7$Fh[tF]ft7$Fh[tFjet-F'6#7&7$F[apF\\gt7$F[apF _gt7$F_apF_gt7$F_apF\\gt-F'6#7&7$FijsF\\gt7$FijsF_gt7$F][tF_gt7$F][tF \\gt-F'6#7&7$Fd[tF\\gt7$Fd[tF_gt7$Fh[tF_gt7$Fh[tF\\gtF[\\pFe_rF``rF[ar FbarFiarF`brFgbrF]dp-F'6#7&7$#\"%SCFa[pFb[p7$Fg^uFe[p7$#\"%?CFa[pFe[p7 $F[_uFb[p-F'6#7&7$#\"%+DFa[pFb[p7$Fb_uFe[p7$#\"%![#Fa[pFe[p7$Ff_uFb[p- F'6#7&7$FadpF^]r7$FadpFa]r7$FedpFa]r7$FedpF^]r-F'6#7&7$Fb_uF^]r7$Fb_uF a]r7$Ff_uFa]r7$Ff_uF^]r-F'6#7&7$FadpF`^r7$FadpFc^r7$FedpFc^r7$FedpF`^r -F'6#7&7$Fg^uF`^r7$Fg^uFc^r7$F[_uFc^r7$F[_uF`^r-F'6#7&7$Fb_uF`^r7$Fb_u Fc^r7$Ff_uFc^r7$Ff_uF`^rFhdp-F'6#7&7$#\"%?EFa[pFb[p7$F`buFe[p7$#\"%+EF a[pFe[p7$FdbuFb[p-F'6#7&7$#\"%!o#Fa[pFb[p7$F[cuFe[p7$#\"%gEFa[pFe[p7$F _cuFb[p-F'6#7&7$F\\epF^]r7$F\\epFa]r7$F`epFa]r7$F`epF^]r-F'6#7&7$F[cuF ^]r7$F[cuFa]r7$F_cuFa]r7$F_cuF^]r-F'6#7&7$F\\epF`^r7$F\\epFc^r7$F`epFc ^r7$F`epF`^r-F'6#7&7$F`buF`^r7$F`buFc^r7$FdbuFc^r7$FdbuF`^r-F'6#7&7$F[ cuF`^r7$F[cuFc^r7$F_cuFc^r7$F_cuF`^rFcep-F'6#7&7$Fi_rFfap7$Fi_rFiap7$F ]`rFiap7$F]`rFfap-F'6#7&7$Fd`rFfap7$Fd`rFiap7$Fh`rFiap7$Fh`rFfap-F'6#7 &7$F_\\pF`_t7$F_\\pFc_t7$Fc\\pFc_t7$Fc\\pF`_t-F'6#7&7$Fd`rF`_t7$Fd`rFc _t7$Fh`rFc_t7$Fh`rF`_t-F'6#7&7$F_\\pFb`t7$F_\\pFe`t7$Fc\\pFe`t7$Fc\\pF b`t-F'6#7&7$Fi_rFb`t7$Fi_rFe`t7$F]`rFe`t7$F]`rFb`t-F'6#7&7$Fd`rFb`t7$F d`rFe`t7$Fh`rFe`t7$Fh`rFb`tFjep-F'6#7&7$F`buFfap7$F`buFiap7$FdbuFiap7$ FdbuFfap-F'6#7&7$F[cuFfap7$F[cuFiap7$F_cuFiap7$F_cuFfap-F'6#7&7$F\\epF `_t7$F\\epFc_t7$F`epFc_t7$F`epF`_t-F'6#7&7$F[cuF`_t7$F[cuFc_t7$F_cuFc_ t7$F_cuF`_t-F'6#7&7$F\\epFb`t7$F\\epFe`t7$F`epFe`t7$F`epFb`t-F'6#7&7$F `buFb`t7$F`buFe`t7$FdbuFe`t7$FdbuFb`t-F'6#7&7$F[cuFb`t7$F[cuFe`t7$F_cu Fe`t7$F_cuFb`tFafp-F'6#7&7$Fi_rFhbp7$Fi_rF[cp7$F]`rF[cp7$F]`rFhbp-F'6# 7&7$Fd`rFhbp7$Fd`rF[cp7$Fh`rF[cp7$Fh`rFhbp-F'6#7&7$F_\\pFjet7$F_\\pF]f t7$Fc\\pF]ft7$Fc\\pFjet-F'6#7&7$Fd`rFjet7$Fd`rF]ft7$Fh`rF]ft7$Fh`rFjet -F'6#7&7$F_\\pF\\gt7$F_\\pF_gt7$Fc\\pF_gt7$Fc\\pF\\gt-F'6#7&7$Fi_rF\\g t7$Fi_rF_gt7$F]`rF_gt7$F]`rF\\gt-F'6#7&7$Fd`rF\\gt7$Fd`rF_gt7$Fh`rF_gt 7$Fh`rF\\gtFhfp-F'6#7&7$Fg^uFhbp7$Fg^uF[cp7$F[_uF[cp7$F[_uFhbp-F'6#7&7 $Fb_uFhbp7$Fb_uF[cp7$Ff_uF[cp7$Ff_uFhbp-F'6#7&7$FadpFjet7$FadpF]ft7$Fe dpF]ft7$FedpFjet-F'6#7&7$Fb_uFjet7$Fb_uF]ft7$Ff_uF]ft7$Ff_uFjet-F'6#7& 7$FadpF\\gt7$FadpF_gt7$FedpF_gt7$FedpF\\gt-F'6#7&7$Fg^uF\\gt7$Fg^uF_gt 7$F[_uF_gt7$F[_uF\\gt-F'6#7&7$Fb_uF\\gt7$Fb_uF_gt7$Ff_uF_gt7$Ff_uF\\gt F_gp-F'6#7&7$F`buFhbp7$F`buF[cp7$FdbuF[cp7$FdbuFhbp-F'6#7&7$F[cuFhbp7$ F[cuF[cp7$F_cuF[cp7$F_cuFhbp-F'6#7&7$F\\epFjet7$F\\epF]ft7$F`epF]ft7$F `epFjet-F'6#7&7$F[cuFjet7$F[cuF]ft7$F_cuF]ft7$F_cuFjet-F'6#7&7$F\\epF \\gt7$F\\epF_gt7$F`epF_gt7$F`epF\\gt-F'6#7&7$F`buF\\gt7$F`buF_gt7$Fdbu F_gt7$FdbuF\\gt-F'6#7&7$F[cuF\\gt7$F[cuF_gt7$F_cuF_gt7$F_cuF\\gtFf\\pF ^crFicrFddrF[erFberFierF`frFfgp-F'6#7&7$#\"%!)HFa[pFb[p7$F^evFe[p7$#\" %gHFa[pFe[p7$FbevFb[p-F'6#7&7$#\"%SIFa[pFb[p7$FievFe[p7$#\"%?IFa[pFe[p 7$F]fvFb[p-F'6#7&7$FjgpF^]r7$FjgpFa]r7$F^hpFa]r7$F^hpF^]r-F'6#7&7$Fiev F^]r7$FievFa]r7$F]fvFa]r7$F]fvF^]r-F'6#7&7$FjgpF`^r7$FjgpFc^r7$F^hpFc^ r7$F^hpF`^r-F'6#7&7$F^evF`^r7$F^evFc^r7$FbevFc^r7$FbevF`^r-F'6#7&7$Fie vF`^r7$FievFc^r7$F]fvFc^r7$F]fvF`^rFahp-F'6#7&7$#\"%gJFa[pFb[p7$FghvFe [p7$#\"%SJFa[pFe[p7$F[ivFb[p-F'6#7&7$#\"%?KFa[pFb[p7$FbivFe[p7$#\"%+KF a[pFe[p7$FfivFb[p-F'6#7&7$FehpF^]r7$FehpFa]r7$FihpFa]r7$FihpF^]r-F'6#7 &7$FbivF^]r7$FbivFa]r7$FfivFa]r7$FfivF^]r-F'6#7&7$FehpF`^r7$FehpFc^r7$ FihpFc^r7$FihpF`^r-F'6#7&7$FghvF`^r7$FghvFc^r7$F[ivFc^r7$F[ivF`^r-F'6# 7&7$FbivF`^r7$FbivFc^r7$FfivFc^r7$FfivF`^rF\\ip-F'6#7&7$FbcrFfap7$Fbcr Fiap7$FfcrFiap7$FfcrFfap-F'6#7&7$F]drFfap7$F]drFiap7$FadrFiap7$FadrFfa p-F'6#7&7$Fj\\pF`_t7$Fj\\pFc_t7$F^]pFc_t7$F^]pF`_t-F'6#7&7$F]drF`_t7$F ]drFc_t7$FadrFc_t7$FadrF`_t-F'6#7&7$Fj\\pFb`t7$Fj\\pFe`t7$F^]pFe`t7$F^ ]pFb`t-F'6#7&7$FbcrFb`t7$FbcrFe`t7$FfcrFe`t7$FfcrFb`t-F'6#7&7$F]drFb`t 7$F]drFe`t7$FadrFe`t7$FadrFb`tFcip-F'6#7&7$FghvFfap7$FghvFiap7$F[ivFia p7$F[ivFfap-F'6#7&7$FbivFfap7$FbivFiap7$FfivFiap7$FfivFfap-F'6#7&7$Feh pF`_t7$FehpFc_t7$FihpFc_t7$FihpF`_t-F'6#7&7$FbivF`_t7$FbivFc_t7$FfivFc _t7$FfivF`_t-F'6#7&7$FehpFb`t7$FehpFe`t7$FihpFe`t7$FihpFb`t-F'6#7&7$Fg hvFb`t7$FghvFe`t7$F[ivFe`t7$F[ivFb`t-F'6#7&7$FbivFb`t7$FbivFe`t7$FfivF e`t7$FfivFb`tFjip-F'6#7&7$FbcrFhbp7$FbcrF[cp7$FfcrF[cp7$FfcrFhbp-F'6#7 &7$F]drFhbp7$F]drF[cp7$FadrF[cp7$FadrFhbp-F'6#7&7$Fj\\pFjet7$Fj\\pF]ft 7$F^]pF]ft7$F^]pFjet-F'6#7&7$F]drFjet7$F]drF]ft7$FadrF]ft7$FadrFjet-F' 6#7&7$Fj\\pF\\gt7$Fj\\pF_gt7$F^]pF_gt7$F^]pF\\gt-F'6#7&7$FbcrF\\gt7$Fb crF_gt7$FfcrF_gt7$FfcrF\\gt-F'6#7&7$F]drF\\gt7$F]drF_gt7$FadrF_gt7$Fad rF\\gtFajp-F'6#7&7$F^evFhbp7$F^evF[cp7$FbevF[cp7$FbevFhbp-F'6#7&7$Fiev Fhbp7$FievF[cp7$F]fvF[cp7$F]fvFhbp-F'6#7&7$FjgpFjet7$FjgpF]ft7$F^hpF]f t7$F^hpFjet-F'6#7&7$FievFjet7$FievF]ft7$F]fvF]ft7$F]fvFjet-F'6#7&7$Fjg pF\\gt7$FjgpF_gt7$F^hpF_gt7$F^hpF\\gt-F'6#7&7$F^evF\\gt7$F^evF_gt7$Fbe vF_gt7$FbevF\\gt-F'6#7&7$FievF\\gt7$FievF_gt7$F]fvF_gt7$F]fvF\\gtFhjp- F'6#7&7$FghvFhbp7$FghvF[cp7$F[ivF[cp7$F[ivFhbp-F'6#7&7$FbivFhbp7$FbivF [cp7$FfivF[cp7$FfivFhbp-F'6#7&7$FehpFjet7$FehpF]ft7$FihpF]ft7$FihpFjet -F'6#7&7$FbivFjet7$FbivF]ft7$FfivF]ft7$FfivFjet-F'6#7&7$FehpF\\gt7$Feh pF_gt7$FihpF_gt7$FihpF\\gt-F'6#7&7$FghvF\\gt7$FghvF_gt7$F[ivF_gt7$F[iv F\\gt-F'6#7&7$FbivF\\gt7$FbivF_gt7$FfivF_gt7$FfivF\\gtFa]pFgfrF^grFegr F`hrFghrFbirFiirF_[q-F'6#7&7$F`gsFe]p7$F`gsFh]p7$FdgsFh]p7$FdgsFe]p-F' 6#7&7$F[hsFe]p7$F[hsFh]p7$F_hsFh]p7$F_hsFe]p-F'6#7&7$F``pFigr7$F``pF\\ hr7$Fd`pF\\hr7$Fd`pFigr-F'6#7&7$F[hsFigr7$F[hsF\\hr7$F_hsF\\hr7$F_hsFi gr-F'6#7&7$F``pF[ir7$F``pF^ir7$Fd`pF^ir7$Fd`pF[ir-F'6#7&7$F`gsF[ir7$F` gsF^ir7$FdgsF^ir7$FdgsF[ir-F'6#7&7$F[hsF[ir7$F[hsF^ir7$F_hsF^ir7$F_hsF [irFf[q-F'6#7&7$FijsFe]p7$FijsFh]p7$F][tFh]p7$F][tFe]p-F'6#7&7$Fd[tFe] p7$Fd[tFh]p7$Fh[tFh]p7$Fh[tFe]p-F'6#7&7$F[apFigr7$F[apF\\hr7$F_apF\\hr 7$F_apFigr-F'6#7&7$Fd[tFigr7$Fd[tF\\hr7$Fh[tF\\hr7$Fh[tFigr-F'6#7&7$F[ apF[ir7$F[apF^ir7$F_apF^ir7$F_apF[ir-F'6#7&7$FijsF[ir7$FijsF^ir7$F][tF ^ir7$F][tF[ir-F'6#7&7$Fd[tF[ir7$Fd[tF^ir7$Fh[tF^ir7$Fh[tF[irF]\\q-F'6# 7&7$Fh[rFa\\q7$Fh[rFd\\q7$F\\\\rFd\\q7$F\\\\rFa\\q-F'6#7&7$Fc\\rFa\\q7 $Fc\\rFd\\q7$Fg\\rFd\\q7$Fg\\rFa\\q-F'6#7&7$F_[p#!%SCFa[p7$F_[p#!%?CFa [p7$Fh[pFhbx7$Fh[pFebx-F'6#7&7$Fc\\rFebx7$Fc\\rFhbx7$Fg\\rFhbx7$Fg\\rF ebx-F'6#7&7$F_[p#!%!Q#Fa[p7$F_[p#!%gBFa[p7$Fh[pFjcx7$Fh[pFgcx-F'6#7&7$ Fh[rFgcx7$Fh[rFjcx7$F\\\\rFjcx7$F\\\\rFgcx-F'6#7&7$Fc\\rFgcx7$Fc\\rFjc x7$Fg\\rFjcx7$Fg\\rFgcxFh\\q-F'6#7&7$FijsFa\\q7$FijsFd\\q7$F][tFd\\q7$ F][tFa\\q-F'6#7&7$Fd[tFa\\q7$Fd[tFd\\q7$Fh[tFd\\q7$Fh[tFa\\q-F'6#7&7$F [apFebx7$F[apFhbx7$F_apFhbx7$F_apFebx-F'6#7&7$Fd[tFebx7$Fd[tFhbx7$Fh[t Fhbx7$Fh[tFebx-F'6#7&7$F[apFgcx7$F[apFjcx7$F_apFjcx7$F_apFgcx-F'6#7&7$ FijsFgcx7$FijsFjcx7$F][tFjcx7$F][tFgcx-F'6#7&7$Fd[tFgcx7$Fd[tFjcx7$Fh[ tFjcx7$Fh[tFgcxF_]q-F'6#7&7$Fh[rFc]q7$Fh[rFf]q7$F\\\\rFf]q7$F\\\\rFc]q -F'6#7&7$Fc\\rFc]q7$Fc\\rFf]q7$Fg\\rFf]q7$Fg\\rFc]q-F'6#7&7$F_[p#!%gAF a[p7$F_[p#!%SAFa[p7$Fh[pFbix7$Fh[pF_ix-F'6#7&7$Fc\\rF_ix7$Fc\\rFbix7$F g\\rFbix7$Fg\\rF_ix-F'6#7&7$F_[p#!%+AFa[p7$F_[p#!%!=#Fa[p7$Fh[pFdjx7$F h[pFajx-F'6#7&7$Fh[rFajx7$Fh[rFdjx7$F\\\\rFdjx7$F\\\\rFajx-F'6#7&7$Fc \\rFajx7$Fc\\rFdjx7$Fg\\rFdjx7$Fg\\rFajxFj]q-F'6#7&7$F`gsFc]q7$F`gsFf] q7$FdgsFf]q7$FdgsFc]q-F'6#7&7$F[hsFc]q7$F[hsFf]q7$F_hsFf]q7$F_hsFc]q-F '6#7&7$F``pF_ix7$F``pFbix7$Fd`pFbix7$Fd`pF_ix-F'6#7&7$F[hsF_ix7$F[hsFb ix7$F_hsFbix7$F_hsF_ix-F'6#7&7$F``pFajx7$F``pFdjx7$Fd`pFdjx7$Fd`pFajx- F'6#7&7$F`gsFajx7$F`gsFdjx7$FdgsFdjx7$FdgsFajx-F'6#7&7$F[hsFajx7$F[hsF djx7$F_hsFdjx7$F_hsFajxFa^q-F'6#7&7$FijsFc]q7$FijsFf]q7$F][tFf]q7$F][t Fc]q-F'6#7&7$Fd[tFc]q7$Fd[tFf]q7$Fh[tFf]q7$Fh[tFc]q-F'6#7&7$F[apF_ix7$ F[apFbix7$F_apFbix7$F_apF_ix-F'6#7&7$Fd[tF_ix7$Fd[tFbix7$Fh[tFbix7$Fh[ tF_ix-F'6#7&7$F[apFajx7$F[apFdjx7$F_apFdjx7$F_apFajx-F'6#7&7$FijsFajx7 $FijsFdjx7$F][tFdjx7$F][tFajx-F'6#7&7$Fd[tFajx7$Fd[tFdjx7$Fh[tFdjx7$Fh [tFajxF\\^pF`jrFgjrF^[sFe[sF\\\\sFc\\sFj\\sFh^q-F'6#7&7$F^evFe]p7$F^ev Fh]p7$FbevFh]p7$FbevFe]p-F'6#7&7$FievFe]p7$FievFh]p7$F]fvFh]p7$F]fvFe] p-F'6#7&7$FjgpFigr7$FjgpF\\hr7$F^hpF\\hr7$F^hpFigr-F'6#7&7$FievFigr7$F ievF\\hr7$F]fvF\\hr7$F]fvFigr-F'6#7&7$FjgpF[ir7$FjgpF^ir7$F^hpF^ir7$F^ hpF[ir-F'6#7&7$F^evF[ir7$F^evF^ir7$FbevF^ir7$FbevF[ir-F'6#7&7$FievF[ir 7$FievF^ir7$F]fvF^ir7$F]fvF[irF__q-F'6#7&7$FghvFe]p7$FghvFh]p7$F[ivFh] p7$F[ivFe]p-F'6#7&7$FbivFe]p7$FbivFh]p7$FfivFh]p7$FfivFe]p-F'6#7&7$Feh pFigr7$FehpF\\hr7$FihpF\\hr7$FihpFigr-F'6#7&7$FbivFigr7$FbivF\\hr7$Ffi vF\\hr7$FfivFigr-F'6#7&7$FehpF[ir7$FehpF^ir7$FihpF^ir7$FihpF[ir-F'6#7& 7$FghvF[ir7$FghvF^ir7$F[ivF^ir7$F[ivF[ir-F'6#7&7$FbivF[ir7$FbivF^ir7$F fivF^ir7$FfivF[irFf_q-F'6#7&7$FbcrFa\\q7$FbcrFd\\q7$FfcrFd\\q7$FfcrFa \\q-F'6#7&7$F]drFa\\q7$F]drFd\\q7$FadrFd\\q7$FadrFa\\q-F'6#7&7$Fj\\pFe bx7$Fj\\pFhbx7$F^]pFhbx7$F^]pFebx-F'6#7&7$F]drFebx7$F]drFhbx7$FadrFhbx 7$FadrFebx-F'6#7&7$Fj\\pFgcx7$Fj\\pFjcx7$F^]pFjcx7$F^]pFgcx-F'6#7&7$Fb crFgcx7$FbcrFjcx7$FfcrFjcx7$FfcrFgcx-F'6#7&7$F]drFgcx7$F]drFjcx7$FadrF jcx7$FadrFgcxF]`q-F'6#7&7$FghvFa\\q7$FghvFd\\q7$F[ivFd\\q7$F[ivFa\\q-F '6#7&7$FbivFa\\q7$FbivFd\\q7$FfivFd\\q7$FfivFa\\q-F'6#7&7$FehpFebx7$Fe hpFhbx7$FihpFhbx7$FihpFebx-F'6#7&7$FbivFebx7$FbivFhbx7$FfivFhbx7$FfivF ebx-F'6#7&7$FehpFgcx7$FehpFjcx7$FihpFjcx7$FihpFgcx-F'6#7&7$FghvFgcx7$F ghvFjcx7$F[ivFjcx7$F[ivFgcx-F'6#7&7$FbivFgcx7$FbivFjcx7$FfivFjcx7$Ffiv FgcxFd`q-F'6#7&7$FbcrFc]q7$FbcrFf]q7$FfcrFf]q7$FfcrFc]q-F'6#7&7$F]drFc ]q7$F]drFf]q7$FadrFf]q7$FadrFc]q-F'6#7&7$Fj\\pF_ix7$Fj\\pFbix7$F^]pFbi x7$F^]pF_ix-F'6#7&7$F]drF_ix7$F]drFbix7$FadrFbix7$FadrF_ix-F'6#7&7$Fj \\pFajx7$Fj\\pFdjx7$F^]pFdjx7$F^]pFajx-F'6#7&7$FbcrFajx7$FbcrFdjx7$Ffc rFdjx7$FfcrFajx-F'6#7&7$F]drFajx7$F]drFdjx7$FadrFdjx7$FadrFajxF[aq-F'6 #7&7$F^evFc]q7$F^evFf]q7$FbevFf]q7$FbevFc]q-F'6#7&7$FievFc]q7$FievFf]q 7$F]fvFf]q7$F]fvFc]q-F'6#7&7$FjgpF_ix7$FjgpFbix7$F^hpFbix7$F^hpF_ix-F' 6#7&7$FievF_ix7$FievFbix7$F]fvFbix7$F]fvF_ix-F'6#7&7$FjgpFajx7$FjgpFdj x7$F^hpFdjx7$F^hpFajx-F'6#7&7$F^evFajx7$F^evFdjx7$FbevFdjx7$FbevFajx-F '6#7&7$FievFajx7$FievFdjx7$F]fvFdjx7$F]fvFajxFbaq-F'6#7&7$FghvFc]q7$Fg hvFf]q7$F[ivFf]q7$F[ivFc]q-F'6#7&7$FbivFc]q7$FbivFf]q7$FfivFf]q7$FfivF c]q-F'6#7&7$FehpF_ix7$FehpFbix7$FihpFbix7$FihpF_ix-F'6#7&7$FbivF_ix7$F bivFbix7$FfivFbix7$FfivF_ix-F'6#7&7$FehpFajx7$FehpFdjx7$FihpFdjx7$Fihp Fajx-F'6#7&7$FghvFajx7$FghvFdjx7$F[ivFdjx7$F[ivFajx-F'6#7&7$FbivFajx7$ FbivFdjx7$FfivFdjx7$FfivFajxFc^pFa]sFh]sF_^sFj^sFa_sF\\`sFc`sFiaq-F'6# 7&7$F`gsFg^p7$F`gsFj^p7$FdgsFj^p7$FdgsFg^p-F'6#7&7$F[hsFg^p7$F[hsFj^p7 $F_hsFj^p7$F_hsFg^p-F'6#7&7$F``pFc^s7$F``pFf^s7$Fd`pFf^s7$Fd`pFc^s-F'6 #7&7$F[hsFc^s7$F[hsFf^s7$F_hsFf^s7$F_hsFc^s-F'6#7&7$F``pFe_s7$F``pFh_s 7$Fd`pFh_s7$Fd`pFe_s-F'6#7&7$F`gsFe_s7$F`gsFh_s7$FdgsFh_s7$FdgsFe_s-F' 6#7&7$F[hsFe_s7$F[hsFh_s7$F_hsFh_s7$F_hsFe_sF`bq-F'6#7&7$FijsFg^p7$Fij sFj^p7$F][tFj^p7$F][tFg^p-F'6#7&7$Fd[tFg^p7$Fd[tFj^p7$Fh[tFj^p7$Fh[tFg ^p-F'6#7&7$F[apFc^s7$F[apFf^s7$F_apFf^s7$F_apFc^s-F'6#7&7$Fd[tFc^s7$Fd [tFf^s7$Fh[tFf^s7$Fh[tFc^s-F'6#7&7$F[apFe_s7$F[apFh_s7$F_apFh_s7$F_apF e_s-F'6#7&7$FijsFe_s7$FijsFh_s7$F][tFh_s7$F][tFe_s-F'6#7&7$Fd[tFe_s7$F d[tFh_s7$Fh[tFh_s7$Fh[tFe_sFgbq-F'6#7&7$Fh[rF[cq7$Fh[rF^cq7$F\\\\rF^cq 7$F\\\\rF[cq-F'6#7&7$Fc\\rF[cq7$Fc\\rF^cq7$Fg\\rF^cq7$Fg\\rF[cq-F'6#7& 7$F_[p#!%+>Fa[p7$F_[p#!%!)=Fa[p7$Fh[pFf^[l7$Fh[pFc^[l-F'6#7&7$Fc\\rFc^ [l7$Fc\\rFf^[l7$Fg\\rFf^[l7$Fg\\rFc^[l-F'6#7&7$F_[p#!%S=Fa[p7$F_[p#!%? =Fa[p7$Fh[pFh_[l7$Fh[pFe_[l-F'6#7&7$Fh[rFe_[l7$Fh[rFh_[l7$F\\\\rFh_[l7 $F\\\\rFe_[l-F'6#7&7$Fc\\rFe_[l7$Fc\\rFh_[l7$Fg\\rFh_[l7$Fg\\rFe_[lFbc q-F'6#7&7$FijsF[cq7$FijsF^cq7$F][tF^cq7$F][tF[cq-F'6#7&7$Fd[tF[cq7$Fd[ tF^cq7$Fh[tF^cq7$Fh[tF[cq-F'6#7&7$F[apFc^[l7$F[apFf^[l7$F_apFf^[l7$F_a pFc^[l-F'6#7&7$Fd[tFc^[l7$Fd[tFf^[l7$Fh[tFf^[l7$Fh[tFc^[l-F'6#7&7$F[ap Fe_[l7$F[apFh_[l7$F_apFh_[l7$F_apFe_[l-F'6#7&7$FijsFe_[l7$FijsFh_[l7$F ][tFh_[l7$F][tFe_[l-F'6#7&7$Fd[tFe_[l7$Fd[tFh_[l7$Fh[tFh_[l7$Fh[tFe_[l Ficq-F'6#7&7$Fh[rF]dq7$Fh[rF`dq7$F\\\\rF`dq7$F\\\\rF]dq-F'6#7&7$Fc\\rF ]dq7$Fc\\rF`dq7$Fg\\rF`dq7$Fg\\rF]dq-F'6#7&7$F_[p#!%? " 0 "" {MPLTEXT 1 0 18 "a[n]:=8^(n-1)/9^n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>&%\"aG6#%\"nG*&)\"\"),&F'\"\"\"!\"\"F,\"\"\")\"\"*F'!\"\"" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 48 "Celkovy obsah Sierpinskeho koberce pak spocteme:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "P:=1-Sum( a[n], n=1..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"PG,&\"\" \"F&-%$SumG6$*&)\"\"),&%\"nGF&!\"\"F&\"\"\")\"\"*F.!\"\"/F.;F&%)infini tyGF/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(P);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "Rada" }{XPPEDIT 18 0 "Sum(a[n],n = 1 .. infinity);" "6#-%$SumG6$&%\"a G6#%\"nG/F);\"\"\"%)infinityG" }{TEXT -1 71 " je geometrickou radou, p ro urceni jejiho souctu muzeme pouzit procedur" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 432 "kvocgeom := proc (rada) local i; global opera t, kvoc, b, a; b := expand(rada); if type(b,`+`) then operat := nops(b ); for i to operat do kvoc[i] := simplify(subs(n = n+1,op(i,b))/op(i,b )); a[i] := simplify(op(i,b)/(kvoc[i]^(n-1))); lprint(evaln(kvoc[i]) = kvoc[i]); lprint(evaln(a[i]) = a[i]) od else operat := 1; kvoc := sim plify(subs(n = n+1,b)/b); a := simplify(b/(kvoc^(n-1))); lprint(('kvoc ') = kvoc); lprint(('a') = a) fi end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "kvocgeom(a[n]);" }}{PARA 6 "" 1 "" {TEXT -1 10 "kvoc \+ = 8/9" }}{PARA 6 "" 1 "" {TEXT -1 7 "a = 1/9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "geom := proc (k, fclen) local s, i; s := 0; if \+ 1 < operat then for i to operat\ndo s := s+fclen[i]/(1-k[i]) od else s := fclen/(1-k) fi end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " geom(kvoc,a);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\" " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 69 "Dostali jsme tedy P=1-1=0 a o bsah Sierpinskeho koberce je roven nule." }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 35 "Sierpinskeho trojuhelnik a pyramida" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 20 "restart;with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 636 "serp1 := proc(\nL::algebraic, lev::integer, x0: :algebraic, y0::algebraic)\nglobal p, s;\noption remember;\n if s = 0 then p[0] := plots[polygonplot](\n [[x0, y0], [x0 + 2*L, y0] , [x0, y0 + 2*L]],\n style = line)\n fi;\n s := s + 1;\n \+ p[s] := plots[polygonplot](\n [[x0, y0 + L], [x0 + L, y0 + L ], [x0 + L, y0]],\n color = green);\n if 1 < lev then\n \+ serp1(1/2*L, lev - 1, x0, y0);\n serp1(1/2*L, lev - 1, x0 + \+ L, y0);\n serp1(1/2*L, lev - 1, x0, y0 + L)\n fi;\n RETUR N(plots[display](\n [seq(p[i], i = 0 .. 1/2*3^lev - 1/2)],\n \+ scaling = constrained, axes = none))\nend:\n\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "tr:=array(1..2,1..2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "s:=0:tr[1,1]:=serp1(100,1,0,0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "s:=0:tr[1,2]:=serp1(100,2,0,0):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "s:=0:tr[2,1]:=serp1(100,3,0 ,0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "s:=0:tr[2,2]:=serp1 (100,4,0,0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "display(tr) ;" }}{PARA 13 "" 1 "" {INLPLOT "6]o-%)POLYGONSG6$7%7$$\"+++++?!\")$!++ +++5F*7$$\"+++++SF*F+7$F($\"+++++5F*-%&STYLEG6#%%LINEG-F$6$7%7$F(\"\"! 7$$\"+++++IF*F;7$F=F+-%'COLOURG6&%$RGBGF;$\"*++++\"F*F;-F$6$7%7$F($!++ +++]!\"*7$$\"+++++DF*FJ7$FNF+F@-F$6$7%7$F=FJ7$$\"+++++NF*FJ7$FVF+F@-F$ 6$7%7$F($\"*++++&F*7$FNFgn7$FNF;F@-F$6$7%7$F+F+7$F1F+7$F+F1F3-F$6$7%7$ F+F;7$F;F;7$F;F+F@-F$6$7%7$F($!+++++SF*7$F.F[p7$F($!+++++?F*F3-F$6$7%7 $F($!+++++IF*7$F=Fep7$F=F[pF@-F$6$7%7$F($!+++++NF*7$FNF]q7$FNF[pF@-F$6 $7%7$F($!++++]PF*7$$\"++++]AF*Feq7$FhqF[pF@-F$6$7%7$F($!++++vQF*7$$\"+ +++D@F*F_r7$FbrF[pF@-F$6$7%7$FhqF_r7$$\"++++vBF*F_r7$FjrF[pF@-F$6$7%7$ F($!++++DOF*7$FbrFas7$FbrFeqF@-F$6$7%7$FNFeq7$$\"++++]FF*Feq7$FjsF[pF@ -F$6$7%7$FNF_r7$$\"++++DEF*F_r7$FbtF[pF@-F$6$7%7$FjsF_r7$$\"++++vGF*F_ r7$FjtF[pF@-F$6$7%7$FNFas7$FbtFas7$FbtFeqF@-F$6$7%7$F($!++++]KF*7$FhqF gu7$FhqF]qF@-F$6$7%7$F($!++++vLF*7$FbrF_v7$FbrF]qF@-F$6$7%7$FhqF_v7$Fj rF_v7$FjrF]qF@-F$6$7%7$F($!++++DJF*7$FbrF]w7$FbrFguF@-F$6$7%7$F=F]q7$F VF]q7$FVF[pF@-F$6$7%7$F=Feq7$$\"++++]KF*Feq7$F\\xF[pF@-F$6$7%7$F=F_r7$ $\"++++DJF*F_r7$FdxF[pF@-F$6$7%7$F\\xF_r7$$\"++++vLF*F_r7$F\\yF[pF@-F$ 6$7%7$F=Fas7$FdxFas7$FdxFeqF@-F$6$7%7$FVFeq7$$\"++++]PF*Feq7$FjyF[pF@- F$6$7%7$FVF_r7$$\"++++DOF*F_r7$FbzF[pF@-F$6$7%7$FjyF_r7$$\"++++vQF*F_r 7$FjzF[pF@-F$6$7%7$FVFas7$FbzFas7$FbzFeqF@-F$6$7%7$F=Fgu7$F\\xFgu7$F\\ xF]qF@-F$6$7%7$F=F_v7$FdxF_v7$FdxF]qF@-F$6$7%7$F\\xF_v7$F\\yF_v7$F\\yF ]qF@-F$6$7%7$F=F]w7$FdxF]w7$FdxFguF@-F$6$7%7$F($!+++++DF*7$FNF_]l7$FNF epF@-F$6$7%7$F($!++++]FF*7$FhqFg]l7$FhqFepF@-F$6$7%7$F($!++++vGF*7$Fbr F_^l7$FbrFepF@-F$6$7%7$FhqF_^l7$FjrF_^l7$FjrFepF@-F$6$7%7$F($!++++DEF* 7$FbrF]_l7$FbrFg]lF@-F$6$7%7$FNFg]l7$FjsFg]l7$FjsFepF@-F$6$7%7$FNF_^l7 $FbtF_^l7$FbtFepF@-F$6$7%7$FjsF_^l7$FjtF_^l7$FjtFepF@-F$6$7%7$FNF]_l7$ FbtF]_l7$FbtFg]lF@-F$6$7%7$F($!++++]AF*7$FhqF]al7$FhqF_]lF@-F$6$7%7$F( $!++++vBF*7$FbrFeal7$FbrF_]lF@-F$6$7%7$FhqFeal7$FjrFeal7$FjrF_]lF@-F$6 $7%7$F($!++++D@F*7$FbrFcbl7$FbrF]alF@-F$6$7%7$F+F[p7$F1F[p7$F+F_pF3-F$ 6$7%7$F+Fep7$F;Fep7$F;F[pF@-F$6$7%7$F+F]q7$FJF]q7$FJF[pF@-F$6$7%7$F+Fe q7$$!+++++vFLFeq7$F^dlF[pF@-F$6$7%7$FJFeq7$$F`]lFLFeq7$FfdlF[pF@-F$6$7 %7$F+Fgu7$F^dlFgu7$F^dlF]qF@-F$6$7%7$F;F]q7$FgnF]q7$FgnF[pF@-F$6$7%7$F ;Feq7$$\"*+++]#F*Feq7$FielF[pF@-F$6$7%7$FgnFeq7$$\"*+++](F*Feq7$FaflF[ pF@-F$6$7%7$F;Fgu7$FielFgu7$FielF]qF@-F$6$7%7$F+F_]l7$FJF_]l7$FJFepF@- F$6$7%7$F+Fg]l7$F^dlFg]l7$F^dlFepF@-F$6$7%7$FJFg]l7$FfdlFg]l7$FfdlFepF @-F$6$7%7$F+F]al7$F^dlF]al7$F^dlF_]lF@-%'CURVESG6\"-%(SCALINGG6#%,CONS TRAINEDG-%*AXESSTYLEG6#%%NONEG" 2 400 300 300 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restar t;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 198 "Tetra := proc(verts) \n local a,b,c,d; \n a := verts[1]; \n b := verts[2 ]; \n c := verts[3];\n d := verts[4];\n RETURN( [[a ,b,c], [a,b,d], [a,c,d], [b,c,d]]);\n end:\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 90 "Midpoint := proc(a,b) \n RETURN( [(a[1]+b[1 ])/2, (a[2]+b[2])/2, (a[3]+b[3])/2]); \n end:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 403 "Refine := proc (tetra) \n local a,b,c,d; \n a:=tetra[1]; \n b:=tetra[2]; \n c:=tetra[3]; \n \+ d:=tetra[4]; \n RETURN( [a, Midpoint(a,b), Midpoint(a,c), Midp oint(a,d)], \n [b, Midpoint(a,b), Midpoint(b,c), Midpoi nt(b,d)], \n [c, Midpoint(c,b), Midpoint(a,c), Midpoint( c,d)], \n [d, Midpoint(d,b), Midpoint(d,c), Midpoint(a,d )]); \n end:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "Refi neAll := proc(tlist) \n RETURN(map(Refine,tlist)); \n end: " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 144 "Recurse := proc(f, input, n ) \n if ( n <= 0) then \n RETURN(input); \n else \n \+ RETURN(Recurse(f, f(input), n-1)); \n fi; \n end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "FirstT := [[-1,-1,0],[0,sqrt(3)-1,0 ],[1,-1,0],[0,sqrt(3)/3-1,2*sqrt(15)/5]]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "setoptions3d(axes=none, scaling=constrained,shading=XY,style=pat ch,orientation=[60,48]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "polygonplot3d(map(Tetra,[Refine(FirstT)]),title=`Sierpinski Pyramid, \+ level 1`); " }}{PARA 13 "" 1 "" {INLPLOT "6,-%)POLYGONSG6&7%7%$!\"\"\" \"!F(F*7%$!+++++]!#5$!+gfuR8F.F*7%F*F(F*7%F'F+7%F,$!+`'[K6(F.$\"+#pmfu (F.7%F'F1F37%F+F1F3-F$6&7%7%F*$\"*330K(!\"*F*F+7%$\"+++++]F.F/F*7%F=F+ 7%F*$\"*R0qa\"F@F67%F=FAFE7%F+FAFE-F$6&7%7%$\"\"\"F*F(F*FAF17%FMFA7%FB F4F67%FMF1FQ7%FAF1FQ-F$6&7%7%F*$!+2t\\EUF.$\"+QL>\\:F@FEFQ7%FWFEF37%FW FQF37%FEFQF3-%'COLOURG6#%*XYSHADINGG-%*AXESSTYLEG6#%%NONEG-%&TITLEG6#% " 0 "" {MPLTEXT 1 0 93 "polygonplot3d(map(Tetra,Recurse(RefineAll,[FirstT],4)), title=`S ierpinski Pyramid, level 4`);" }}{PARA 13 "" 1 "" {INLPLOT "6b[l-%)POL YGONSG6&7%7%$!\"\"\"\"!F(F*7%$!++++v$*!#5$!+X#ou\"*)F.F*7%$!++++]()F.F (F*7%F'F+7%F,$!+#3c\"R'*F.$\"+l$eCo*!#67%F'F1F57%F+F1F5-F$6&7%7%F2$!+! \\O\\$yF.F*F+7%$!++++D\")F.F/F*7%F@F+7%F2$!+FVic&)F.F87%F@FCFG7%F+FCFG -F$6&7%7%$!+++++vF.F(F*FCF17%FOFC7%FDF6F87%FOF1FS7%FCF1FS-F$6&7%7%F2$! +j@Jy#*F.$\"+t;\\O>F.FGFS7%FYFGF57%FYFSF57%FGFSF5-F$6&7%7%FP$!+!)H()pc F.F*7%FD$!+NZS_nF.F*7%$!++++voF.FboF*7%F^oFao7%FP$!+<3c\"R'F.F87%F^oFd oFho7%FaoFdoFho-F$6&7%F@Fao7%FPFAF*7%F@Fao7%FD$!+sD4uuF.F87%F@F`pFbp7% FaoF`pFbp-F$6&7%7%$!++++]iF.FAF*F`pFdo7%FjpF`p7%FeoFcpF87%FjpFdoF^q7%F `pFdoF^q-F$6&7%7%FP$!+`'[K6(F.FfnFbpF^q7%FdqFbpFho7%FdqF^qFho7%FbpF^qF ho-F$6&7%7%$!+++++]F.F(F*7%$!++++DcF.F/F*7%F[qF(F*7%F]rF`r7%FarF6F87%F ]rFcrFer7%F`rFcrFer-F$6&7%FjpF`r7%FeoF/F*7%FjpF`r7%F[qFHF87%FjpF[sF]s7 %F`rF[sF]s-F$6&7%FOF[sFcr7%FOF[s7%FeoF6F87%FOFcrFds7%F[sFcrFds-F$6&7%7 %F[qFZFfnF]sFds7%FjsF]sFer7%FjsFdsFer7%F]sFdsFer-F$6&7%7%FPFH$\"+YL)H( QF.7%FPFA$\"+5vt/HF.7%FeoF/Fet7%FatFdt7%FDF/Fet7%FatFgtFit7%FdtFgtFit- F$6&7%FdqFdt7%Feo$!+3/y&>)F.Ffn7%FdqFdt7%FDF`uFfn7%FdqF_uFcu7%FdtF_uFc u-F$6&7%FjsF_uFgt7%FjsF_u7%FPFZFfn7%FjsFgtFju7%F_uFgtFju-F$6&7%FYFcuFj u7%FYFcuFit7%FYFjuFit7%FcuFjuFit-F$6&7%7%F^r$!+gfuR8F.F*7%Far$!+:xFACF .F*7%$!++++vVF.FjvF*7%FfvFiv7%F^r$!+(zL91#F.F87%FfvF\\wF`w7%FivF\\wF`w -F$6&7%7%F[q$!+q%4[]$F.F*Fiv7%F^rFiwF*7%FhwFiv7%Far$!+_b'R9$F.F87%FhwF [xF]x7%FivF[xF]x-F$6&7%7%$!++++]PF.FiwF*F[xF\\w7%FexF[x7%F]wF^xF87%Fex F\\wFix7%F[xF\\wFix-F$6&7%7%F^r$!+L;7$y#F.FfnF]xFix7%F_yF]xF`w7%F_yFix F`w7%F]xFixF`w-F$6&7%F^o7%Feo$!+D7M(e%F.F*7%F[qF_oF*7%F^oFhy7%Feo$!+i! H!4`F.F87%F^oF[zF]z7%FhyF[zF]z-F$6&7%FhwFhy7%FarFiyF*7%FhwFhy7%F[q$!+2 t\\EUF.F87%FhwFezFgz7%FhyFezFgz-F$6&7%7%F^rF_oF*FezF[z7%F_[lFez7%FarF^ zF87%F_[lF[zFa[l7%FezF[zFa[l-F$6&7%7%F[q$!+V^=[\\F.FfnFgzFa[l7%Fg[lFgz F]z7%Fg[lFa[lF]z7%FgzFa[lF]z-F$6&7%7%$!+++++DF.F_oF*7%FfxF_oF*7%$!++++ DJF.FiyF*7%F`\\lFc\\l7%Fe\\lF^zF87%F`\\lFd\\lFh\\l7%Fc\\lFd\\lFh\\l-F$ 6&7%F_[lFc\\l7%F]wFiyF*7%F_[lFc\\l7%F]wF^zF87%F_[lF^]lF`]l7%Fc\\lF^]lF `]l-F$6&7%FexF^]lFd\\l7%FexF^]l7%FfxFhzF87%FexFd\\lFg]l7%F^]lFd\\lFg]l -F$6&7%7%FfxFh[lFfnF`]lFg]l7%F]^lF`]lFh\\l7%F]^lFg]lFh\\l7%F`]lFg]lFh \\l-F$6&7%7%F^rFhzFbt7%FarFiyFet7%F]wFiyFet7%Fd^lFe^l7%F^rFiwFet7%Fd^l Ff^lFh^l7%Fe^lFf^lFh^l-F$6&7%Fg[lFe^l7%F^rFh[lFfn7%Fg[lFe^l7%Far$!+)Q` c'QF.Ffn7%Fg[lF^_lF`_l7%Fe^lF^_lF`_l-F$6&7%F]^lF^_lFf^l7%F]^lF^_l7%F]w Fa_lFfn7%F]^lFf^lFi_l7%F^_lFf^lFi_l-F$6&7%F_yF`_lFi_l7%F_yF`_lFh^l7%F_ yFi_lFh^l7%F`_lFi_lFh^l-F$6&7%7%F*F(F*7%$F\\qF:F/F*7%$!++++]7F.F(F*7%F e`lFf`l7%Fg`lF6F87%Fe`lFh`lF\\al7%Ff`lFh`lF\\al-F$6&7%7%Fi`lFAF*Ff`l7% $!++++v=F.F/F*7%FbalFf`l7%Fi`lFHF87%FbalFcalFgal7%Ff`lFcalFgal-F$6&7%7 %Fa\\lF(F*FcalFh`l7%F]blFcal7%FdalF6F87%F]blFh`lF_bl7%FcalFh`lF_bl-F$6 &7%7%Fi`lFZFfnFgalF_bl7%FeblFgalF\\al7%FeblF_blF\\al7%FgalF_blF\\al-F$ 6&7%F`\\l7%FdalFboF*7%Fe\\lFboF*7%F`\\lF\\cl7%Fa\\lFioF87%F`\\lF]clF_c l7%F\\clF]clF_cl-F$6&7%FbalF\\cl7%Fa\\lFAF*7%FbalF\\cl7%FdalFcpF87%Fba lFeclFgcl7%F\\clFeclFgcl-F$6&7%7%FfxFAF*FeclF]cl7%F]dlFecl7%Fe\\lFcpF8 7%F]dlF]clF_dl7%FeclF]clF_dl-F$6&7%7%Fa\\lFeqFfnFgclF_dl7%FedlFgclF_cl 7%FedlF_dlF_cl7%FgclF_dlF_cl-F$6&7%F]r7%F]wF/F*7%FfxF(F*7%F]rF\\el7%F] wF6F87%F]rF]elF_el7%F\\elF]elF_el-F$6&7%F]dlF\\el7%Fe\\lF/F*7%F]dlF\\e l7%FfxFHF87%F]dlFeelFgel7%F\\elFeelFgel-F$6&7%F]blFeelF]el7%F]blFeel7% Fe\\lF6F87%F]blF]elF^fl7%FeelF]elF^fl-F$6&7%7%FfxFZFfnFgelF^fl7%FdflFg elF_el7%FdflF^flF_el7%FgelF^flF_el-F$6&7%7%Fa\\lFHFbt7%Fa\\lFAFet7%Fe \\lF/Fet7%F[glF\\gl7%FdalF/Fet7%F[glF]glF_gl7%F\\glF]glF_gl-F$6&7%Fedl F\\gl7%Fe\\lF`uFfn7%FedlF\\gl7%FdalF`uFfn7%FedlFeglFggl7%F\\glFeglFggl -F$6&7%FdflFeglF]gl7%FdflFegl7%Fa\\lFZFfn7%FdflF]glF^hl7%FeglF]glF^hl- F$6&7%FeblFgglF^hl7%FeblFgglF_gl7%FeblF^hlF_gl7%FgglF^hlF_gl-F$6&7%7%F ^rFeq$\"+#pmfu(F.7%F^rFio$\"+c3sxnF.7%F]wFcpF^il7%FjhlF]il7%FarFcpF^il 7%FjhlF`ilFbil7%F]ilF`ilFbil-F$6&7%7%F^rF_o$\"+>]Z4eF.F]il7%F]wFboFiil 7%FhilF]il7%FarFboFiil7%FhilF[jlF]jl7%F]ilF[jlF]jl-F$6&7%7%FfxFAFiilF[ jlF`il7%FcjlF[jl7%F^rFAFiil7%FcjlF`ilFejl7%F[jlF`ilFejl-F$6&7%7%F[qFAF iilF]jlFejl7%F[[mF]jlFbil7%F[[mFejlFbil7%F]jlFejlFbil-F$6&7%Fd^l7%F^rF h[l$\"+$=H7%[F.7%F]wF^zFbt7%Fd^lFb[m7%FarF^zFbt7%Fd^lFe[mFg[m7%Fb[mFe[ mFg[m-F$6&7%FhilFb[m7%F]w$!+)*orIgF.Fc[m7%FhilFb[m7%FarF^\\mFc[m7%Fhil F]\\mFa\\m7%Fb[mF]\\mFa\\m-F$6&7%7%FfxFioFbtF]\\mFe[m7%Fg\\mF]\\m7%F^r FioFbt7%Fg\\mFe[mFi\\m7%F]\\mFe[mFi\\m-F$6&7%7%F[qFioFbtFa\\mFi\\m7%F_ ]mFa\\mFg[m7%F_]mFi\\mFg[m7%Fa\\mFi\\mFg[m-F$6&7%F[gl7%Fe\\lFcpFbt7%Fe \\lF`uFc[m7%F[glFf]m7%FfxFHFbt7%F[glFg]mFi]m7%Ff]mFg]mFi]m-F$6&7%Fg\\m Ff]m7%FfxFeqFc[m7%Fg\\mFf]m7%F]wFcpFbt7%Fg\\mF_^mFa^m7%Ff]mF_^mFa^m-F$ 6&7%FcjlF_^mFg]m7%FcjlF_^m7%F]wF`uFc[m7%FcjlFg]mFh^m7%F_^mFg]mFh^m-F$6 &7%7%F^rFHFbtFa^mFh^m7%F^_mFa^mFi]m7%F^_mFh^mFi]m7%Fa^mFh^mFi]m-F$6&7% Fat7%FeoFcpFbt7%F[qFHFbt7%FatFe_m7%FeoF`uFc[m7%FatFf_mFh_m7%Fe_mFf_mFh _m-F$6&7%F_]mFe_m7%FarFcpFbt7%F_]mFe_m7%F[qFeqFc[m7%F_]mF^`mF``m7%Fe_m F^`mF``m-F$6&7%F^_mF^`mFf_m7%F^_mF^`m7%FarF`uFc[m7%F^_mFf_mFg`m7%F^`mF f_mFg`m-F$6&7%F[[mF``mFg`m7%F[[mF``mFh_m7%F[[mFg`mFh_m7%F``mFg`mFh_m-F $6&7%7%F*$\"*330K(!\"*F*7%Fg`l$\"*LwzB'FfamF*7%$\"++++]iF:FhamF*7%Fcam Fgam7%F*$\"*C?))f'FfamF87%FcamFjamF^bm7%FgamFjamF^bm-F$6&7%7%Fi`l$\"*d Wa:&FfamF*Fgam7%F*FgbmF*7%FfbmFgam7%Fg`l$\"*\\)G;bFfamF87%FfbmFibmF[cm 7%FgamFibmF[cm-F$6&7%7%$\"++++]7F.FgbmF*FibmFjam7%FccmFibm7%F[bmF\\cmF 87%FccmFjamFgcm7%FibmFjamFgcm-F$6&7%7%F*$\"*TKr(eFfamFfnF[cmFgcm7%F]dm F[cmF^bm7%F]dmFgcmF^bm7%F[cmFgcmF^bm-F$6&7%7%Fa\\l$\"*1\"Q!*HFfamF*7%F dal$\"*#G\"H2%FfamF*7%Fi`lFgdmF*7%FfdmFidm7%Fdal$\"*)\\A^LFfamF87%Ffdm F\\emF^em7%FidmF\\emF^em-F$6&7%FfbmFidm7%Fg`lFjdmF*7%FfbmFidm7%Fi`l$\" *tcPV%FfamF87%FfbmFfemFhem7%FidmFfemFhem-F$6&7%7%F*FgdmF*FfemF\\em7%F` fmFfem7%Fg`lF_emF87%F`fmF\\emFbfm7%FfemF\\emFbfm-F$6&7%7%Fi`l$\"*!*o?r $FfamFfnFhemFbfm7%FhfmFhemF^em7%FhfmFbfmF^em7%FhemFbfmF^em-F$6&7%7%$\" +++++DF.FgdmF*7%FdcmFgdmF*7%$\"++++v=F.FjdmF*7%FagmFdgm7%FfgmF_emF87%F agmFegmFigm7%FdgmFegmFigm-F$6&7%F`fmFdgm7%F[bmFjdmF*7%F`fmFdgm7%F[bmF_ emF87%F`fmF_hmFahm7%FdgmF_hmFahm-F$6&7%FccmF_hmFegm7%FccmF_hm7%FdcmFie mF87%FccmFegmFhhm7%F_hmFegmFhhm-F$6&7%7%FdcmFifmFfnFahmFhhm7%F^imFahmF igm7%F^imFhhmFigm7%FahmFhhmFigm-F$6&7%7%F*FiemFbt7%Fg`lFjdmFet7%F[bmFj dmFet7%FeimFfim7%F*FgbmFet7%FeimFgimFiim7%FfimFgimFiim-F$6&7%FhfmFfim7 %F*FifmFfn7%FhfmFfim7%Fg`l$\"*l+Yz%FfamFfn7%FhfmF_jmFajm7%FfimF_jmFajm -F$6&7%F^imF_jmFgim7%F^imF_jm7%F[bmFbjmFfn7%F^imFgimFjjm7%F_jmFgimFjjm -F$6&7%F]dmFajmFjjm7%F]dmFajmFiim7%F]dmFjjmFiim7%FajmFjjmFiim-F$6&7%Ff v7%F]w$!*0U@d#F.F*7%FfxFgvF*7%FfvFf[n7%F]w$!*U?!*y*F.F87%FfvFi[nF[\\n7 %Ff[nFi[nF[\\n-F$6&7%7%Ffx$\")b<`#)FfamF*Ff[n7%Fe\\lFg[nF*7%Fc\\nFf[n7 %Ffx$\")rHO5FfamF87%Fc\\nFf\\nFh\\n7%Ff[nFf\\nFh\\n-F$6&7%7%Fa\\lFgvF* Ff\\nFi[n7%F`]nFf\\n7%Fe\\lF\\\\nF87%F`]nFi[nFb]n7%Ff\\nFi[nFb]n-F$6&7 %7%Ffx$!*B\"e!='F.FfnFh\\nFb]n7%Fh]nFh\\nF[\\n7%Fh]nFb]nF[\\n7%Fh\\nFb ]nF[\\n-F$6&7%Ffdm7%Fe\\l$\"*J\\y!>FfamF*7%FdalFb^nF*7%FfdmFa^n7%Fa\\l $\"*A$poAFfamF87%FfdmFd^nFf^n7%Fa^nFd^nFf^n-F$6&7%Fc\\nFa^n7%Fa\\lFd\\ nF*7%Fc\\nFa^n7%Fe\\l$\"*Zhh=\"FfamF87%Fc\\nF^_nF`_n7%Fa^nF^_nF`_n-F$6 &7%7%Fi`lFd\\nF*F^_nFd^n7%Fh_nF^_n7%FdalFa_nF87%Fh_nFd^nFj_n7%F^_nFd^n Fj_n-F$6&7%7%Fa\\l$\"*R0qa\"FfamFfnF`_nFj_n7%F``nF`_nFf^n7%F``nFj_nFf^ n7%F`_nFj_nFf^n-F$6&7%7%F*FgvF*7%Fg`lFg[nF*7%Fi`lFgvF*7%Fi`nFj`n7%Fg`l F\\\\nF87%Fi`nF[anF]an7%Fj`nF[anF]an-F$6&7%Fh_nFj`n7%FdalFg[nF*7%Fh_nF j`n7%Fi`lFi\\nF87%Fh_nFcanFean7%Fj`nFcanFean-F$6&7%F`]nFcanF[an7%F`]nF can7%FdalF\\\\nF87%F`]nF[anF\\bn7%FcanF[anF\\bn-F$6&7%7%Fi`lFi]nFfnFea nF\\bn7%FbbnFeanF]an7%FbbnF\\bnF]an7%FeanF\\bnF]an-F$6&7%7%Fa\\lFi\\nF bt7%Fa\\lFd\\nFet7%FdalFg[nFet7%FibnFjbn7%Fe\\lFg[nFet7%FibnF[cnF]cn7% FjbnF[cnF]cn-F$6&7%F``nFjbn7%Fdal$\")jtWYFfamFfn7%F``nFjbn7%Fe\\lFdcnF fn7%F``nFccnFgcn7%FjbnFccnFgcn-F$6&7%FbbnFccnF[cn7%FbbnFccn7%Fa\\lFi]n Ffn7%FbbnF[cnF^dn7%FccnF[cnF^dn-F$6&7%Fh]nFgcnF^dn7%Fh]nFgcnF]cn7%Fh]n F^dnF]cn7%FgcnF^dnF]cn-F$6&7%7%$\"+++++]F.FgvF*7%$\"++++]PF.FgvF*7%$\" ++++vVF.Fg[nF*7%FjdnF]en7%FaenF\\\\nF87%FjdnF`enFden7%F]enF`enFden-F$6 &7%7%FbgmFgvF*F]en7%$\"++++DJF.Fg[nF*7%FjenF]en7%F\\fnF\\\\nF87%FjenF[ fnF_fn7%F]enF[fnF_fn-F$6&7%7%F^enFd\\nF*F[fnF`en7%FefnF[fn7%F^enFi\\nF 87%FefnF`enFgfn7%F[fnF`enFgfn-F$6&7%7%F^enFi]nFfnF_fnFgfn7%F]gnF_fnFde n7%F]gnFgfnFden7%F_fnFgfnFden-F$6&7%Fi`n7%FdcmFgvF*7%F[bmFg[nF*7%Fi`nF dgn7%F[bmF\\\\nF87%Fi`nFegnFggn7%FdgnFegnFggn-F$6&7%FjenFdgn7%FfgmFg[n F*7%FjenFdgn7%FfgmF\\\\nF87%FjenF]hnF_hn7%FdgnF]hnF_hn-F$6&7%7%FdcmFd \\nF*F]hnFegn7%FehnF]hn7%FdcmFi\\nF87%FehnFegnFghn7%F]hnFegnFghn-F$6&7 %7%FdcmFi]nFfnF_hnFghn7%F]inF_hnFggn7%F]inFghnFggn7%F_hnFghnFggn-F$6&7 %Fagm7%FfgmFb^nF*7%F\\fnFb^nF*7%FagmFdin7%FbgmFg^nF87%FagmFeinFgin7%Fd inFeinFgin-F$6&7%FehnFdin7%FbgmFd\\nF*7%FehnFdin7%FfgmFa_nF87%FehnF]jn F_jn7%FdinF]jnF_jn-F$6&7%FefnF]jnFein7%FefnF]jn7%F\\fnFa_nF87%FefnFein Ffjn7%F]jnFeinFfjn-F$6&7%7%FbgmFa`nFfnF_jnFfjn7%F\\[oF_jnFgin7%F\\[oFf jnFgin7%F_jnFfjnFgin-F$6&7%7%FbgmFi\\nFbt7%FfgmFg[nFet7%FbgmFd\\nFet7% Fc[oFd[o7%F\\fnFg[nFet7%Fc[oFe[oFg[o7%Fd[oFe[oFg[o-F$6&7%F]inFd[o7%Ffg mFdcnFfn7%F]inFd[o7%FbgmFi]nFfn7%F]inF]\\oF_\\o7%Fd[oF]\\oF_\\o-F$6&7% F\\[oF]\\oFe[o7%F\\[oF]\\o7%F\\fnFdcnFfn7%F\\[oFe[oFf\\o7%F]\\oFe[oFf \\o-F$6&7%F]gnF_\\oFf\\o7%F]gnF_\\oFg[o7%F]gnFf\\oFg[o7%F_\\oFf\\oFg[o -F$6&7%7%F*Fa`nF[il7%Fg`lFa_nF^il7%F[bmFa_nF^il7%Fb]oFc]o7%F*Fg^nF^il7 %Fb]oFd]oFf]o7%Fc]oFd]oFf]o-F$6&7%7%Fi`lFd\\nFiilFc]o7%F*Fd\\nFiil7%F \\^oFc]o7%Fg`lFb^nFiil7%F\\^oF]^oF_^o7%Fc]oF]^oF_^o-F$6&7%7%FdcmFd\\nF iilF]^oFd]o7%Fe^oF]^o7%F[bmFb^nFiil7%Fe^oFd]oFg^o7%F]^oFd]oFg^o-F$6&7% 7%F*FgdmFiilF_^oFg^o7%F]_oF_^oFf]o7%F]_oFg^oFf]o7%F_^oFg^oFf]o-F$6&7%F ibn7%FdalFdcnFc[m7%Fi`lFi\\nFbt7%FibnFd_o7%FdalFa_nFbt7%FibnFe_oFg_o7% Fd_oFe_oFg_o-F$6&7%F\\^oFd_o7%Fg`lFdcnFc[m7%F\\^oFd_o7%Fi`lFa`nFc[m7%F \\^oF]`oF_`o7%Fd_oF]`oF_`o-F$6&7%7%F*Fi\\nFbtF]`oFe_o7%Fe`oF]`o7%Fg`lF a_nFbt7%Fe`oFe_oFg`o7%F]`oFe_oFg`o-F$6&7%7%Fi`lFg^nFbtF_`oFg`o7%F]aoF_ `oFg_o7%F]aoFg`oFg_o7%F_`oFg`oFg_o-F$6&7%Fc[o7%FdcmFi\\nFbt7%FfgmFdcnF c[m7%Fc[oFdao7%FfgmFa_nFbt7%Fc[oFeaoFgao7%FdaoFeaoFgao-F$6&7%Fe`oFdao7 %F[bmFdcnFc[m7%Fe`oFdao7%F[bmFa_nFbt7%Fe`oF]boF_bo7%FdaoF]boF_bo-F$6&7 %Fe^oF]boFeao7%Fe^oF]bo7%FdcmFa`nFc[m7%Fe^oFeaoFfbo7%F]boFeaoFfbo-F$6& 7%7%FdcmFg^nFbtF_boFfbo7%F\\coF_boFgao7%F\\coFfboFgao7%F_boFfboFgao-F$ 6&7%Feim7%Fg`lF_emFbt7%F[bmF_emFbt7%FeimFcco7%F*FifmFc[m7%FeimFdcoFfco 7%FccoFdcoFfco-F$6&7%F]aoFcco7%F*Fg^nFbt7%F]aoFcco7%Fg`l$\"*9P&HEFfamF c[m7%F]aoF\\doF^do7%FccoF\\doF^do-F$6&7%F\\coF\\doFdco7%F\\coF\\do7%F[ bmF_doFc[m7%F\\coFdcoFgdo7%F\\doFdcoFgdo-F$6&7%F]_oF^doFgdo7%F]_oF^doF fco7%F]_oFgdoFfco7%F^doFgdoFfco-F$6&7%7%$\"\"\"F*F(F*7%$\"++++v$*F.F/F *7%$\"++++]()F.F(F*7%FceoFfeo7%FgeoF6F87%FceoFieoF]fo7%FfeoFieoF]fo-F$ 6&7%7%FjeoFAF*Ffeo7%$\"++++D\")F.F/F*7%FcfoFfeo7%FjeoFHF87%FcfoFdfoFhf o7%FfeoFdfoFhfo-F$6&7%7%$\"+++++vF.F(F*FdfoFieo7%F^goFdfo7%FefoF6F87%F ^goFieoFbgo7%FdfoFieoFbgo-F$6&7%7%FjeoFZFfnFhfoFbgo7%FhgoFhfoF]fo7%Fhg oFbgoF]fo7%FhfoFbgoF]fo-F$6&7%7%F_goF_oF*7%FefoFboF*7%$\"++++voF.FboF* 7%F_hoF`ho7%F_goFioF87%F_hoFahoFeho7%F`hoFahoFeho-F$6&7%FcfoF`ho7%F_go FAF*7%FcfoF`ho7%FefoFcpF87%FcfoF[ioF]io7%F`hoF[ioF]io-F$6&7%7%$F\\bmF. FAF*F[ioFaho7%FcioF[io7%FbhoFcpF87%FcioFahoFfio7%F[ioFahoFfio-F$6&7%7% F_goFeqFfnF]ioFfio7%F\\joF]ioFeho7%F\\joFfioFeho7%F]ioFfioFeho-F$6&7%7 %F[enF(F*7%$\"++++DcF.F/F*7%FdioF(F*7%FcjoFdjo7%FejoF6F87%FcjoFgjoFijo 7%FdjoFgjoFijo-F$6&7%FcioFdjo7%FbhoF/F*7%FcioFdjo7%FdioFHF87%FcioF_[pF a[p7%FdjoF_[pFa[p-F$6&7%F^goF_[pFgjo7%F^goF_[p7%FbhoF6F87%F^goFgjoFh[p 7%F_[pFgjoFh[p-F$6&7%7%FdioFZFfnFa[pFh[p7%F^\\pFa[pFijo7%F^\\pFh[pFijo 7%Fa[pFh[pFijo-F$6&7%7%F_goFHFbt7%F_goFAFet7%FbhoF/Fet7%Fe\\pFf\\p7%Fe foF/Fet7%Fe\\pFg\\pFi\\p7%Ff\\pFg\\pFi\\p-F$6&7%F\\joFf\\p7%FbhoF`uFfn 7%F\\joFf\\p7%FefoF`uFfn7%F\\joF_]pFa]p7%Ff\\pF_]pFa]p-F$6&7%F^\\pF_]p Fg\\p7%F^\\pF_]p7%F_goFZFfn7%F^\\pFg\\pFh]p7%F_]pFg\\pFh]p-F$6&7%FhgoF a]pFh]p7%FhgoFa]pFi\\p7%FhgoFh]pFi\\p7%Fa]pFh]pFi\\p-F$6&7%Fjdn7%FejoF jvF*7%FaenFjvF*7%FjdnFd^p7%F[enFawF87%FjdnFe^pFg^p7%Fd^pFe^pFg^p-F$6&7 %7%FdioFiwF*Fd^p7%F[enFiwF*7%F]_pFd^p7%FejoF^xF87%F]_pF^_pF`_p7%Fd^pF^ _pF`_p-F$6&7%7%F^enFiwF*F^_pFe^p7%Ff_pF^_p7%FaenF^xF87%Ff_pFe^pFh_p7%F ^_pFe^pFh_p-F$6&7%7%F[enF`yFfnF`_pFh_p7%F^`pF`_pFg^p7%F^`pFh_pFg^p7%F` _pFh_pFg^p-F$6&7%F_ho7%FbhoFiyF*7%FdioF_oF*7%F_hoFe`p7%FbhoF^zF87%F_ho Ff`pFh`p7%Fe`pFf`pFh`p-F$6&7%F]_pFe`p7%FejoFiyF*7%F]_pFe`p7%FdioFhzF87 %F]_pF^apF`ap7%Fe`pF^apF`ap-F$6&7%7%F[enF_oF*F^apFf`p7%FfapF^ap7%FejoF ^zF87%FfapFf`pFhap7%F^apFf`pFhap-F$6&7%7%FdioFh[lFfnF`apFhap7%F^bpF`ap Fh`p7%F^bpFhapFh`p7%F`apFhapFh`p-F$6&7%7%FbgmF_oF*7%F^enF_oF*7%F\\fnFi yF*7%FebpFfbp7%F\\fnF^zF87%FebpFgbpFibp7%FfbpFgbpFibp-F$6&7%FfapFfbp7% FaenFiyF*7%FfapFfbp7%FaenF^zF87%FfapF_cpFacp7%FfbpF_cpFacp-F$6&7%Ff_pF _cpFgbp7%Ff_pF_cp7%F^enFhzF87%Ff_pFgbpFhcp7%F_cpFgbpFhcp-F$6&7%7%F^enF h[lFfnFacpFhcp7%F^dpFacpFibp7%F^dpFhcpFibp7%FacpFhcpFibp-F$6&7%7%F[enF hzFbt7%FejoFiyFet7%FaenFiyFet7%FedpFfdp7%F[enFiwFet7%FedpFgdpFidp7%Ffd pFgdpFidp-F$6&7%F^bpFfdp7%F[enFh[lFfn7%F^bpFfdp7%FejoFa_lFfn7%F^bpF_ep Faep7%FfdpF_epFaep-F$6&7%F^dpF_epFgdp7%F^dpF_ep7%FaenFa_lFfn7%F^dpFgdp Fhep7%F_epFgdpFhep-F$6&7%F^`pFaepFhep7%F^`pFaepFidp7%F^`pFhepFidp7%Fae pFhepFidp-F$6&7%Fe`l7%F[bmF/F*7%FdcmF(F*7%Fe`lFdfp7%F[bmF6F87%Fe`lFefp Fgfp7%FdfpFefpFgfp-F$6&7%7%FdcmFAF*Fdfp7%FfgmF/F*7%F]gpFdfp7%FdcmFHF87 %F]gpF^gpF`gp7%FdfpF^gpF`gp-F$6&7%7%FbgmF(F*F^gpFefp7%FfgpF^gp7%FfgmF6 F87%FfgpFefpFhgp7%F^gpFefpFhgp-F$6&7%7%FdcmFZFfnF`gpFhgp7%F^hpF`gpFgfp 7%F^hpFhgpFgfp7%F`gpFhgpFgfp-F$6&7%Febp7%FfgmFboF*7%F\\fnFboF*7%FebpFe hp7%FbgmFioF87%FebpFfhpFhhp7%FehpFfhpFhhp-F$6&7%F]gpFehp7%FbgmFAF*7%F] gpFehp7%FfgmFcpF87%F]gpF^ipF`ip7%FehpF^ipF`ip-F$6&7%7%F^enFAF*F^ipFfhp 7%FfipF^ip7%F\\fnFcpF87%FfipFfhpFhip7%F^ipFfhpFhip-F$6&7%7%FbgmFeqFfnF `ipFhip7%F^jpF`ipFhhp7%F^jpFhipFhhp7%F`ipFhipFhhp-F$6&7%Fcjo7%FaenF/F* 7%F^enF(F*7%FcjoFejp7%FaenF6F87%FcjoFfjpFhjp7%FejpFfjpFhjp-F$6&7%FfipF ejp7%F\\fnF/F*7%FfipFejp7%F^enFHF87%FfipF^[qF`[q7%FejpF^[qF`[q-F$6&7%F fgpF^[qFfjp7%FfgpF^[q7%F\\fnF6F87%FfgpFfjpFg[q7%F^[qFfjpFg[q-F$6&7%7%F ^enFZFfnF`[qFg[q7%F]\\qF`[qFhjp7%F]\\qFg[qFhjp7%F`[qFg[qFhjp-F$6&7%7%F bgmFHFbt7%FbgmFAFet7%F\\fnF/Fet7%Fd\\qFe\\q7%FfgmF/Fet7%Fd\\qFf\\qFh\\ q7%Fe\\qFf\\qFh\\q-F$6&7%F^jpFe\\q7%F\\fnF`uFfn7%F^jpFe\\q7%FfgmF`uFfn 7%F^jpF^]qF`]q7%Fe\\qF^]qF`]q-F$6&7%F]\\qF^]qFf\\q7%F]\\qF^]q7%FbgmFZF fn7%F]\\qFf\\qFg]q7%F^]qFf\\qFg]q-F$6&7%F^hpF`]qFg]q7%F^hpF`]qFh\\q7%F ^hpFg]qFh\\q7%F`]qFg]qFh\\q-F$6&7%7%F[enFeqF[il7%F[enFioF^il7%FaenFcpF ^il7%Fc^qFd^q7%FejoFcpF^il7%Fc^qFe^qFg^q7%Fd^qFe^qFg^q-F$6&7%7%F[enF_o FiilFd^q7%FaenFboFiil7%F]_qFd^q7%FejoFboFiil7%F]_qF^_qF`_q7%Fd^qF^_qF` _q-F$6&7%7%F^enFAFiilF^_qFe^q7%Ff_qF^_q7%F[enFAFiil7%Ff_qFe^qFh_q7%F^_ qFe^qFh_q-F$6&7%7%FdioFAFiilF`_qFh_q7%F^`qF`_qFg^q7%F^`qFh_qFg^q7%F`_q Fh_qFg^q-F$6&7%Fedp7%F[enFh[lFc[m7%FaenF^zFbt7%FedpFe`q7%FejoF^zFbt7%F edpFf`qFh`q7%Fe`qFf`qFh`q-F$6&7%F]_qFe`q7%FaenF^\\mFc[m7%F]_qFe`q7%Fej oF^\\mFc[m7%F]_qF^aqF`aq7%Fe`qF^aqF`aq-F$6&7%7%F^enFioFbtF^aqFf`q7%Ffa qF^aq7%F[enFioFbt7%FfaqFf`qFhaq7%F^aqFf`qFhaq-F$6&7%7%FdioFioFbtF`aqFh aq7%F^bqF`aqFh`q7%F^bqFhaqFh`q7%F`aqFhaqFh`q-F$6&7%Fd\\q7%F\\fnFcpFbt7 %F\\fnF`uFc[m7%Fd\\qFebq7%F^enFHFbt7%Fd\\qFfbqFhbq7%FebqFfbqFhbq-F$6&7 %FfaqFebq7%F^enFeqFc[m7%FfaqFebq7%FaenFcpFbt7%FfaqF^cqF`cq7%FebqF^cqF` cq-F$6&7%Ff_qF^cqFfbq7%Ff_qF^cq7%FaenF`uFc[m7%Ff_qFfbqFgcq7%F^cqFfbqFg cq-F$6&7%7%F[enFHFbtF`cqFgcq7%F]dqF`cqFhbq7%F]dqFgcqFhbq7%F`cqFgcqFhbq -F$6&7%Fe\\p7%FbhoFcpFbt7%FdioFHFbt7%Fe\\pFddq7%FbhoF`uFc[m7%Fe\\pFedq Fgdq7%FddqFedqFgdq-F$6&7%F^bqFddq7%FejoFcpFbt7%F^bqFddq7%FdioFeqFc[m7% F^bqF]eqF_eq7%FddqF]eqF_eq-F$6&7%F]dqF]eqFedq7%F]dqF]eq7%FejoF`uFc[m7% F]dqFedqFfeq7%F]eqFedqFfeq-F$6&7%F^`qF_eqFfeq7%F^`qF_eqFgdq7%F^`qFfeqF gdq7%F_eqFfeqFgdq-F$6&7%7%F*Fhz$\"+QL>\\:Ffam7%F*Fiw$\"+b(oBX\"Ffam7%F [bmFiyFffq7%FbfqFefq7%Fg`lFiyFffq7%FbfqFhfqFjfq7%FefqFhfqFjfq-F$6&7%7% F*F`y$\"+rTab8FfamFefq7%F[bmFa_lFagq7%F`gqFefq7%Fg`lFa_lFagq7%F`gqFcgq Fegq7%FefqFcgqFegq-F$6&7%7%FdcmFh[lFagqFcgqFhfq7%F[hqFcgq7%F*Fh[lFagq7 %F[hqFhfqF]hq7%FcgqFhfqF]hq-F$6&7%7%Fi`lFh[lFagqFegqF]hq7%FchqFegqFjfq 7%FchqF]hqFjfq7%FegqF]hqFjfq-F$6&7%7%F*Fgv$\"+/]*=;\"Ffam7%F*Faw$\"+(e >(e7Ffam7%F[bmFjvF[iq7%FjhqF]iq7%Fg`lFjvF[iq7%FjhqF`iqFbiq7%F]iqF`iqFb iq-F$6&7%F`gqF]iq7%F[bmF^xF^iq7%F`gqF]iq7%Fg`lF^xF^iq7%F`gqFhiqFjiq7%F ]iqFhiqFjiq-F$6&7%7%FdcmFiwF[iqFhiqF`iq7%F`jqFhiq7%F*FiwF[iq7%F`jqF`iq Fbjq7%FhiqF`iqFbjq-F$6&7%7%Fi`lFiwF[iqFjiqFbjq7%FhjqFjiqFbiq7%FhjqFbjq Fbiq7%FjiqFbjqFbiq-F$6&7%7%FbgmF_oF[iq7%FfgmFiyF[iq7%FfgmF^zF^iq7%F_[r F`[r7%FdcmF_oF[iq7%F_[rFa[rFc[r7%F`[rFa[rFc[r-F$6&7%F`jqF`[r7%FdcmFhzF ^iq7%F`jqF`[r7%F[bmFiyF[iq7%F`jqFi[rF[\\r7%F`[rFi[rF[\\r-F$6&7%F[hqFi[ rFa[r7%F[hqFi[r7%F[bmF^zF^iq7%F[hqFa[rFb\\r7%Fi[rFa[rFb\\r-F$6&7%7%F*F _oF[iqF[\\rFb\\r7%Fh\\rF[\\rFc[r7%Fh\\rFb\\rFc[r7%F[\\rFb\\rFc[r-F$6&7 %7%Fa\\lF_oF[iq7%FdalFiyF[iq7%Fi`lF_oF[iq7%F_]rF`]r7%FdalF^zF^iq7%F_]r Fa]rFc]r7%F`]rFa]rFc]r-F$6&7%FhjqF`]r7%Fg`lFiyF[iq7%FhjqF`]r7%Fi`lFhzF ^iq7%FhjqFi]rF[^r7%F`]rFi]rF[^r-F$6&7%Fh\\rFi]rFa]r7%Fh\\rFi]r7%Fg`lF^ zF^iq7%Fh\\rFa]rFb^r7%Fi]rFa]rFb^r-F$6&7%FchqF[^rFb^r7%FchqF[^rFc]r7%F chqFb^rFc]r7%F[^rFb^rFc]r-F$6&7%Fb]o7%F*Fd\\n$\"+HD@9()F.7%F[bmFdcnF[i l7%Fb]oF^_r7%Fg`lFdcnF[il7%Fb]oFa_rFc_r7%F^_rFa_rFc_r-F$6&7%7%F*Fi\\n$ F9F.F^_r7%F[bmFg[nF__r7%Fi_rF^_r7%Fg`lFg[nF__r7%Fi_rF[`rF]`r7%F^_rF[`r F]`r-F$6&7%7%FdcmFi]nF[ilF[`rFa_r7%Fc`rF[`r7%F*Fi]nF[il7%Fc`rFa_rFe`r7 %F[`rFa_rFe`r-F$6&7%7%Fi`lFi]nF[ilF]`rFe`r7%F[arF]`rFc_r7%F[arFe`rFc_r 7%F]`rFe`rFc_r-F$6&7%Fjhq7%F*Fi]n$\"+?/2l5Ffam7%F[bm$!+y)*e+ " 0 "" {MPLTEXT 1 0 759 "menger1 := proc(L::algebraic, lev::integer, x0, y0, z0)\nlocal i, j, k, f;\nglobal p, s;\noption remember;\n s := \+ s + 1;\n f := 0.4;\n p[s] := cutout(hexahedron([x0, y0, z0], L), f);\n if s = 2 then p[1] := p[2] fi;\n if 1 < lev then for i fr om -1 to 1 do for j from -1 to 1\n do for k from -1 to 1 do \n if k = 0 and 1 < abs(i) + abs(j) or\n \+ k <> 0 and 0 < abs(i) + abs(j) then\n \+ menger1(1/3*L, lev - 1, x0 + 2/3*i*L,\n y0 + 2/ 3*j*L, z0 + 2/3*k*L)\n fi\n od\n \+ od\n od\n fi;\n RETURN(plots[display](\n [ seq(p[i], i = 1 .. 1/19*20^lev - 1/19)],\n orientation = [35, 7 0], scaling = constrained))\nend:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "with(plottools): s:=0: menger1(100, 2, 0, 0, 0);" }} {PARA 13 "" 1 "" {INLPLOT "6_s-%)POLYGONSG6'7&7%$!+LLLL`!\")$!+MLLL`F* $!+LLLLLF*7%$!+MLLLLF*F0F07%$!+++++5!\"(F0F07%$!+********zF*F+F-7&F6F2 7%F3F3F07%F7$!+,+++!)F*F-7&F;F:7%F0F3F07%F(F " 0 "" {MPLTEXT 1 0 21 "restart; with(plots) :" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Vypoctete d\351lku " }{TEXT 256 14 "Kochovy krivky" }{TEXT -1 40 ". Kochova krivka vznikne timto p ostupem:" }}{PARA 0 "" 0 "" {TEXT -1 125 "V prvni iteraci si nakreslim e usecku jednotkove delky. V druhe iteraci si usecku rozdelime na tri \+ shodne dily, k prostrednimu" }}{PARA 0 "" 0 "" {TEXT -1 121 "dilu dokr eslime rovnostranny trouhelnik tak, ze tento dil bude jednou z jeho st ran a pak uvedeny prostredni dil vymazeme." }}{PARA 0 "" 0 "" {TEXT -1 296 "Dostaneme tak lomenou caru skladajici se ze ctyr shodnych usec ek. Ve treti iteraci aplikujeme uvedeny postup na vsechny ctyri usecky z predchozi iterace. Prodlouzime-li tento postup do nekonecna, dostan em utvar, ktery se nazyva Kochova krivka. Kochovy krivky lze v Maplu k reslit pomoci procedury " }{TEXT 257 12 "kochkriv(n)." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 861 "kochkriv := proc(n)\nlocal i, j, x , y, dx, dy, uy;\nglobal kres, s, pomsez;\n uy := evalhf(sqrt(1/12) );\n s := [x, y], [x + 1/3*dx, y + 1/3*dy],\n [x + 1/2*dx - \+ uy*dy, y + 1/2*dy + uy*dx],\n [x + 2/3*dx, y + 2/3*dy];\n kr es[1] := [0, 0], [1, 0];\n pomsez := [0, 0], [1, 0];\n for i fro m 2 to n do\n dx := pomsez[2, 1] - pomsez[1, 1];\n dy := pomsez[2, 2] - pomsez[1, 2];\n x := pomsez[1, 1];\n y : = pomsez[1, 2];\n kres[i] := s;\n for j from 2 to nops([ pomsez]) - 1 do\n x := pomsez[j, 1];\n y := poms ez[j, 2];\n dx := pomsez[j + 1, 1] - x;\n dy := \+ pomsez[j + 1, 2] - y;\n kres[i] := kres[i], s\n od; \n pomsez := kres[i], [1, 0];\n kres[i] := pomsez\n o d;\n PLOT(CURVES([kres[n]]), SCALING(CONSTRAINED),\n AXESSTY LE(NONE))\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "v:=array (1..2,1..2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "v[1,1]:=koc hkriv(2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "v[1,2]:=kochkr iv(3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "v[2,1]:=kochkriv( 4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "v[2,2]:=kochkriv(5): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "display(v, scaling=unco nstrained);" }}{PARA 13 "" 1 "" {INLPLOT "6)-%'CURVESG6#7]o7$!#5$!++++ +S!\")7$#!$]#\"#FF)7$$!+*)))))))))!\"*$!+yxxxPF+7$#!$I#F/F)7$#!#q\"\"* F)7$$!+3uS2uF3F47$$!+yxxxxF3$!+bbbbNF+7$$!+Oq.PqF3$!+cbbbNF+7$$!+mmmmm F3$!+LLLLLF+7$$!+'H'H'H'F3FH7$$!+abbbbF3FH7$$!+Ef#f#fF3F47$#!#]Fk3#F+Fc\\l7$$\"+uS2u?F+$!+_=&=&QF+7$$\"+Kaw)4#F+Fa]l 7$$\"+6666@F+F47$$\"+!zcM7#F+Fa]l7$$\"+[\"[\"[@F+Fa]l7$$\"+pC!e8#F+Fc \\l7$#\"$!eF/F)7$#\"%gk3BF+$!+#[\"[\" [$F+7$F[al$!+3uS2MF+7$$\"+aw)4K#F+$!+2uS2MF+7$F`xFM7$$\"+7!zcM#F+Fhal7 $$\"+r.PqBF+Fcal7$$\"+\"pC!eBF+F`al7$$\"+q.PqBF+FH7$$\"+G<1&R#F+FH7$$ \"+3uS2CF+Fe`l7$$\"+(3`(>CF+FH7$$\"+XWWWCF+FH7$$\"+m()4KCF+F``l7$FaclF \\`l7$$\"+'3`(>CF+F\\`l7$$\"+2uS2CF+F47$FhclFa]l7$FaclFa]l7$$\"+l()4KC F+Fc\\l7$FdxF)7$#\"%+?F_\\lF)7$$\"+\"[\"[\"[#F+Fc\\l7$#\"%??F_\\lF)7$# \"$!oF/F)7$$\"+)>k3`#F+Fc\\l7$$\"+>&=&=DF+Fa]l7$$\"+x)4Ka#F+Fa]l7$$\"+ cbbbDF+F47$$\"+N7!zc#F+Fa]l7$$\"+$f#f#f#F+Fa]l7$$\"+9pC!e#F+Fc\\l7$#\" $+(F/F)7$#\"%?@F_\\lF)7$$\"+I'H'HEF+Fc\\l7$#\"%S@F_\\lF)7$FgxF)7$$\"+Y B,zEF+Fc\\l7$F]yFa]l7$$\"+D!e8p#F+Fa]l7$$\"+/Pq.FF+F47$FfglF\\`l7$F]yF \\`l7$FbglF``l7$F]yFC7$FfglFH7$FiglFe`l7$$\"+$Q\\gr#F+FH7$$\"+T2uSFF+F H7$$\"+?k3`FF+F`al7$FehlFcal7$$\"+*4Kaw#F+Fhal7$FjxFM7$F\\il$!+f#f#fKF +7$FehlF`il7$Fhhl$!+&=&=&=$F+7$FehlF^p7$FbhlF^p7$FiglFdil7$FfglF^p7$F] yF^p7$Fbgl$!+Pq.PIF+7$F]y$!+jH'H'HF+7$FfglF_jl7$FiglFfp7$Ffgl$!+:[\"[ \"GF+7$F]y$!+9[\"[\"GF+7$Fbgl$!+T2uSFF+7$F]yFip7$FfglFip7$Figl$!+$f#f# f#F+7$FbhlFip7$FehlFip7$FhhlF_[m7$Fehl$!+>&=&=DF+7$F\\ilFe[m7$FjxF]q7$ $\"+dM7!z#F+Fe[m7$$\"+:[\"[\"GF+Fe[m7$$\"+O\"pC!GF+F_[m7$F]\\mFip7$$\" +th]RGF+Fip7$$\"+_=&=&GF+F_[m7$$\"+Jv>kGF+Fip7$F`yFip7$$\"+oXB,HF+F_[m 7$F`yFe[m7$$\"+Z-e8HF+Fe[m7$$\"+Ef#f#HF+Fhq7$Fb]m$!+q.PqBF+7$F`yFh]m7$ F^]m$!+'H'H'H#F+7$F`yF[r7$Fb]mF[r7$Fe]m$!+Z\"[\"[@F+7$$\"+0;FQHF+F_r7$ $\"+jH'H'HF+F_r7$$\"+U'3`(HF+$!+[\"[\"[@F+7$Fg^m$!+uS2u?F+7$$\"+@Vl()H F+F__m7$FcyFcr7$$\"+zcM7IF+F__m7$$\"+Pq.PIF+F__m7$$\"+e8pCIF+F\\_m7$Fi _mF_r7$$\"+&RG<1$F+F_r7$$\"+uS2uIF+Fa^m7$$\"+`(>k3$F+F[r7$FhyF[r7$$\"+ Kaw)4$F+F\\^m7$FhyFh]m7$Ff`mFh]m7$Fc`mFhq7$Ff`mFe[m7$FhyFe[m7$Fj`mF_[m 7$FhyFip7$$\"+pC!e8$F+Fip7$$\"+[\"[\"[JF+F_[m7$$\"+FQ\\gJF+Fip7$$\"+&= &=&=$F+Fip7$$\"+k3`(>$F+F_[m7$F]bmFe[m7$$\"+Vl()4KF+Fe[m7$F^zFhq7$$\"+ ,zcMKF+Fe[m7$$\"+g#f#fKF+Fe[m7$$\"+!e8pC$F+F_[m7$$\"+f#f#fKF+Fip7$$\"+ <1&RG$F+Fip7$$\"+'H'H'H$F+F_[m7$$\"+v>k3LF+Fip7$F[zFip7$$\"+aw)4K$F+Fj jl7$F[zFgjl7$FjcmFdjl7$FgcmFfp7$FjcmF_jl7$$\"+MLLLLF+F_jl7$F^dmF\\jl7$ F[zF^p7$FjcmF^p7$Fgcm$!+'=&=&=$F+7$FdcmF^p7$FacmF^p7$F^cmFdil7$FacmF`i l7$FhbmF`il7$F^zFM7$FhbmFhal7$FacmFhal7$F^cmFe`l7$FacmFC7$FdcmFC7$Fgcm Fe`l7$FjcmFC7$F[zFC7$F^dmF``l7$FedmF\\`l7$FjcmF\\`l7$FgcmF47$FjcmFa]l7 $FedmFa]l7$F^dmFc\\l7$FczF)7$#\"%?FF_\\lF)7$$\"+q.PqLF+Fc\\l7$#\"%SFF_ \\lF)7$#\"$?*F/F)7$$\"+'3`(>MF+Fc\\l7$$\"+2uS2MF+Fa]l7$$\"+l()4KMF+Fa] l7$$\"+WWWWMF+F47$$\"+B,zcMF+Fa]l7$$\"+#[\"[\"[$F+Fa]l7$$\"+-e8pMF+Fc \\l7$#\"$S*F/F)7$#\"%SGF_\\lF)7$$\"+>&=&=NF+Fc\\l7$#\"%gGF_\\lF)7$FfzF )7$$\"+N7!zc$F+Fc\\l7$$\"+cbbbNF+Fa]l7$$\"+9pC!e$F+Fa]l7$$\"+$f#f#f$F+ F47$FhimF\\`l7$FeimF\\`l7$FbimF``l7$FeimFH7$FhimFH7$F[jmF`al7$$\"+s#Q \\g$F+FH7$$\"+I'H'HOF+FH7$$\"+4`(>k$F+F`al7$FgjmFcal7$$\"+))4KaOF+Fhal 7$FizFM7$$\"+YB,zOF+Fhal7$$\"+/Pq.PF+Fcal7$$\"+D!e8p$F+F`al7$Fe[nFH7$$ \"+i]RGPF+FH7$$\"+T2uSPF+Fe`l7$$\"+?k3`PF+FH7$$\"+yxxxPF+FH7$$\"+*4Kaw $F+F``l7$Fe\\nF\\`l7$Fb\\nF\\`l7$F_\\nF47$Fb\\nFa]l7$Fe\\nFa]l7$Fh\\nF c\\l7$F\\[lF)7$#\"%!3$F_\\lF)7$$\"+:[\"[\"QF+Fc\\l7$#\"%+JF_\\lF)7$#\" %S5F/F)7$$\"+Jv>kQF+Fc\\l7$$\"+_=&=&QF+Fa]l7$$\"+5KawQF+Fa]l7$$\"+*))) ))))QF+F47$$\"+oXB,RF+Fa]l7$$\"+Ef#f#RF+Fa]l7$$\"+Z-e8RF+Fc\\l7$#\"%g5 F/F)7$#\"%+KF_\\lF)7$$\"+jH'H'RF+Fc\\l7$#\"%?KF_\\lF)7$F_[lF)-F$6\"-%* AXESSTYLEG6#%%NONEG-%(SCALINGG6#%.UNCONSTRAINEDG" 2 661 296 296 2 0 1 0 2 9 0 1 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 16 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 42 "K animaci Kochovy krivky slouzi procedura " }{TEXT 258 13 "kochkra nim(n)" }{TEXT -1 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1051 "kochkranim := proc(n)\nlocal x, y, dx, dy, uy, i, j;\nglobal kres, pl , pomsez, s, kresl;\n uy := evalhf(sqrt(1/12));\n s := [x, y], [ x + 1/3*dx, y + 1/3*dy],\n [x + 1/2*dx - uy*dy, y + 1/2*dy + uy *dx],\n [x + 2/3*dx, y + 2/3*dy];\n kres[1] := [0, 0], [1, 0 ];\n pl[1] := PLOT(CURVES([kres[1]]));\n pomsez := [0, 0], [1, 0 ];\n for i from 2 to n do\n dx := pomsez[2, 1] - pomsez[1, 1 ];\n dy := pomsez[2, 2] - pomsez[1, 2];\n x := pomsez[1, 1];\n y := pomsez[1, 2];\n kres[i] := s;\n for j from 2 to nops([pomsez]) - 1 do\n x := pomsez[j, 1];\n \+ y := pomsez[j, 2];\n dx := pomsez[j + 1, 1] - x;\n \+ dy := pomsez[j + 1, 2] - y;\n kres[i] := kres[i] , s\n od;\n pomsez := kres[i], [1, 0];\n kres[i] \+ := PLOT(CURVES([pomsez]));\n pl[i] := kres[i]\n od;\n for i to n do kresl[i] := plots[display]([pl[i]]) od;\n i := 'i';\n \+ plots[display]([kresl[i] $ (i = 1 .. n)], axes = none,\ninsequence=tr ue, scaling=constrained) end: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "kochkranim(5);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%(ANI MATEG6'7#-%'CURVESG6#7$7$\"\"!F,7$\"\"\"F,7#-F(6#7'F+7$#F.\"\"$F,7$$\" +++++]!#5$\"+Y8v')GF97$#\"\"#F5F,F-7#-F(6#73F+7$#F.\"\"*F,7$$\"+nmmm;F 9$\"+([/Di*!#67$#F>FEF,F37$$\"+*)))))))QF9FI7$$\"+MLLLLF9$\"+(*3]C>F97 $$\"+WWWWWF9FTF67$$\"+cbbbbF9FT7$$\"+nmmmmF9FT7$$\"+6666hF9$\"*\\/Di*F 9F<7$#\"\"(FEF,7$$\"+LLLL$)F9FI7$#\"\")FEF,F-7#-F(6#7]oF+7$#F.\"#FF,7$ $FenFK$\"+'\\,v?$FK7$#F>F]pF,FC7$$\"+'H'H'H\"F9F`p7$$\"+66666F9$\"+$*H +:kFK7$$\"+#[\"[\"[\"F9$\"+\"*H+:kFKFF7$$\"+_=&=&=F9F_q7$$\"+BAAAAF9$ \"+*)H+:kFK7$$\"+Pq.P?F9F`pFL7$#F`oF]pF,7$$\"+yxxxFF9F`p7$#FfoF]pF,F37 $$\"+=&=&=NF9F`p7$$\"+LLLLLF9Fjp7$$\"+/Pq.PF9F_qFN7$Fjr$\"+)f+IG\"F97$ FRF]s7$$\"+>&=&=NF9$\"+[2v.;F9FQ7$FjrFT7$FO$\"+Y5DXAF97$$\"+uS2uSF9FTF V7$$\"+H'H'HYF9$\"+Z5DXAF97$FW$\"+(>,gc#F97$$\"+:[\"[\"[F9$\"+'>,gc#F9 F67$$\"+&=&=&=&F9Fgt7$FZFbt7$$\"+r.Pq`F9F_tFY7$$\"+Ef#f#fF9FT7$$\"+766 6hF9F_t7$$\"+(H'H'H'F9FTFfn7$$\"+#[\"[\"['F9Fcs7$FgnF]s7$$\"+'H'H'H'F9 F]sFin7$F^vFjp7$Fgn$\"+%*H+:kFK7$Fju$\"+(\\,v?$FKF<7$#\"#>F]pF,7$$\"+A AAAsF9F`p7$#\"#?F]pF,F^o7$$\"+jH'H'zF9F`p7$$\"+yxxxxF9$\"+!*H+:kFK7$$ \"+[\"[\"[\")F9F_qFao7$$\"+=&=&=&)F9F_q7$$\"+*)))))))))F9$\"+#*H+:kFK7 $$\"+/Pq.()F9F`pFdo7$#\"#DF]pF,7$$\"+WWWW%*F9F`p7$#\"#EF]pF,F-7#-F(6#7 ][lF+7$#F.\"#\")F,7$$FcqFK$\"+lr;p5FK7$#F>FeyF,F[p7$$\"+bw)4K%FKFhy7$$ F[sFK$\"+JVLQ@FK7$$\"+0;FQ\\FKFazF^p7$$\"+1&RG<'FKFaz7$$\"+3uS2uFK$\"+ IVLQ@FK7$$\"+dM7!z'FKFhyFbp7$#F`oFeyF,7$$\"+f#f#f#*FKFhy7$#FfoFeyF,FC7 $$\"+1&RG<\"F9Fhy7$FhpF\\[l7$$\"+,zcM7F9FazFdp7$F]\\l$\"+i'omF%FK7$Fhp $\"+j'omF%FK7$Fi[l$\"+Fe$eM&FKFgp7$F]\\lFax7$$\"+(H'H'H\"F9$\"+f,<%[(F K7$$\"+#pC!e8F9FaxF\\q7$$\"+x)4Ka\"F9$\"+c,<%[(FK7$F]q$\"+@tL`&)FK7$$ \"+s#Q\\g\"F9$\"+AtL`&)FKFF7$$\"+i]RGF9Ffw7$$\"+Qq.P?F9$\"+d,<%[(FK7$$\"+Law)4#F 9FfwFdq7$$\"+GQ\\g@F9$\"+De$eM&FK7$Feq$\"+d'omF%FK7$$\"+Kaw)4#F9$\"+g' omF%FKFiq7$F[`lFaz7$FeqF\\[l7$$\"+FQ\\g@F9FhyFL7$#FivFeyF,7$$\"+2uS2CF 9Fhy7$#F_wFeyF,F\\r7$$\"+))4KaEF9Fhy7$$\"+$f#f#f#F9F\\[l7$$\"+$Q\\gr#F 9FazF^r7$$\"+th]RGF9Faz7$$\"+kH'H'HF9F\\[l7$$\"+oXB,HF9FhyFar7$#FhxFey F,7$$\"+[\"[\"[JF9Fhy7$#F^yFeyF,F37$$\"+G<1&R$F9Fhy7$FgrF\\[l7$$\"+B,z cMF9FazFcr7$FiblF`\\l7$FgrFc\\l7$FeblFf\\lFfr7$FiblFax7$FasF\\]l7$$\"+ 9pC!e$F9FaxFir7$$\"+*4Kaw$F9Fd]l7$FjrFg]l7$$\"+%\\gr#QF9F\\^lFN7$Fhcl$ FiyF97$FjrF[dl7$Fdcl$\"+#)Q3w6F9F\\s7$FaclF]s7$FasF^dl7$$\"+C,zcMF9F]s F_s7$$\"+H<1&R$F9$\"+:t\"**Q\"F97$FR$\"+JS$o\\\"F97$FcdlF[elF`s7$Fcdl$ \"+kum5%F9FT7$$\"+f#f#fUF 9F[fl7$$\"+aw)4K%F9FTFV7$$\"+RG<1XF9$\"+9wTJ?F97$FWFbfl7$$\"+M7!zc%F9F bflF\\t7$F[hl$\"+kx;_BF97$FWF^hl7$Fegl$\"+![%3fCF9Fat7$F[hlFbt7$$\"+I' H'HYF9$\"+9z\"Hn#F97$$\"+D!e8p%F9FgtFdt7$$\"+5Kaw[F9$\"+8z\"Hn#F97$Fet $\"+HY$)zFF97$$FezF9FcilF67$$\"+&RG<1&F9Fcil7$$\"+'=&=&=&F9Fcil7$$\"+! zcM7&F9F`ilFit7$$\"+v>k3`F9Fgt7$F^uFhhl7$$\"+m()4KaF9FbtF\\u7$$\"+hr#Q \\&F9Fbhl7$$\"+dbbbbF9F^hl7$FejlF^hlF]u7$FejlFbfl7$F[[mFbfl7$FhjlFgglF Y7$$\"+YB,zcF9FT7$$\"+T2uSdF9F[fl7$$\"+O\"pC!eF9FTF`u7$$\"+@Vl()fF9Fgg l7$FauFbfl7$$\"+kF9FT7$FjuF[fl7$$\"+x)4Ka'F9FTFfn7$$\"+s# Q\\g'F9Fgel7$FgnFdel7$F_]mF_elFiu7$F_]mF[el7$$\"+ommmmF9F[el7$Fb]mFhdl F\\v7$F_]mF]s7$Fju$\"+\")Q3w6F97$$\"+'3`(>kF9F]sF]v7$$\"+,zcMiF9F^dl7$ F^v$\"+mr;p5F97$$FhzF9F[dlFin7$Fi^m$\"+CtL`&)FK7$Fgu$\"+BtL`&)FK7$Fc^m F\\]lF`v7$F`^mFjp7$Fju$\"+h,<%[(FK7$F_]mFbvFav7$Fb]m$\"+Ge$eM&FK7$Fh]m Fc\\l7$F_]mFc\\lFdv7$F_]mFaz7$Fh]mF\\[l7$Fb]m$Fg^mFKF<7$#\"#bFeyF,7$$ \"+_=&=&oF9Fhy7$#\"#cFeyF,Fgv7$$\"+Kaw)4(F9Fhy7$$\"+Pq.PqF9F\\[l7$$\"+ FQ\\grF9FazFjv7$$\"+<1&RG(F9Faz7$$F[[lF9F\\[l7$$\"+7!zcM(F9FhyF]w7$#\" #hFeyF,7$$\"+$f#f#f(F9Fhy7$#\"#iFeyF,F^o7$$\"+th]RyF9Fhy7$FdwF\\[l7$$ \"+oXB,zF9FazF`w7$Fgbm$\"+h'omF%FK7$FdwFjbm7$FcbmFe_lFcw7$FgbmFfw7$Faw $\"+b,<%[(FK7$$\"+e8pC!)F9F_qFhw7$$\"+Vl()4#)F9Fd]l7$FiwFg]l7$$\"+Q\\g r#)F9F\\^lFao7$$\"+G<1&R)F9F\\^l7$$\"+>&=&=&)F9Fg]l7$$\"+B,zc%)F9Fd]lF [x7$$\"+3`(>k)F9F_q7$FdxF\\]l7$$\"+*4Kaw)F9FaxF^x7$$\"+%\\gr#))F9Ff\\l 7$$\"+!*))))))))F9F`\\l7$FjdmFjbmFcx7$FjdmFaz7$F`emF\\[l7$F]emFhyFdo7$ #\"#tFeyF,7$$\"+uS2u!*F9Fhy7$#\"#uFeyF,Ffx7$$\"+aw)4K*F9Fhy7$$Fe[lF9F \\[l7$$\"+\\gr#Q*F9FazFix7$$\"+RG<1&*F9Faz7$$\"+I'H'H'*F9$\"+LVLQ@FK7$ $\"+N7!zc*F9FhyF\\y7$#\"#zFeyF,7$$\"+:[\"[\")*F9Fhy7$#\"#!)FeyF,F--%*A XESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 400 300 300 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 217 151 1 0 0 0 100 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 8 "Vypocet:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 8 "Oznacme " } {XPPEDIT 18 0 "s[n];" "6#&%\"sG6#%\"nG" }{TEXT -1 39 " delku Kochovy k rivky v n-te iteraci a " }{XPPEDIT 18 0 "r[n];" "6#&%\"rG6#%\"nG" } {TEXT -1 55 " pocet usecek v n-te iteraci. Pak delka Kochovy krivky " }{XPPEDIT 18 0 "L = limit(s[n],n = infinity);" "6#/%\"LG-%&limitG6$&% \"sG6#%\"nG/F+%)infinityG" }{TEXT -1 6 ", kde " }{XPPEDIT 18 0 "s[n]; " "6#&%\"sG6#%\"nG" }{TEXT -1 42 " je soucinem delky usecky v n-te der ivaci " }{XPPEDIT 18 0 "d[n];" "6#&%\"dG6#%\"nG" }{TEXT -1 24 " a poct u usecek. Plati: " }{XPPEDIT 18 0 "r[n] = 4^(n-1);" "6#/&%\"rG6#%\"nG) \"\"%,&F'\"\"\"\"\"\"!\"\"" }{TEXT -1 3 " a " }{XPPEDIT 18 0 "d[n] = ( 1/3)^(n-1);" "6#/&%\"dG6#%\"nG)*&\"\"\"\"\"\"\"\"$!\"\",&F'F+\"\"\"F- " }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 5 "Tedy " }{XPPEDIT 18 0 "s[n] = (4/3)^(n-1);" "6#/&%\"sG6#%\"nG)*&\"\"%\"\"\"\"\"$!\"\",&F'F+ \"\"\"F-" }{TEXT -1 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "s:=(4/3)^(n-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG)#\"\"%\"\"$ ,&%\"nG\"\"\"!\"\"F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "L:= limit(s,n=infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG%)infini tyG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "Tedy delka Kochovy krivky \+ L=" }{XPPEDIT 18 0 "infinity;" "6#%)infinityG" }{TEXT -1 1 "." }}}} {SECT 1 {PARA 3 "" 0 "" {TEXT -1 14 "Kochova vlocka" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 698 "kochvloc := proc (n) local k, e, d, ox, oy , i, j; global sez, konsez, x, y; e\n:= 4; d := e; x := hfarray(1 .. e ); y := hfarray(1 .. e); x[1] := 0; x[2] := .\\\n5; x[3] := 1; x[4] := x[1]; y[1] := 0; y[2] := evalhf(sqrt(.75)); y[3] := y[1]\n; y[4] := y [1]; sez := [x[1], y[1]]; for k from 2 to d do sez := sez, [x[k], y\n[ k]] od; if n = 1 then konsez := [sez] else for i from 2 to n do d := e ; \nox := hfarray(1 .. d); oy := hfarray(1 .. d); for j to d do ox[j] \+ := x[j]; oy[\nj] := y[j] od; e := 4*d-3; x := hfarray(1 .. e); y := hf array(1 .. e); \nevalhf(next_Koch(d,ox,oy,e,x,y)); sez := seq([x[j], y [j]],j = 1 .. e) od;\nkonsez := [sez] fi; PLOT(CURVES(konsez),SCALING( CONSTRAINED),AXESSTYLE(\nNONE)) end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 515 "next_Koch := proc (d, ox, oy, e, x, y) local j, tr, \+ ux, uy, i, px, py, qx, qy,\ndx, dy; j := 0; tr := evalhf(1/3); ux := . 5; uy := evalhf(sqrt(.75)); qx := ox\n[1]; qy := oy[1]; for i from 2 t o d do px := qx; qx := ox[i]; py := qy; qy :=\noy[i]; j := j+1; x[j] : = px; y[j] := py; j := j+1; dx := qx-px; dy := qy-py; \ndx := tr*dx; d y := tr*dy; x[j] := px+dx; y[j] := py+dy; x[j+1] := x[j]+ux*dx-\nuy*dy ; y[j+1] := y[j]+ux*dy+uy*dx; x[j+2] := x[j]+dx; y[j+2] := y[j]+dy; j \+ :=\nj+2 od; j := j+1; x[j] := qx; y[j] := qy end:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 21 "vl:=array(1..2,1..2):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 21 "vl[1,1]:=kochvloc(1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "vl[1,2]:=kochvloc(2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "vl[2,1]:=kochvloc(3):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "vl[2,2]:=kochvloc(4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "display(vl);" }}{PARA 13 "" 1 "" {INLPLOT "6)-%'CURVE SG6#7S7$$!+++++5!\")$!+++++NF*7$$!+*)))))))))!\"*$!+LLLLLF*7$F($!+nmmm JF*7$$!+yxxxxF0F47$$!+mmmmmF0$!+++++IF*7$F7$!+LLLLGF*7$F(F?7$F.$!+nmmm EF*7$F($!+++++DF*7$F7FF7$F:$!+LLLLBF*7$$!+cbbbbF0FF7$$!+MLLLLF0FF7$$!+ AAAAAF0FJ7$FP$!+mmmm@F*7$$!+76666F0FV7$\"\"!$!+++++?F*7$$\"*6666\"F*FV 7$$\"*LLLL$F*FV7$$\"*AAAA#F*FJ7$F]oFF7$$\"*cbbb&F*FF7$$\"*nmmm'F*FJ7$$ \"*yxxx(F*FF7$$\"+++++5F*FF7$$\"**))))))))F*FC7$F]pF?7$FjoF?7$FgoF<7$F joF47$F]pF47$F`pF17$F]pF+7$FjoF+7$Fgo$!+nmmmOF*7$FdoF+7$F]oF+7$F`oF[q7 $F]o$!+LLLLQF*7$FjnFaq7$Ffn$!+++++SF*7$FYFaq7$FPFaq7$FSF[q7$FPF+7$FMF+ 7$F:F[q7$F7F+F'-F$6#7/7$$\"+++++?F*$!+,+++]F07$$\"+LLLLBF*Ffn7$Fbr$\"+ ********\\F07$$\"+nmmmEF*Fjr7$$\"+++++IF*$\"+**********F07$$\"+LLLLLF* Fjr7$$\"+++++SF*Fjr7$$\"+nmmmOF*Ffn7$FhsFdr7$FesFdr7$F`sF(7$F]sFdrFar- F$6#7&7$F($!+(*********F07$Ffn$\"+$*********F07$F]pFetFdt-F$6#7]w7$Fbr F+7$$\"+Pq.P?F*$!+WWWWMF*7$Fbr$!+*))))))Q$F*7$$\"+uS2u?F*Feu7$$\"+6666 @F*F17$Fhu$!+yxxxKF*7$FbrF^v7$F`u$!+AAAAKF*7$FbrF47$FhuF47$F[v$!+6666J F*7$$\"+[\"[\"[@F*F47$$\"+AAAAAF*F47$$\"+f#f#fAF*Fgv7$F]w$!+cbbbIF*7$$ \"+'H'H'H#F*Fcw7$FgrF<7$Ffw$!+WWWWHF*7$F]wFjw7$F`w$!+*)))))))GF*7$F]wF ?7$FjvF?7$F[vF^x7$FhuF?7$FbrF?7$F`u$!+yxxxFF*7$Fbr$!+AAAAFF*7$FhuFix7$ F[vFC7$Fhu$!+6666EF*7$FbrF^y7$F`u$!+bbbbDF*7$FbrFF7$FhuFF7$F[v$!+WWWWC F*7$FjvFF7$F]wFF7$F`wFgy7$F]w$!+*))))))Q#F*7$FfwF]z7$FgrFJ7$$\"+q.PqBF *F]z7$$\"+WWWWCF*F]z7$$\"+2uS2CF*Fgy7$FezFF7$$\"+>&=&=DF*FF7$$\"+cbbbD F*Fgy7$$\"+$f#f#f#F*FF7$F]sFF7$$\"+/Pq.FF*Fgy7$F]sF]z7$$\"+T2uSFF*F]z7 $$\"+yxxxFF*FJ7$Fj[l$!+xxxxAF*7$F]sF`\\l7$Ff[l$FTF*7$F]sFV7$Fj[lFV7$F] \\l$!+6666@F*7$$\"+:[\"[\"GF*FV7$$\"+*)))))))GF*FV7$$\"+Ef#f#HF*Fh\\l7 $F^]l$!+bbbb?F*7$$\"+jH'H'HF*Fd]l7$F`sFgn7$$\"+Pq.PIF*Fd]l7$$\"+6666JF *Fd]l7$$\"+uS2uIF*Fh\\l7$F^^lFV7$$\"+&=&=&=$F*FV7$$\"+AAAAKF*Fh\\l7$$ \"+f#f#fKF*FV7$FesFV7$$\"+'H'H'H$F*Fd\\l7$FesF`\\l7$F[_lF`\\l7$Fh^lFJ7 $F[_lF]z7$FesF]z7$F__lFgy7$FesFF7$$\"+2uS2MF*FF7$$\"+WWWWMF*Fgy7$$\"+ \"[\"[\"[$F*FF7$$\"+cbbbNF*FF7$$\"+$f#f#f$F*Fgy7$Fb`lF]z7$$\"+I'H'HOF* F]z7$F[tFJ7$$\"+/Pq.PF*F]z7$$\"+yxxxPF*F]z7$$\"+T2uSPF*Fgy7$F`alFF7$$ \"+_=&=&QF*FF7$$\"+*)))))))QF*Fgy7$$\"+Ef#f#RF*FF7$FhsFF7$$\"+jH'H'RF* Fby7$FhsF^y7$F]blF^y7$FjalFC7$F]blFix7$FhsFix7$FablFfx7$FhsF?7$F]blF?7 $FjalF^x7$FgalF?7$F`alF?7$FcalF^x7$F`alFjw7$F]alFjw7$F[tF<7$F]alFcw7$F `alFcw7$FcalFgv7$F`alF47$FgalF47$FjalFgv7$F]blF47$FhsF47$FablFbv7$FhsF ^v7$F]blF^v7$FjalF17$F]blFeu7$FhsFeu7$FablFbu7$FhsF+7$F]blF+7$Fjal$!+c bbbNF*7$FgalF+7$F`alF+7$FcalFddl7$F`al$!+6666OF*7$F]alFjdl7$F[tF[q7$Fi `lFjdl7$Fb`lFjdl7$Fe`lFddl7$Fb`lF+7$F_`lF+7$F\\`lFddl7$Fi_lF+7$FesF+7$ F__lFddl7$FesFjdl7$F[_lFjdl7$Fh^lF[q7$F[_l$!+AAAAPF*7$FesF[fl7$F__l$!+ yxxxPF*7$FesFaq7$F[_lFaq7$Fh^l$!+*)))))))QF*7$Fe^lFaq7$F^^lFaq7$Fa^lFd fl7$F^^l$!+XWWWRF*7$F[^lFjfl7$F`sFeq7$Fg]lFjfl7$F^]lFjfl7$Fa]lFdfl7$F^ ]lFaq7$F[]lFaq7$F]\\lFdfl7$Fj[lFaq7$F]sFaq7$Ff[lF_fl7$F]sF[fl7$Fj[lF[f l7$F]\\lF[q7$Fj[lFjdl7$F]sFjdl7$Ff[lFddl7$F]sF+7$Fb[lF+7$F_[lFddl7$F\\ [lF+7$FezF+7$FhzFddl7$FezFjdl7$FbzFjdl7$FgrF[q7$FfwFjdl7$F]wFjdl7$F`wF ddl7$F]wF+7$FjvF+7$F[vFddl7$FhuF+F^u-F$6\"-%*AXESSTYLEG6#%%NONEG-%(SCA LINGG6#%,CONSTRAINEDG" 2 400 300 300 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "read \"kochvloc anim.txt\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "kochvlocanim (5);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%(ANIMATEG6'7#-%)POLYGONSG6$7&7$ \"\"!F,7$$\"\"\"F,F,7$$\"+++++]!#5$\"+SSDg')F3F+-%&STYLEG6#%&PATCHG7#- F(6$7/F+7$$\"+LLLLLF3F,7$F1$!+Z8v')GF37$$\"+nmmmmF3F,F-7$$\"+LLLL$)F3$ \"+Z8v')GF37$F.$\"+$p-Nx&F37$FEFMF07$F?FM7$F,FM7$$\"+nmmm;F3FJF+F67#-F (6$7SF+7$$\"+66666F3F,7$FS$!+!\\/Di*!#67$$\"+AAAAAF3F,F>7$$\"+*))))))) QF3Fgn7$F?$!+)*3]C>F37$$\"+WWWWWF3FaoFA7$$\"+cbbbbF3Fao7$FEFao7$$\"+66 66hF3FgnFD7$$\"+yxxxxF3F,7$FHFgn7$$\"+*)))))))))F3F,F-7$$\"+WWWW%*F3$ \"+!\\/Di*Fin7$F.$\"+)*3]C>F37$FbpFjpFG7$Fbp$\"+&z,!\\QF37$F.F^q7$Fep$ \"+XAD6[F3FL7$FbpFM7$FH$\"+UJvNnF37$F^pFMFO7$F[pFfq7$FE$\"+!f.!)p(F37$ FgoF[rF07$FdoF[r7$F?F[r7$F^oFfqFP7$F[oFM7$FSFfq7$FZFMFQ7$$FhoFinFbq7$F ,F^q7$FZF^qFR7$FZFjp7$F,Fjp7$FerFgpF+F67#-F(6$7]wF+7$$\"+/Pq.PFinF,7$F er$!+(\\,v?$Fin7$$\"+2uS2uFinF,FY7$$\"+'H'H'H\"F3Fcs7$FZ$!+$*H+:kFin7$ $\"+\"[\"[\"[\"F3F\\tFfn7$$\"+_=&=&=F3F\\t7$F[oF\\t7$$\"+Pq.P?F3FcsFjn 7$$\"+$f#f#f#F3F,7$$\"+yxxxFF3Fcs7$$\"+jH'H'HF3F,F>7$$\"+>&=&=NF3Fcs7$ F?F\\t7$$FasF3F\\tF]o7$Ffu$!+)f+IG\"F37$F?Fhu7$Fbu$!+[2v.;F3F`o7$FfuFa o7$F^o$!+Z5DXAF37$$\"+uS2uSF3FaoFco7$$\"+I'H'HYF3F`v7$Fdo$!+'>,gc#F37$ $\"+:[\"[\"[F3FivFA7$$\"+&=&=&=&F3Fiv7$FgoFiv7$$\"+q.Pq`F3F`vFfo7$$\"+ Ef#f#fF3Fao7$F[pF`v7$$\"+'H'H'H'F3FaoFio7$$\"+\"[\"[\"['F3F\\v7$FEFhu7 $FjwFhuFjo7$FjwF\\t7$FEF\\t7$F]xFcsFD7$$\"+Pq.PqF3F,7$$\"+AAAAsF3Fcs7$ $FgsF3F,F]p7$$\"+jH'H'zF3Fcs7$F^pF\\t7$$\"+[\"[\"[\")F3F\\tF`p7$$\"+>& =&=&)F3F\\t7$FbpF\\t7$$\"+/Pq.()F3FcsFap7$$\"+f#f#f#*F3F,7$FepFcs7$$\" +I'H'H'*F3F,F-7$$\"+:[\"[\")*F3$\"+(\\,v?$Fin7$F.$\"+$*H+:kFin7$F_zFgz Fdp7$F_z$\"+)f+IG\"F37$F.F[[l7$Fbz$\"+[2v.;F3Fip7$F_zFjp7$Fep$\"+Z5DXA F37$F[zFjpF\\q7$FhyFc[l7$Fbp$\"+'>,gc#F37$FdyFh[lFG7$Fdy$FezF37$FbpF\\ \\l7$Fhy$\"+Y;DGNF3F]q7$F[zF^q7$FepF_\\l7$F_zF^qF`q7$Fbz$\"+W>vpTF37$F .$\"+'4-0\\%F37$F_zFh\\lFaq7$F_z$\"+%R-?8&F37$F.F\\]l7$Fbz$\"+VDv_aF3F L7$F_zFM7$Fep$\"+WGD%4'F37$F[zFMFdq7$FhyFd]l7$Fbp$FhzF37$FdyFi]lFeq7$F ayFi]l7$F^pFi]l7$F]yFd]lFhq7$F[yFM7$FhxFd]l7$FexFMFO7$F]xFd]l7$FEFi]l7 $FjwFi]lFiq7$Fjw$\"+#H.l0(F37$FEFe^l7$F]x$\"+TMDxtF3Fjq7$FjwF[r7$F[p$ \"+TPv=!)F37$FfwF[rF]r7$FcwF]_l7$Fgo$\"+\"*Q]R$)F37$F_wFb_lF07$F\\wFb_ l7$FdoFb_l7$FfvF]_lF^r7$FcvF[r7$F^oF]_l7$FfuF[rF_r7$FbuFi^l7$F?Fe^l7$F fuFe^lF`r7$FfuFi]l7$F?Fi]l7$FbuFd]lFP7$F_uFM7$F\\uFd]l7$FitFMFar7$FftF d]l7$F[oFi]l7$FbtFi]lFbr7$F_tFi]l7$FZFi]l7$FisFd]lFcr7$FfsFM7$FerFd]l7 $F`sFMFQ7$$FctFinF`]l7$F,F\\]l7$F`sF\\]lFdr7$F`sFh\\l7$F,Fh\\l7$F^alFe \\lFfr7$F`sF^q7$FerF_\\l7$FfsF^qFgr7$FisF_\\l7$FZF\\\\l7$F_tF\\\\lFR7$ F_tFh[l7$FZFh[l7$FisFc[lFhr7$FfsFjp7$FerFc[l7$F`sFjpFir7$F^alF_[l7$F,F [[l7$F`sF[[lFjr7$F`sFgz7$F,Fgz7$F^alFdzF+F67#-F(6$7][nF+7$$\"+,zcM7Fin F,7$F^al$!+lr;p5Fin7$$\"+-e8pCFinF,F_s7$$\"+aw)4K%FinF^cl7$F`s$!+IVLQ@ Fin7$$\"+0;FQ\\FinFgclFbs7$$\"+1&RG<'FinFgcl7$FfsFgcl7$$\"+dM7!z'FinF^ clFes7$$\"+4`(>k)FinF,7$$F\\zFinF^cl7$$\"+5Kaw)*FinF,FY7$$\"+1&RG<\"F3 F^cl7$FZFgcl7$$F\\clF3FgclFhs7$F`el$!+h'omF%Fin7$FZFbel7$F\\el$!+Fe$eM &FinF[t7$F`elF\\t7$Fis$!+d,<%[(Fin7$$\"+\"pC!e8F3F\\tF^t7$$\"+x)4Ka\"F 3Fjel7$F_t$!+CtL`&)Fin7$$\"+s#Q\\g\"F3FcflFfn7$$\"+i]RGF3F\\t7$FftFjel7$$\"+Kaw)4#F3F\\tFd t7$$\"+FQ\\g@F3Ffel7$F[oFbel7$FdglFbelFet7$FdglFgcl7$F[oFgcl7$FgglF^cl Fjn7$$\"+7!zcM#F3F,7$$\"+2uS2CF3F^cl7$$FbclF3F,Fht7$$\"+))4KaEF3F^cl7$ FitFgcl7$$\"+$Q\\gr#F3FgclF[u7$$\"+th]RGF3Fgcl7$F_uFgcl7$$\"+oXB,HF3F^ clF^u7$$\"+`(>k3$F3F,7$$\"+[\"[\"[JF3F^cl7$$\"+Vl()4KF3F,F>7$$\"+G<1&R $F3F^cl7$F?Fgcl7$$\"+B,zcMF3FgclFau7$FbjlFbel7$F?Fbel7$F^jlFfelFdu7$Fb jlF\\t7$FbuFjel7$$\"+9pC!e$F3F\\tFeu7$$\"+*4Kaw$F3Fjel7$FfuFcfl7$$\"+% \\gr#QF3FcflF]o7$Fa[m$F_clF37$FfuFd[m7$F][m$!+#)Q3w6F3Fgu7$FjjlFhu7$Fb uFg[m7$FbjlFhuFju7$F^jl$!+:t\"**Q\"F37$F?$!+KS$o\\\"F37$FbjlF`\\mF[v7$ Fbjl$!+lum5%F3Fao7$$\"+f#f#fUF3F\\]m7$$FeclF3F aoFco7$$\"+SG<1XF3F\\]m7$FdoFa]m7$$\"+N7!zc%F3Fa]mFev7$Fg^m$!+jx;_BF37 $FdoFj^m7$Fc^m$!+![%3fCF3Fhv7$Fg^mFiv7$Ffv$!+9z\"Hn#F37$$\"+D!e8p%F3Fi vF[w7$$\"+5Kaw[F3Fb_m7$F\\w$!+JY$)zFF37$$F[dlF3F[`mFA7$$\"+&RG<1&F3F[` m7$F_wF[`m7$$\"+!zcM7&F3Fb_mF^w7$$\"+v>k3`F3Fiv7$FcwFb_m7$$\"+l()4KaF3 FivFaw7$$\"+gr#Q\\&F3F^_m7$FgoFj^m7$F[amFj^mFbw7$F[amFa]m7$FgoFa]m7$F^ amF\\]mFfo7$$\"+YB,zcF3Fao7$$\"+T2uSdF3F\\]m7$$\"+O\"pC!eF3FaoFew7$$\" +@Vl()fF3F\\]m7$FfwFa]m7$$\"+;FQ\\gF3Fa]mFhw7$$F^dlF3Fa]m7$FjwFa]m7$$ \"+,zcMiF3F\\]mFiw7$$\"+'3`(>kF3Fao7$F]xF\\]m7$$\"+x)4Ka'F3FaoFio7$$\" +s#Q\\g'F3Fh\\m7$FEFd\\m7$F`cmFd\\mF\\x7$F`cmF`\\m7$FEF`\\m7$FccmF]\\m F_x7$F`cmFhu7$F]xFg[m7$F\\cmFhuF`x7$FibmFg[m7$FjwFd[m7$FfbmFd[mFjo7$Ff bmFcfl7$FjwFcfl7$FibmFjelFax7$F\\cmF\\t7$F]xFjel7$F`cmF\\tFbx7$FccmFfe l7$FEFbel7$F`cmFbelFcx7$F`cmFgcl7$FEFgcl7$FccmF^clFD7$$FbdlF3F,7$$\"+_ =&=&oF3F^cl7$$\"+Z-e8pF3F,Fdx7$$\"+Kaw)4(F3F^cl7$FexFgcl7$$\"+FQ\\grF3 FgclFgx7$$\"+<1&RG(F3Fgcl7$F[yFgcl7$$\"+7!zcM(F3F^clFjx7$$\"+)>k3`(F3F ,7$$\"+$f#f#f(F3F^cl7$$\"+))4KawF3F,F]p7$$\"+th]RyF3F^cl7$F^pFgcl7$$\" +oXB,zF3FgclF\\y7$F`gmFbel7$F^pFbel7$F\\gmFfelF_y7$F`gmF\\t7$F]yFjel7$ $\"+e8pC!)F3F\\tF`y7$$\"+Vl()4#)F3Fjel7$FayFcfl7$$\"+Q\\gr#)F3FcflF`p7 $$\"+G<1&R)F3Fcfl7$FdyFcfl7$$\"+B,zc%)F3FjelFcy7$$FedlF3F\\t7$FhyFjel7 $$\"+*4Kaw)F3F\\tFfy7$$\"+%\\gr#))F3Ffel7$FbpFbel7$F\\imFbelFgy7$F\\im Fgcl7$FbpFgcl7$F_imF^clFap7$$\"+zcM7!*F3F,7$$\"+uS2u!*F3F^cl7$$\"+pC!e 8*F3F,Fjy7$$\"+aw)4K*F3F^cl7$F[zFgcl7$$\"+\\gr#Q*F3FgclF]z7$$\"+SG<1&* F3Fgcl7$F_zFgcl7$$\"+N7!zc*F3F^clF^z7$$\"+?k3`(*F3F,7$FbzF^cl7$$FjdlF3 F,F-7$$\"+0;FQ**F3$\"+lr;p5Fin7$F.$\"+IVLQ@Fin7$Fb[nFi[nFaz7$Fb[n$\"+h 'omF%Fin7$F.F]\\n7$Fd[n$\"+Fe$eM&FinFfz7$Fb[nFgz7$Fbz$\"+d,<%[(Fin7$F^ [nFgzFiz7$F[[nFe\\n7$F_z$\"+CtL`&)Fin7$FgjmFj\\nFdp7$Fgjm$Fg[nF37$F_zF ^]n7$F[[n$\"+#)Q3w6F3Fjz7$F^[nF[[l7$FbzFa]n7$Fb[nF[[lF][l7$Fd[n$\"+:t \"**Q\"F37$F.$\"+KS$o\\\"F37$Fb[nFj]nF^[l7$Fb[n$\"+lum5*Q_F37$F.$Fb\\nF37$Fb[nF`enF_]l7$Fb[n$\"+g#p'fbF37$F.Fcen7$Fd [n$\"+wfemcF3FL7$Fb[nFM7$Fbz$\"+4%>/)eF37$F^[nFMFb]l7$F[[nF[fn7$F_z$\" +EhL()fF37$FgjmF`fnFc]l7$FdjmF`fn7$F[zF`fn7$F`jmF[fnFf]l7$F]jmFM7$Fjim F[fn7$FgimFMFdq7$F_imF[fn7$FbpF`fn7$F\\imF`fnFg]l7$F\\im$\"+g&p6?'F37$ FbpF]gn7$F_im$\"+xi33jF3Fh]l7$F\\imFi]l7$Fhy$\"+5(>>_'F37$FihmFi]lFj]l 7$FfhmFegn7$Fdy$\"+Ek$)GmF37$FbhmFjgnFeq7$F_hmFjgn7$FayFjgn7$F[hmFegnF [^l7$FhgmFi]l7$F]yFegn7$F`gmFi]lF\\^l7$F\\gmFagn7$F^pF]gn7$F`gmF]gnF]^ l7$F`gmF`fn7$F^pF`fn7$F\\gmF[fnFhq7$FifmFM7$FffmF[fn7$FcfmFMF^^l7$F`fm F[fn7$F[yF`fn7$F\\fmF`fnF_^l7$FiemF`fn7$FexF`fn7$FeemF[fnF`^l7$FbemFM7 $F_emF[fn7$F]emFMFO7$FccmF[fn7$FEF`fn7$F`cmF`fnFa^l7$F`cmF]gn7$FEF]gn7 $FccmFagnFb^l7$F`cmFi]l7$F]xFegn7$F\\cmFi]lFc^l7$FibmFegn7$FjwFjgn7$Ff bmFjgnFiq7$Ffbm$\"+f)pE%oF37$FjwFbjn7$Fibm$\"+vle\\pF3Fd^l7$F\\cmFe^l7 $F]xFfjn7$F`cmFe^lFg^l7$Fccm$\"+3+UjrF37$FE$\"+DnLqsF37$F`cmF_[oFh^l7$ F`cm$Ff\\nF37$FEFc[o7$Fccm$\"+uo3\"f(F3Fjq7$F`cmF[r7$F]x$\"+4.#\\!yF37 $F\\cmF[rF[_l7$FibmFj[o7$Fjw$\"+Dq$=\"zF37$FfbmF_\\oF\\_l7$FcbmF_\\o7$ FfwF_\\o7$F_bmFj[oF__l7$F\\bmF[r7$FiamFj[o7$FfamF[rF]r7$F^amFj[o7$FgoF _\\o7$F[amF_\\oF`_l7$F[am$\"+e/nD\")F37$FgoF\\]o7$F^am$\"+ureK#)F3Fa_l 7$F[amFb_l7$Fcw$\"+21UY%)F37$Fg`mFb_lFd_l7$Fd`mFd]o7$F_w$F[]nF37$F``mF i]oF07$F^`mFi]o7$F\\wFi]o7$Fh_mFd]oFe_l7$Fe_mFb_l7$FfvFd]o7$Fg^mFb_lFf _l7$Fc^mF`]o7$FdoF\\]o7$Fg^mF\\]oFg_l7$Fg^mF_\\o7$FdoF_\\o7$Fc^mFj[oF^ r7$Fa^mF[r7$F^^mFj[o7$F[^mF[rFh_l7$Fh]mFj[o7$FcvF_\\o7$Fd]mF_\\oFi_l7$ Fa[mF_\\o7$FfuF_\\o7$F][mFj[oFj_l7$FjjlF[r7$FbuFj[o7$FbjlF[rF_r7$F^jlF f[o7$F?Fc[o7$FbjlFc[oF[`l7$FbjlF_[o7$F?F_[o7$F^jlF\\[oF\\`l7$FbjlFe^l7 $FbuFfjn7$FjjlFe^lF]`l7$F][mFfjn7$FfuFbjn7$Fa[mFbjnF`r7$Fa[mFjgn7$FfuF jgn7$F][mFegnF^`l7$FjjlFi]l7$FbuFegn7$FbjlFi]lF_`l7$F^jlFagn7$F?F]gn7$ FbjlF]gnF``l7$FbjlF`fn7$F?F`fn7$F^jlF[fnFP7$F[jlFM7$FhilF[fn7$FeilFMFa `l7$FbilF[fn7$F_uF`fn7$F^ilF`fnFb`l7$F[ilF`fn7$FitF`fn7$FghlF[fnFc`l7$ FehlFM7$FbhlF[fn7$F_hlFMFar7$FgglF[fn7$F[oF`fn7$FdglF`fnFd`l7$FdglF]gn 7$F[oF]gn7$FgglFagnFe`l7$FdglFi]l7$FftFegn7$F`glFi]lFf`l7$F]glFegn7$Fb tFjgn7$FiflFjgnFbr7$FfflFjgn7$F_tFjgn7$F`flFegnFg`l7$F]flFi]l7$FisFegn 7$F`elFi]lFh`l7$F\\elFagn7$FZF]gn7$F`elF]gnFi`l7$F`elF`fn7$FZF`fn7$F\\ elF[fnFcr7$FidlFM7$FgdlF[fn7$FddlFMFj`l7$FadlF[fn7$FfsF`fn7$F]dlF`fnF[ al7$FjclF`fn7$F`sF`fn7$FdclF[fnF\\al7$FaclFM7$F^alF[fn7$F[clFMFQ7$$F^d l!#7Fgen7$F,Fcen7$F[clFcenF]al7$F[clF`en7$F,F`en7$F\\doF]enF_al7$F[clF \\]l7$F^alFgdn7$FaclF\\]lF`al7$FdclFgdn7$F`sFcdn7$FjclFcdnFdr7$FjclF_d n7$F`sF_dn7$FdclFjcnFaal7$FaclFh\\l7$F^alFjcn7$F[clFh\\lFbal7$F\\doFfc n7$F,Fccn7$F[clFccnFcal7$F[clF_cn7$F,F_cn7$F\\doF\\cnFfr7$F[clF^q7$F^a lF]bn7$FaclF^qFdal7$FdclF]bn7$F`sFian7$FjclFianFeal7$F]dlFian7$FfsFian 7$FadlF]bnFfal7$FddlF^q7$FgdlF]bn7$FidlF^qFgr7$F\\elF]bn7$FZFian7$F`el FianFgal7$F`elFean7$FZFean7$F\\elFbanFhal7$F`elF\\\\l7$FisF\\an7$F]flF \\\\lFial7$F`flF\\an7$F_tFh`n7$FfflFh`nFR7$FfflFd`n7$F_tFd`n7$F`flF_`n Fjal7$F]flFh[l7$FisF_`n7$F`elFh[lF[bl7$F\\elF[`n7$FZFg_n7$F`elFg_nF\\b l7$F`elF[_n7$FZF[_n7$F\\elFf^nFhr7$FidlFjp7$FgdlFf^n7$FddlFjpF]bl7$Fad lFf^n7$FfsF[_n7$F]dlF[_nF^bl7$FjclF[_n7$F`sF[_n7$FdclFf^nF_bl7$FaclFjp 7$F^alFf^n7$F[clFjpFir7$F\\doFb^n7$F,F^^n7$F[clF^^nF`bl7$F[clFj]n7$F,F j]n7$F\\doFg]nFabl7$F[clF[[l7$F^alFa]n7$FaclF[[lFbbl7$FdclFa]n7$F`sF^] n7$FjclF^]nFjr7$FjclFj\\n7$F`sFj\\n7$FdclFe\\nFcbl7$FaclFgz7$F^alFe\\n 7$F[clFgzFdbl7$F\\doFa\\n7$F,F]\\n7$F[clF]\\nFebl7$F[clFi[n7$F,Fi[n7$F \\doFf[nF+F6-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 400 300 300 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 250 162 1 0 0 0 100 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 31 "Vypoctete obsah Kochovy vlocky." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a[1]:=sqrt(3)/4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"aG6#\"\"\",$*$-%%sqrtG6#\"\"$\"\"\"#F'\"\"%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "a[n]:=a[1]/9^(n-1)*3*4^(n-2) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"aG6#%\"nG,$*&*&-%%sqrtG6#\" \"$\"\"\")\"\"%,&F'\"\"\"!\"#F3F3F/)\"\"*,&F'F3!\"\"F3!\"\"#F.F1" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "S:=a[1]+sum(a[n],n=2..infini ty);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG,$*$-%%sqrtG6#\"\"$\"\" \"#\"\"#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "6" 0 }{VIEWOPTS 1 1 0 1 1 1803 }