"Source: Text/Code/QECC.text";
"Line: 1880";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Code/QECC.text, line: 1880
// Example: H171E30 ()
print "Example: H171E30";
ei := GetEchoInput();
SetEchoInput(true);
F<i> := ComplexField(4);
H := HilbertSpace(F, 4);
KS := KSpace(F, Dimension(H));
v := KS! [F| i,    1,    0, -i,
             2,    0,    0, 1+i,
             -i-1, -3*i, 7, 0.5,
             2.5*i, 0,   0, 1.2];
v;
e := QuantumState(H, v);
e;
SetEchoInput(ei);
