"Source: Text/Code/QECC.text";
"Line: 1080";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Code/QECC.text, line: 1080
// Example: H171E17 ()
print "Example: H171E17";
ei := GetEchoInput();
SetEchoInput(true);
F<w> := GF(4);
V5 := VectorSpace(F, 5);
v := V5 ! [1,0,w,0,1];
w := V5 ! [w,1,0,w,w];
SymplecticInnerProduct(v,w);
assert $1 eq 0;
C := AdditiveCode<F, GF(2), 5 | v, w>;
C;
D := SymplecticDual(C);
D;
C subset D;
assert $1;
Q := QuantumCode(C);
Q;
SetEchoInput(ei);
