{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 "" {MPLTEXT 1 0 127 "restart:\ny:=1+cos( theta):\nx:=theta-sin(theta):\nCyclo:=plot([x,y,theta=0..2*Pi]):\ny:=y +0.05:\ntheta:=2*arccos(cos(t/2)*cos(a/2)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 986 "n:=40:\na:=0.01:\nP1:=seq([x,y],t=seq(a+k*(Pi-a)/ n,k=0..n)):\nPP1:=map(x->[2*evalf(Pi)-x[1],x[2]],[seq(P1[nops([P1])-k] ,k=1..nops([P1])-1)]):\nP1:=op(map(pointplot,[P1],symbol=circle)),op(m ap(pointplot,PP1,symbol=circle)):\nP1:=P1,seq(P1[nops([P1])-k],k=1..no ps([P1])-1):\na:=evalf(Pi/3):\nP2:=seq([x,y],t=seq(a+k*(Pi-a)/n,k=0..n )):\nPP2:=map(x->[2*evalf(Pi)-x[1],x[2]],[seq(P2[nops([P2])-k],k=1..no ps([P2])-1)]):\nP2:=op(map(pointplot,[P2],color=blue,symbol=circle)),o p(map(pointplot,PP2,color=blue,symbol=circle)):\nP2:=P2,seq(P2[nops([P 2])-k],k=1..nops([P2])-1):\na:=evalf(Pi/2):\nP3:=seq([x,y],t=seq(a+k*( Pi-a)/n,k=0..n)):\nPP3:=map(x->[2*evalf(Pi)-x[1],x[2]],[seq(P3[nops([P 3])-k],k=1..nops([P3])-1)]):\nP3:=op(map(pointplot,[P3],color=violet,s ymbol=circle)),op(map(pointplot,PP3,color=violet,symbol=circle)):\nP3: =P3,seq(P3[nops([P3])-k],k=1..nops([P3])-1):\ndisplay([Cyclo,display([ P1],insequence=true),display([P2],insequence=true),display([P3],insequ ence=true)],scaling=constrained,axes=none);" }{TEXT -1 0 "" }}}}{MARK "1 0 1" 0 }{VIEWOPTS 1 1 0 1 1 1803 }