"Source: Text/Code/QECC.text";
"Line: 2098";
"Date: Mon May 29 14:18:58 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Code/QECC.text, line: 2098
// Example: H167E33 ()
print "Example: H167E33";
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);
