{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 140 "COLORES := array(1..6):\nCOLORES[1] := blue:\nCOLORES[2]:= red:\n COLORES[3]:= blue:\nCOLORES[4] := red:\nCOLORES[5] := blue:\nCOLORES[6 ] := red:\n\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "a:=1:" }}}{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)->1 1^(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 117 "l:=seq(seq(plot([1/2+r(n,k)*cos(t),r(n,k)*sin(t),t=0..Pi],color=b lack,axes=none,thickness=THICK[1]),k=0..11),n=0..2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "ll:=[seq(seq(seq(plots[display](curve([[ p(n,k,s),0],[p(n,k,s),-a]],axes=none,thickness=THICK[s],colour=COLORES [s])),k=0..11),n=1..5),s=1..1)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "lll:=seq(seq(seq(plot(\n[6.5/(11^s)+cos(t)*rr(p(n,k, s),s),\n-a-sin(t)*rr(p(n,k,s),s),t=0..Pi],axes=none,thickness=THICK[s] ,colour=COLORES[s]),k=0..11),n=1..3),s=1..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "l l2:=[seq(seq(seq(plots[display](curve([[p(n,11*k,s),0],[p(n,11*k,s),-a ]],axes=none,thickness=THICK[1],color=COLORES[s])),k=0..1),n=1..5),s=2 ..2)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 169 "lll2:=seq(seq(se q(plot([6.5/(11^s)+cos(t)*rr(p(n,11*k,s),s),\n-a-sin(t)*rr(p(n,11*k,s) ,s),t=0..Pi],axes=none,thickness=THICK[1],color=COLORES[s]),k=0..1),n= 1..3),s=2..2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 116 "ll3:=seq(plots[display](cur ve([[n/(11^2),0],[n/(11^2),-a]],color=COLORES[1],axes=none,thickness=T HICK[1])),\nn=0..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "ll l3:=plot(\n[.5/(11^2)+cos(t)*(11^(-2)/2),-a-sin(t)*(11^(-2)/2),t=0..Pi ],colour=COLORES[1],axes=none,thickness=THICK[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "display(l,ll,lll,ll2,lll2,ll3,lll3,axes=none,scaling=constrained); " }}}{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 106 "plotsetup(ps,plotoutpu t=`bok2.ps`,plotoptions=`noborder, axisheight=10cm, axiswidth=10cm,por trait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "plotsetu p(gif,plotoutput=`paooop.gif`,plotoptions=`noborder, axisheight=10cm, \+ axiswidth=10cm,transparent=true,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "25 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }