{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 130 "restart:with(plots) :\na:=arcsinh(1.):\nh:=1:l:=h:\nphi:=t->cosh(t-2*a*floor((t+a)/2/a)): \nchain:=plot(-phi,-3..3,scaling=constrained):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 338 "n:=5:\nbx:=k*a/n:\nb:=k*a/n-2*a*floor((k*a/n+ a)/2/a):\nc:=seq(display([polygonplot([\n[bx+(1-sinh(b))/cosh(b),-(1+s inh(b))/cosh(b)],\n[bx+(1+sinh(b))/cosh(b),(1-sinh(b))/cosh(b)],\n[bx- (1-sinh(b))/cosh(b),(1+sinh(b))/cosh(b)],\n[bx-(1+sinh(b))/cosh(b),-(1 -sinh(b))/cosh(b)]]),\nplot([[bx,0]],style=point,symbol=circle,color=b lack)]),k=-3*n..3*n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "d isplay([chain,plot(0,-3..3,color=blue),display([c],insequence=true)],v iew=[-3..3,-2..2],axes=none);" }}}}{MARK "2 0 0" 100 }{VIEWOPTS 1 1 0 1 1 1803 }