"Source: Text/Code/QECC.text";
"Line: 1903";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Code/QECC.text, line: 1903
// Example: H171E31 ()
print "Example: H171E31";
ei := GetEchoInput();
SetEchoInput(true);
F<i> := ComplexField(4);
H := HilbertSpace(F, 12);
Dimension(H);
assert $1 eq 4096;
e1 := H!1 + (1+i)*(H!76) - H!3000;
e1;
e2 := H![1,0,1,1,1,0,0,0,1,1,0,0] - H![1,1,0,1,0,0,0,0,1,1,0,1];
e2;
SetPrintKetsInteger(true);
e1;
e2;
SetEchoInput(ei);
