{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple P lot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 22 "Construct this design:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "t:=Pi*n/100:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "x:=cos(t)-1:y:=sin(t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "x1:=sqrt(1-(y-1)^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "m:=[[x,y],[x,-y],[x1,-y],[x1,y],[x,y]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "plot([m$n=1..50],scaling=constraine d,color=green,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6Y-%'CURVESG6#7'7$$!3&)**RoUjRM\\!#@$\"3?HG\"y!f2TJ!#>7$F ($!3?HG\"y!f2TJF-7$$\"3W-#=t1im[#!#=F/7$F2F+F'-F$6#7'7$$!3/T%G!# ?$\"3SP8$H&>0ziF-7$F:$!3SP8$H&>0ziF-7$$\"31Ioph&pw[$F4F@7$FCF=F9-F$6#7 '7$$!3r.+#pRN!QWF<$\"36J9&=LJ3T*F-7$FJ$!36J9&=LJ3T*F-7$$\"3C`(yNZ%4NUF 4FO7$FRFLFI-F$6#7'7$$!37C@_&o)H&)yF<$\"3eUIkNBL`7F47$FY$!3eUIkNBL`7F47 $$\"3WaW4LrCZ[F4Fhn7$F[oFenFX-F$6#7'7$$!32Mi[Sf;J7F-$\"3q3BS]YMk:F47$F bo$!3q3BS]YMk:F47$$\"3QG-\"QXi-P&F4Fgo7$FjoFdoFao-F$6#7'7$$!3)y7Jr#\\F r\"fF-$\"3o8HX-# ztQ$F47$F\\u$!3o8HX-#ztQ$F47$$\"3SWax&e\\:](F4Fau7$FduF^uF[u-F$6#7'7$$ !3=a[<69NAqF-$\"3=zn%o_X7o$F47$F[v$!3=zn%o_X7o$F47$$\"3#R'HPY%*p]xF4F` v7$FcvF]vFju-F$6#7'7$$!3+')=gJu`C#)F-$\"3?1yM1*y9(RF47$Fjv$!3?1yM1*y9( RF47$$\"3?WzjF&H&yzF4F_w7$FbwF\\wFiv-F$6#7'7$$!3KU!)R`ZH<&*F-$\"3;F2l: HzdUF47$Fiw$!3;F2l:HzdUF47$$\"3_zvDBa+(=)F4F^x7$FaxF[xFhw-F$6#7'7$$!3+ @j6eZ$**3\"F4$\"3\\naR(*\\!*RXF47$Fhx$!3\\naR(*\\!*RXF47$$\"3'z\\sv$)* yx$)F4F]y7$F`yFjxFgx-F$6#7'7$$!3;k8c*>LpB\"F4$\"3B`r,Tn`<[F47$Fgy$!3B` r,Tn`<[F47$$\"3W$\\m\"*)RJ_&)F4F\\z7$F_zFiyFfy-F$6#7'7$$!3cj0'*H(zDR\" F4$\"3=8P]dTT!4&F47$Ffz$!3=8P]dTT!4&F47$$\"3'ed@P8H=r)F4F[[l7$F^[lFhzF ez-F$6#7'7$$!3E\\)z\\u?nb\"F4$\"3cm**y\\zEe`F47$Fe[l$!3cm**y\\zEe`F47$ $\"3/y3UGXWd))F4Fj[l7$F]\\lFg[lFd[l-F$6#7'7$$!3p\"QasD%>HF4$\"3QJZ#H__y(eF47$Fc]l$!3QJZ#H__y(eF47$$\"3) e&=QZr'36*F4Fh]l7$F[^lFe]lFb]l-F$6#7'7$$!3'e4Vi()\\%)4#F4$\"3vj(Hl`q!H hF47$Fb^l$!3vj(Hl`q!HhF47$$\"3)p_'\\\"*pS?#*F4Fg^l7$Fj^lFd^lFa^l-F$6#7 '7$$!3Y2@Csv'[H#F4$\"3M'*o[(*)RUP'F47$Fa_l$!3M'*o[(*)RUP'F47$$\"3,BUhJ ?a>$*F4Ff_l7$Fi_lFc_lF`_l-F$6#7'7$$!31/ap.$*)))\\#F4$\"3E=lB`'=Jh'F47$ F``l$!3E=lB`'=Jh'F47$$\"3w(zSP\"p)*3%*F4Fe`l7$Fh`lFb`lF_`l-F$6#7'7$$!3 [%)eyDPJ5FF4$\"39')oGf5ZXoF47$F_al$!39')oGf5ZXoF47$$\"3;\")p!=P7%*[*F4 Fdal7$FgalFaalF^al-F$6#7'7$$!3FCX8)=K*GHF4$\"3sva'=\"y1rqF47$F^bl$!3sv a'=\"y1rqF47$$\"3-=#\\ed^9c*F4Fcbl7$FfblF`blF]bl-F$6#7'7$$!3u7JrS*GX:$ F4$\"3U9T@uio*G(F47$F]cl$!3U9T@uio*G(F47$$\"3qUsSV^qD'*F4Fbcl7$FeclF_c lF\\cl-F$6#7'7$$!3u\"[jnM\")oQ$F4$\"3$ff/jp56](F47$F\\dl$!3$ff/jp56](F 47$$\"3E757y]u#o*F4Fadl7$FddlF^dlF[dl-F$6#7'7$$!3l.J^-,wDOF4$\"3`#*yvF C80xF47$F[el$!3`#*yvFC80xF47$$\"3z8I%o$y6L(*F4F`el7$FcelF]elFjdl-F$6#7 '7$$!3/M-Zj%H4(QF4$\"3-.pvB,b,zF47$Fjel$!3-.pvB,b,zF47$$\"39?w\"3oYtx* F4F_fl7$FbflF\\flFiel-F$6#7'7$$!3_n_2xu9ATF4$\"3St%\\P%*p,4)F47$Fifl$! 3St%\\P%*p,4)F47$$\"3S/KvKM$f\")*F4F^gl7$FaglF[glFhfl-F$6#7'7$$!3;%py9 Am\"zVF4$\"3I=cuUd!3F)F47$Fhgl$!3I=cuUd!3F)F47$$\"3u[eeO(f$\\)*F4F]hl7 $F`hlFjglFggl-F$6#7'7$$!3VL+@]?tTYF4$\"3v],-b#zKW)F47$Fghl$!3v],-b#zKW )F47$$\"3;8x2)*y3y)*F4F\\il7$F_ilFihlFfhl-F$6#7'7$$!3#oG'\\Uee4\\F4$\" 3WO%R+F?ug)F47$Ffil$!3WO%R+F?ug)F47$$\"3e0)e/PhD!**F4F[jl7$F^jlFhilFei l-F$6#7'7$$!3)y%G)*eKY#=&F4$\"3%ejQ/!o1j()F47$Fejl$!3%ejQ/!o1j()F47$$ \"3bO3#*Q\\?B**F4Fjjl7$F][mFgjlFdjl-F$6#7'7$$!3_KXg-]4gaF4$\"3)yn$)=Cl +\"*)F47$Fd[m$!3)yn$)=Cl+\"*)F47$$\"3OJj.]YUS**F4Fi[m7$F\\\\mFf[mFc[m- F$6#7'7$$!3Tt#\\V32Au&F4$\"3y&>gY_q#[!*F47$Fc\\m$!3y&>gY_q#[!*F47$$\"3 kZdXEvga**F4Fh\\m7$F[]mFe\\mFb\\m-F$6#7'7$$!3\"\\>_O4@&GgF4$\"3S6)RoDY v<*F47$Fb]m$!3S6)RoDYv<*F47$$\"3c6^..67m**F4Fg]m7$Fj]mFd]mFa]m-F$6#7'7 $$!3f=K:tWv=jF4$\"3Y8D))e[w(H*F47$Fa^m$!3Y8D))e[w(H*F47$$\"3eY*zu\"GJv **F4Ff^m7$Fi^mFc^mF`^m-F$6#7'7$$!3?&3Zvz?Eh'F4$\"3baAa*o2)3%*F47$F`_m$ !3baAa*o2)3%*F47$$\"3C\"e\\jG4D)**F4Fe_m7$Fh_mFb_mF__m-F$6#7'7$$!3\\D0 Dc+$)4pF4$\"3JN:&H;l0^*F47$F_`m$!3JN:&H;l0^*F47$$\"31yof&\\:!))**F4Fd` m7$Fg`mFa`mF^`m-F$6#7'7$$!391xgR*)35sF4$\"3aH%pn&o$Hg*F47$F^am$!3aH%pn &o$Hg*F47$$\"3/g@^LR6#***F4Fcam7$FfamF`amF]am-F$6#7'7$$!3R]9NG658vF4$ \"3w5jG6;$eo*F47$F]bm$!3w5jG6;$eo*F47$$\"3+B-#Gpj]***F4Fbbm7$FebmF_bmF \\bm-F$6#7'7$$!3psX.'en&=yF4$\"3MuuQ>w;f(*F47$F\\cm$!3MuuQ>w;f(*F47$$ \"3o=qfn&*4(***F4Facm7$FdcmF^cmF[cm-F$6#7'7$$!3)GvUT&o=E\")F4$\"3@()oG 2D(G#)*F47$F[dm$!3@()oG2D(G#)*F47$$\"3E-[]p6V)***F4F`dm7$FcdmF]dmFjcm- F$6#7'7$$!3[!p(f\\`lN%)F4$\"3gw8&fS$)o()*F47$Fjdm$!3gw8&fS$)o()*F47$$ \"3k\\=\\'3U#****F4F_em7$FbemF\\emFidm-F$6#7'7$$!3UdpNkwmY()F4$\"3wyZ9 8q9@**F47$Fiem$!3wyZ98q9@**F47$$\"3AI/\\0\"*o****F4F^fm7$FafmF[fmFhem- F$6#7'7$$!3aa[\"o'o\"*e!*F4$\"3'**zIgk>c&**F47$Fhfm$!3'**zIgk>c&**F47$ $\"3A]Ts=:!*****F4F]gm7$F`gmFjfmFgfm-F$6#7'7$$!3Gloq/[4s$*F4$\"3g:FG%G n-)**F47$Fggm$!3g:FG%Gn-)**F47$$\"37pv(4`!)*****F4F\\hm7$F_hmFigmFfgm- F$6#7'7$$!3)fr=#4C*eo*F4$\"3+;tl.c1&***F47$Ffhm$!3+;tl.c1&***F47$$\"2A c'e#y)******!# " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }