{VERSION 5 0 "APPLE_PPC_MAC" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 
"" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 
}{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}
{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and tra
ce have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "H1 := matrix(1, 1, [1]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#H1G-%'matrixG6#7#7#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 43 "H2 := blockmatrix(2, 2, [H1, H1, H1, -H1]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#H2G-%'matrixG6#7$7$\"\"\"F*7$F*!\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "H4 := blockmatrix(2, \+
2, [H2, H2, H2, -H2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#H4G-%'mat
rixG6#7&7&\"\"\"F*F*F*7&F*!\"\"F*F,7&F*F*F,F,7&F*F,F,F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "H8 := blockmatrix(2, 2, [H4, H4, H4
, -H4]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#H8G-%'matrixG6#7*7*\"\"
\"F*F*F*F*F*F*F*7*F*!\"\"F*F,F*F,F*F,7*F*F*F,F,F*F*F,F,7*F*F,F,F*F*F,F
,F*7*F*F*F*F*F,F,F,F,7*F*F,F*F,F,F*F,F*7*F*F*F,F,F,F,F*F*7*F*F,F,F*F,F
*F*F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "A := delrows(H8, 1
..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A := delcols(A, 1.
.1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "f := x -> if x = -1
 then 0 else 1 fi:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A := \+
map(f, A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7)7)\"
\"!\"\"\"F*F+F*F+F*7)F+F*F*F+F+F*F*7)F*F*F+F+F*F*F+7)F+F+F+F*F*F*F*7)F
*F+F*F*F+F*F+7)F+F*F*F*F*F+F+7)F*F*F+F*F+F+F*" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 7 "v := 7:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 7 "b := 7:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "k := 3:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "block := vector(k);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&blockG-%&arrayG6$;\"\"\"\"\"$7\"" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 1 to b do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "    bct := 0:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "    for i from 1 to v do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "        if A[i,j] = 1 then" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "           bct := bct + 1;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "           block[bct] := i;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "        fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "    \+
od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "    print(`Block    `, j, ` \+
  contains objects    `, block);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "
od:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"\"%8~~~contains
~objects~~~~G-%'vectorG6#7%\"\"#\"\"%\"\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6&%*Block~~~~G\"\"#%8~~~contains~objects~~~~G-%'vectorG6#
7%\"\"\"\"\"%\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"
$%8~~~contains~objects~~~~G-%'vectorG6#7%F$\"\"%\"\"(" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"%%8~~~contains~objects~~~~G-%'vect
orG6#7%\"\"\"\"\"#\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~
G\"\"&%8~~~contains~objects~~~~G-%'vectorG6#7%\"\"#F$\"\"(" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"'%8~~~contains~objects~~~~G-
%'vectorG6#7%\"\"\"F$\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~
~~~G\"\"(%8~~~contains~objects~~~~G-%'vectorG6#7%\"\"$\"\"&\"\"'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }
{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }