PacletInstall["Wolfram/QuantumFramework"]
Needs["Wolfram`QuantumFramework`"]
                
                
qBloch[q_] := QuantumState[q]["BlochPlot"]


qNormalized[q_] := q / Norm[q]


qMeasure[q_] := (#^2 &) /@ Norm /@ q

X = {{0, 1}, {1, 0}}; Y = {{0, -I}, {I, 0}}; Z = {{1, 0}, {0, -1}};Id = {{1, 0}, {0, 1}};

ket0 = {1,0}
ket1 = {0,1}

ketplus = {1,0}+{0,1}