"Source: Text/Code/CodeFld.text";
"Line: 827";
"Date: Tue May 30 11:26:03 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Code/CodeFld.text, line: 827
// Example: H161E10 ()
print "Example: H161E10";
ei := GetEchoInput();
SetEchoInput(true);
K<w> := GF(2);
P<x> := PolynomialRing(K);
H := HammingCode(K, 3);
g := GeneratorPolynomial(H);
g;
h := CheckPolynomial(H);
h;
g*h mod (x^7 - 1);
assert $1 eq 0;
forall{ c : c in H | h * P!Eltseq(c) mod (x^7-1) eq 0 };
assert $1;
e := Idempotent(H);
e;
e^2;
SetEchoInput(ei);
