"Source: Text/Code/QECC.text";
"Line: 2098";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Code/QECC.text, line: 2098
// Example: H171E33 ()
print "Example: H171E33";
ei := GetEchoInput();
SetEchoInput(true);
F<i> := ComplexField(4);
H := HilbertSpace(F, 3);
e := -0.5*H!0 + 6*i*H!3 + 7*H!4 - (1+i)*H!7;
ProbabilityDistribution(e);
Probability(e, 0);
Probability(e, 1);
PrintProbabilityDistribution(e);
SetEchoInput(ei);
