{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 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {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 21 "THICK:=[2,2,2,2,2,2]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 146 "COLORES := array(1..6):\nCOLORES[1] := blue:\nCOLORES[2]:= red:\n COLORES[3]:= black:\nCOLORES[4] := black:\nCOLORES[5] := black:\nCOLOR ES[6] := black:\n\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 36 "r:=(n,k)->1/2 - (2*n/11 + k/(11^2)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "p:=(n,k,s)->(2*n/(11^s) + k/(11^(s+ 1))):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "f:=(t,s)->11^(s-1) *min(t,(1+2/11)/(11^(s-1))-t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "rr:=(t,s)->abs((6.5/(11^s) - t)):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "l:=cu rve([[0,0],[0,1]],color=black,thickness=THICK[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 216 "ll4:=seq(seq(seq(curve(\n[[0,0],[\n-(-1)^s*(sin(f(p(n,k,s),s))+si n(f(p(n,k,s),s))*rr(p(n,k,s),s)),\n-cos(f(p(n,k,s),s))-cos(f(p(n,k,s), s))*rr(p(n,k,s),s)]],\nthickness=THICK[s],color=COLORES[s]),k=0..11),n =1..3),s=4..4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "display( ll[2],scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "display(ll4,ll3,ll2,ll1,l,scaling=constrained,axes=none);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "plotsetup(ps,plotoutput=`po hled.ps`,plotoptions=`noborder, axisheight=10cm, axiswidth=10cm,portra it,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "plotsetup(g if,plotoutput=`paooop.gif`,plotoptions=`noborder, axisheight=10cm, axi swidth=10cm,transparent=true,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 19 }{VIEWOPTS 1 1 0 1 1 1803 }