{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 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 255 "m:=1.7123:x:=0:y:=0:v:=[ [x,y] ]: \+
\n\nfor k to 100 do xx:=floor(x)+1:yy:=floor(y)+1: if (yy-y)>m*(xx-x) \+
then x:=xx:y:=m*x\nelse y:=yy:x:=y/m: fi: v:=[op(v),[1-abs(x-2*floor(x
/2)-1),1-abs(m*x-2*floor(m*x/2)-1)]] od: \n\nplot(v,scaling=constraine
d,color=gold); \n" }}{PARA 13 "" 1 "" {GLPLOT2D 267 189 189 {PLOTDATA 
2 "6'-%'CURVESG6#7aq7$$\"\"!F)F(7$$\"3n*****R6)4Se!#=$\"\"\"F)7$F.$\"3
7++++++xGF-7$$\"3\\+++qP!)>$)F-F(7$$\"3/+++gcqzCF-F.7$F($\"3A++++++adF
-7$$\"3')******\\CRgLF-$!31+++++++5!#E7$$\"3[******p0\\+#*F-F.7$F.$\"3
y***********4j)F-7$$\"33+++?8Tf\\F-F(7$F($\"3a***********>\\)F-7$$\"3k
********z'o!))!#>$\"2-+++*********!#<7$$\"3W******4\\y?nF-F(7$F.$\"3**
***********\\h&F-7$$\"35+++!)p6RuF-F.7$$\"3#*******f)=!*f\"F-F(7$F($\"
3))***********zt#F-7$$\"3(*******\\#z5C%F-F.7$F.$\"3#**************Q\"
FQ7$$\"38+++SE#)=**F-F(7$$\"3'*******>XsySF-F.7$F($\"3z***********f,$F
-7$$\"3%********et8w\"F-F(7$$\"3$)*******pr9g(F-F.7$F.$\"3Y++++++$*eF-
7$$\"3++++!=I%elF-F(7$$\"3i*******p?L=(FQF.7$F($\"3-++++++q()F-7$$\"3#
)********fw@^F-$\"3-+++++++5!#D7$F.$\"3U++++++`$)F-7$$\"30++++e8Q!*F-$
\"2%********)*******FT7$$\"3))*******pP!)>$F-F(7$F($\"3w***********fZ&
F-7$$\"3v*******Rg?k#F-F.7$$\"3%********\\e@[)F-F(7$F.$\"3?++++++*f#F-
7$$\"3W++++MuxcF-F.7$F($\"3%)************zFFQ7$$\"3%)********paB;FQF(7
$$\"3#********z_C+'F-F[r7$F.$\"3-++++++bJF-7$$\"3%**********[u:)F-Fbq7
$$\"30++++4N<BF-F[r7$F($\"3f***********>.'F-7$$\"3')*******>ZF_$F-F(7$
$\"3/++++`%GO*F-F.7$F.$\"3D++++++4*)F-7$$\"3y*******fcqz%F-F(7$F($\"3>
++++++9#)F-7$$\"3)********\\TI/\"F-F.7$$\"3-++++'RJ)oF-$!3-+++++++5Fdq
7$F.$\"3_***********pL&F-7$$\"3%)*******>inF(F-F[r7$$\"3&********4kmV
\"F-Fbq7$F($\"3'*************fCF-7$$\"3'*********RV.WF-F.7$F.$\"35++++
++qTFQ7$$\"3')********yYc(*F-F(7$$\"3B++++)pj\"RF-F.7$F($\"3E++++++%H$
F-7$$\"3&********HGP#>F-F(7$$\"37++++k#Qw(F-F[r7$F.$\"3#)***********4<
'F-7$$\"3C++++b2'R'F-Fiu7$$\"3!)********HxfbFQF[r7$F($\"3]++++++[!*F-7
$$\"3]*******z?TG&F-F(7$F.$\"3'************\\2)F-7$$\"3w*******4\"yv))
F-F.7$$\"38++++IoNIF-F(7$F($\"3Q++++++)>&F-7$$\"30++++^T/GF-F.7$$\"3B+
+++K^W')F-F(7$F.$\"3,++++++@BF-7$$\"39++++()Q:bF-F[r7$F($\"3o*********
***fbFQ7$$\"3%)********\\4ZKFQFbq7$$\"3i*******f2[;'F-F[r7$F.$\"3%****
********HV$F-7$$\"3k*******H%4&*zF-F(7$$\"3-++++i*\\:#F-F.7$F($\"30+++
+++5jF-7$$\"39++++>5&o$F-F(7$$\"3M+++++?D&*F-F.7$F.$\"3i***********p=*
F-7$$\"3/++++>qMYF-Fiu7$F($\"3s***********f$zF-7$$\"3&********H'R07F-F
[r7$$\"3s*******R%\\XqF-Fbq7$F.$\"3;++++++f]F-7$$\"3b*******\\2W6(F-F.
7$$\"3#********R4VF\"F-F(7$F($\"31++++++#=#F-7$$\"3E++++()ylXF-F.7$F.$
\"3i++++++]pFQ7$$\"3c*******>8Tf*F-F(7$$\"3%********4:Sv$F-F[r7$F($\"3
=++++++sNF-7$$\"3'*********H3'3#F-Fiu7$$\"3#)*******>\"=EzF-F[r7$F.$\"
3G++++++\\kF--%(SCALINGG6#%,CONSTRAINEDG-%'COLOURG6&%$RGBG$\")+++!)!\"
)$\")AR!)\\F[`l$\")Vyg>F[`l-%+AXESLABELSG6$Q!6\"Fc`l-%%VIEWG6$%(DEFAUL
TGFh`l" 1 2 0 1 10 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve
 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 
0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }