{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 "Construct the nested squar
es as thus: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "m:=[[1, 1],[-1, 1],[-1, -1]
,[1, -1], [1, 1]]:" }}}{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 78 "for k to 20 do w:=[op(w),m]:sm:=[m[
2],m[3],m[4],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(7$$!\"\"F*F(7$F,F,7$F(F,F'-F$6#7'7$$\"3U+++++++!)!#=
F(7$F,F47$$!3U+++++++!)F6F,7$F(F9F3-F$6#7'7$$\"3%**************>'F6$\"
3#)*************z*F67$$!3#)*************z*F6F@7$$!3%**************>'F6
FE7$FBFHF?-F$6#7'7$$\"3=+++++++YF6$\"3^************R%*F67$$!3^********
****R%*F6FO7$$!3=+++++++YF6FT7$FQFWFN-F$6#7'7$$\"3'************f>$F6$
\"3_***********f&*)F67$$!3_***********f&*)F6Fhn7$$!3'************f>$F6
F]o7$FjnF`oFgn-F$6#7'7$$\"31+++++!3)>F6$\"3o************z$)F67$$!3o***
*********z$)F6Fgo7$$!31+++++!3)>F6F\\p7$FioF_pFfo-F$6#7'7$$\"3/+++++?Z
%*!#>$\"3H+++++3SxF67$$!3H+++++3SxF6Ffp7$$!3/+++++?Z%*FhpF\\q7$FipF_qF
ep-F$6#7'7$$\"3q***********Ri(!#?$\"3s********RagqF67$$!3s********Ragq
F6Ffq7$$!3q***********Ri(FhqF\\r7$FiqF_rFeq-F$6#7'7$$!3i********RQujFh
p$\"3/++++O6ijF67$$!3/++++O6ijF6Ffr7$$\"3i********RQujFhpF[s7$FhrF^sFe
r-F$6#7'7$$!3%*******>f!*47F6$\"3E++++%e@m&F67$$!3E++++%e@m&F6Fes7$$\"
3%*******>f!*47F6Fjs7$FgsF]tFds-F$6#7'7$$!3)******z;J^l\"F6$\"3%)*****
z'>&\\(\\F67$$!3%)*****z'>&\\(\\F6Fdt7$$\"3)******z;J^l\"F6Fit7$FftF\\
uFct-F$6#7'7$$!3/+++[K6()>F6$\"3,+++aO%>J%F67$$!3,+++aO%>J%F6Fcu7$$\"3
/+++[K6()>F6Fhu7$FeuF[vFbu-F$6#7'7$$!3.+++)G'f>AF6$\"3/+++kz.#o$F67$$!
3/+++kz.#o$F6Fbv7$$\"3.+++)G'f>AF6Fgv7$FdvFjvFav-F$6#7'7$$!31+++b/%eO#
F6$\"3?+++RX(=4$F67$$!3?+++RX(=4$F6Faw7$$\"31+++b/%eO#F6Ffw7$FcwFiwF`w
-F$6#7'7$$!3-+++kQWQCF6$\"35+++SI5YDF67$$!35+++SI5YDF6F`x7$$\"3-+++kQW
QCF6Fex7$FbxFhxF_x-F$6#7'7$$!3++++#y4#\\CF6$\"31+++]$[w/#F67$$!31+++]$
[w/#F6F_y7$$\"3++++#y4#\\CF6Fdy7$FayFgyF^y-F$6#7'7$$!3-+++RO04CF6$\"3-
+++PD'zf\"F67$$!3-+++PD'zf\"F6F^z7$$\"3-+++RO04CF6Fcz7$F`zFfzF]z-F$6#7
'7$$!3/+++HX%zK#F6$\"3'*******=4E(>\"F67$$!3'*******=4E(>\"F6F][l7$$\"
3/+++HX%zK#F6Fb[l7$F_[lFe[lF\\[l-F$6#7'7$$!34+++oh([@#F6$\"3U*****4u.u
W)Fhp7$$!3U*****4u.uW)FhpF\\\\l7$$\"34+++oh([@#F6Fa\\l7$F^\\lFd\\lF[\\
l-F$6#7'7$$!37+++)eiy2#F6$\"3%*******)>(y(Q&Fhp7$$!3%*******)>(y(Q&Fhp
F[]l7$$\"37+++)eiy2#F6F`]l7$F]]lFc]lFj\\l-%*AXESSTYLEG6#%%NONEG-%'COLO
URG6&%$RGBG$F*F*$\"*++++\"!\")F_^l-%(SCALINGG6#%,CONSTRAINEDG-%+AXESLA
BELSG6$Q!6\"Fi^l-%%VIEWG6$%(DEFAULTGF^_l" 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" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17
" "Curve 18" "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 }