"Source: Text/Code/QECC.text";
"Line: 1080";
"Date: Mon May 29 14:18:58 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Code/QECC.text, line: 1080
// Example: H167E17 ()
print "Example: H167E17";
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);
