"Source: Text/Code/QECC.text";
"Line: 1364";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Code/QECC.text, line: 1364
// Example: H171E22 ()
print "Example: H171E22";
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);
