"Source: Text/Code/QECC.text";
"Line: 1364";
"Date: Mon May 29 14:18:58 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Code/QECC.text, line: 1364
// Example: H167E22 ()
print "Example: H167E22";
ei := GetEchoInput();
SetEchoInput(true);
F<w> := GF(4);
V7 := VectorSpace(F, 7);
v1 := V7 ! [1,0,0,0,0,0,0];
v2 := V7 ! [w^2,1,w^2,w,0,0,w];
Q1 := QuantumQuasiCyclicCode([v1, v2] : LinearSpan := true);
_ := MinimumWeight(Q1);
Q1:Minimal;
v1 := V7 ! [1,0,1,1,1,0,0];
v2 := V7 ! [1,w^2,w,w,1,0,w^2];
Q2 := QuantumQuasiCyclicCode([v1, v2] : LinearSpan := true);
_ := MinimumWeight(Q2);
Q2:Minimal;
S1 := StabilizerCode(Q1);
S2 := StabilizerCode(Q2);
S2 subset S1;
assert $1;

S3 := PlotkinSum(SymplecticDual(S1), S2);
Q3 := QuantumCode(S3);
_ := MinimumWeight(Q3);
Q3:Minimal;
SetEchoInput(ei);
