{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 22 "f := x -> x^2 + x + 2:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "Primitive(f(x)) mod 3;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "t := 2:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "field := vector(4*t+1);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&fieldG-%&arrayG6$;\"\"\"\"\"*7\"" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for i from 1 to 4*t do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "    field[i] := Powmod(x, i, f(x), \+
x) mod 3:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 18 "field[4*t+1] := 0:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "evalm(field);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#-%'vectorG6#7+%\"xG,&F'\"\"#\"\"\"F*,&F'F)F)F*F),$F'F),&F'F*F)F*,&F'F
*F*F*F*\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "k := 4:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "initblock := vector(k);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*initblockG-%&arrayG6$;\"\"\"\"\"%7
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for i from 0 to t-1 d
o" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "    for j from 1 to k do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "        initblock[j] := Powmod(x, (
j-1)*t+i, f(x), x) mod 3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "    od:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "    print(`Initial Block    `, \+
i, `   is    `, initblock);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6&%2Initial~Block~~~~G\"\"!%*~~~is~~~~
G-%'vectorG6#7&\"\"\",&%\"xG\"\"#F*F*F-,&F,F*F-F*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6&%2Initial~Block~~~~G\"\"\"%*~~~is~~~~G-%'vectorG6#7&%\"
xG,&F*\"\"#F,F$,$F*F,,&F*F$F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 19 "block := vector(k):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
9 "bct := 0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for i from \+
0 to t-1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "    for j from 1 to \+
k do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "        initblock[j] := Pow
mod(x, (j-1)*t+i, f(x), x) mod 3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 
"    od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "    for j from 1 to 4*t
+1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "        for h from 1 to k \+
do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "            block[h] := (fiel
d[j] + initblock[h]) mod 3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "    \+
    od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "        bct := bct + 1;
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "        print(`Block    `, bct,
 `   is    `, block);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "    od:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6&%*Block~~~~G\"\"\"%*~~~is~~~~G-%'vectorG6#7&,&%\"xGF$F$F$F$,&F+F$\"
\"#F$,&F+F-F-F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"#%*
~~~is~~~~G-%'vectorG6#7&,&%\"xGF$F$\"\"\",&F+F,F$F,,$F+F$\"\"!" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"$%*~~~is~~~~G-%'vector
G6#7&,$%\"xG\"\"#F+,&F+F,\"\"\"F.F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6
&%*Block~~~~G\"\"%%*~~~is~~~~G-%'vectorG6#7&\"\"!,$%\"xG\"\"#\"\"\",&F
,F.F.F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"&%*~~~is~~~
~G-%'vectorG6#7&,&%\"xG\"\"#\"\"\"F-,&F+F-F-F-,&F+F,F,F-F," }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\"'%*~~~is~~~~G-%'vectorG6#7&%
\"xG\"\"!,&F*\"\"\"F-F-,&F*\"\"#F-F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6&%*Block~~~~G\"\"(%*~~~is~~~~G-%'vectorG6#7&,&%\"xG\"\"\"\"\"#F,F-F+,
$F+F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"\")%*~~~is~~~~G
-%'vectorG6#7&\"\"#,&%\"xGF*F*\"\"\"\"\"!F," }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6&%*Block~~~~G\"\"*%*~~~is~~~~G-%'vectorG6#7&\"\"\",&%\"x
G\"\"#F*F*F-,&F,F*F-F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G
\"#5%*~~~is~~~~G-%'vectorG6#7&,$%\"xG\"\"#F,\"\"!,&F+F,\"\"\"F/" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"#6%*~~~is~~~~G-%'vectorG
6#7&\"\"\"%\"xG,&F+F*F*F*\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Bl
ock~~~~G\"#7%*~~~is~~~~G-%'vectorG6#7&\"\"#,&%\"xG\"\"\"F-F-,&F,F-F*F-
\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"#8%*~~~is~~~~G-
%'vectorG6#7&,&%\"xG\"\"\"\"\"#F,,&F+F-F,F,,&F+F-F-F,F+" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"#9%*~~~is~~~~G-%'vectorG6#7&\"\"!,
&%\"xG\"\"\"\"\"#F-F,F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~
G\"#:%*~~~is~~~~G-%'vectorG6#7&,&%\"xG\"\"#F,\"\"\"F-F,,$F+F," }}
{PARA 11 "" 1 "" {XPPMATH 20 "6&%*Block~~~~G\"#;%*~~~is~~~~G-%'vectorG
6#7&,&%\"xG\"\"#\"\"\"F-\"\"!F-,&F+F,F,F-" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6&%*Block~~~~G\"#<%*~~~is~~~~G-%'vectorG6#7&,&%\"xG\"\"\"
F,F,,$F+\"\"#,&F+F.F,F,,&F+F,F.F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6&%
*Block~~~~G\"#=%*~~~is~~~~G-%'vectorG6#7&%\"xG,&F*\"\"#F,\"\"\",$F*F,,
&F*F-F-F-" }}}{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 }