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