{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 }{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 "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 21 "THICK:=[1,1,1,1,1,1]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "THICK:=[3,3,1,1,5,5]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 143 "COLORES := array(1..6):\nCOLORES[1] := blue: \nCOLORES[2]:= red:\nCOLORES[3]:= blue:\nCOLORES[4] := red:\nCOLORES[5 ] := black:\nCOLORES[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 115 "l:=seq(seq(spacecurve([1/2+r(n,k)*cos(t),r(n,k)*si n(t),0],t=0..Pi,color=black,thickness=THICK[1]),k=0..11),n=0..2):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "ll:=ss->seq(seq(seq(curve([ [p(n,k,s),0,0],[p(n,k,s),-cos(f(p(n,k,s),s)),-(-1)^s*sin(f(p(n,k,s),s) )]],thickness=THICK[s],colour=COLORES[s]),k=0..11),n=1..5),s=ss..ss): " }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `s` in call to `seq` is not \+ local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `n` in call to `seq` is not local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `k` in call to `se q` is not local" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 268 "lll:=se q(seq(seq(spacecurve(\n[6.5/(11^s)+cos(t)*rr(p(n,k,s),s),\n-cos(f(p(n, k,s),s))-sin(t)*cos(f(p(n,k,s),s))*rr(p(n,k,s),s),\n-(-1)^s*(sin(f(p(n ,k,s),s))+sin(t)*sin(f(p(n,k,s),s))*rr(p(n,k,s),s))],t=0..Pi,thickness =THICK[s],colour=COLORES[s]),k=0..11),n=1..3),s=1..6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "display(lll,l,ll(1),ll(2),ll(3),ll(4),ll(5),ll(6),sca ling=constrained,orientation=[-180,-50]);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "ppp: =seq(plots[display](lll,ll6,ll5,ll4,ll3,ll2,ll1,l,orientation=[-180,-1 0*m],scaling=constrained),m=0..35):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "display (ppp,insequence=true);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "plotsetup(ps,plotoutput= `fotoa.ps`,plotoptions=`noborder, axisheight=10cm, axiswidth=10cm,port rait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "plotsetup (gif,plotoutput=`fotob.gif`,plotoptions=`noborder, axisheight=10cm, ax iswidth=10cm,transparent=true,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "19 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }