{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 38 "Constructed nested triangl
es as thus: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "m:=[[1, 0],[-1, 1],[-1, -1]
,[1, 0]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "w:=[]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "t:=0.1:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 73 "for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[
1],m[2]]:m:=(1-t)*m+t*sm:od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 49 "plot(w,axes=none,scaling=constrained,color=cyan);" }}{PARA 13 "
" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6;-%'CURVESG6#7&7$$\"\"\"\"
\"!$F*F*7$$!\"\"F*F(7$F-F-F'-F$6#7&7$$\"3U+++++++!)!#=$\"3/+++++++5F67
$F-F47$$!3U+++++++!)F6$!3A+++++++!*F6F3-F$6#7&7$$\"3%**************>'F
6$\"37+++++++<F67$$!3#)*************z*F6$\"3-+++++++jF67$$!39+++++++kF
6F;FB-F$6#7&7$$\"3=+++++++YF6$\"3)*************f@F67$$!3_************f
%*F6$\"3))************p[F67$$!37++++++S^F6$!3e************HqF6FR-F$6#7
&7$$\"3=++++++%>$F6$\"36++++++JCF67$$!3Z++++++G!*F6$\"3%*************z
OF67$$!3E++++++mTF6$!3x***********46'F6F^o-F$6#7&7$$\"3A+++++!=(>F6$\"
3%)***********eb#F67$$!3]+++++!=a)F6$\"3(************3q#F67$$!3r******
******HMF6$!3O+++++!oD&F6F`p-F$6#7&7$$\"33+++++S/#*!#>$\"3!***********
RqDF67$$!3`+++++iI!)F6$\"3))*********H^!>F67$$!3;+++++#)*)GF6$!3y*****
****HbZ%F6Fbq-F$6#7&7$$\"3*)**********RLD!#?$\"3z********H(Q]#F67$$!3W
+++++a;vF6$\"3'*********R1n7F67$$!3v********Rz3DF6$!3w********p$4x$F6F
er-F$6#7&7$$!3o++++S`)G(Feq$\"35++++@>!Q#F67$$!3E++++aw:qF6$\"3S******
***QEj(Feq7$$!33++++7QbAF6$!3-++++gXVJF6Fhs-F$6#7&7$$!3%********fWvN\"
F6$\"3-+++!G*\\=AF67$$!3>+++!)psRlF6$\"3r*******4>fs$Feq7$$!3:+++?%GF5
#F6$!3)********=\"4\"f#F6Fjt-F$6#7&7$$!3#******z$Gwv=F6$\"32+++V&3R.#F
67$$!3o*****R7Fg4'F6$\"3!**********fBi(Fhr7$$!36+++Q+@G?F6$!3-+++V@85@
F6F\\v-F$6#7&7$$!3))*****fE*y(H#F6$\"3%*******[+9Q=F67$$!3W*****fTX#*o
&F6$!3)******Hu>TU\"Feq7$$!36+++=`'H,#F6$!31+++v!Gdp\"F6F^w-F$6#7&7$$!
3%)*****4)[$pj#F6$\"37+++Z[3S;F67$$!3))*****fS<;K&F6$!3#******R%eVxHFe
q7$$!3++++8xWT?F6$!31+++j7MU8F6F`x-F$6#7&7$$!3G+++MJS0HF6$\"3#******R+
-jW\"F67$$!3C+++O/g$*\\F6$!36+++BN.ASFeq7$$!3.+++Ik*45#F6$!32+++_')4W5
F6Fby-F$6#7&7$$!3z*****\\'GA9JF6$\"3/+++p9Xh7F67$$!3v*****\\.SVq%F6$!3
#******H#)GRm%Feq7$$!3#********4P9=#F6$!3i*****R'ee]zFeqFdz-F$6#7&7$$!
3s*****>eMKF$F6$\"3++++Mqm)3\"F67$$!3#******>u\\?X%F6$!33+++FXf#*\\Feq
7$$!33+++wcruAF6$!3M+++4e2%*eFeqFf[l-F$6#7&7$$!3!******z4;6R$F6$\"3S**
***H&Qu)H*Feq7$$!3C+++OjJMUF6$!3!******\\lUF3&Feq7$$!39+++mvcuBF6$!3()
*****R>,g@%FeqFh\\l-F$6#7&7$$!3=+++AhVvMF6$\"3Y*****>?&fgyFeq7$$!3)***
****e9M[SF6$!3#)******3&og*\\Feq7$$!37+++>CAwCF6$!33+++!pEX'GFeqFj]l-F
$6#7&7$$!3!)*****flEF`$F6$\"33+++J)G\\d'Feq7$$!3C+++b&H6*QF6$!3#******
pK9Hy%Feq7$$!3'*******)yVhd#F6$!3#******4]9?z\"FeqF\\_l-F$6#7&7$$!3C++
+YpcoNF6$\"3@+++:X9RaFeq7$$!3))******y4jfPF6$!3;+++WV#Q[%Feq7$$!3'****
**f2-=n#F6$!3M******y;?`&*FhrF^`l-%*AXESSTYLEG6#%%NONEG-%'COLOURG6&%$R
GBGF+$\"*++++\"!\")Feal-%(SCALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6$Q!6
\"F_bl-%%VIEWG6$%(DEFAULTGFdbl" 1 2 0 1 10 0 2 6 1 1 1 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve
 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Cur
ve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 1
8" "Curve 19" "Curve 20" }}}}{EXCHG {PARA 0 "> " 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 }