In[]:=
PacletInstall["Wolfram/QuantumFramework"]Needs["Wolfram`QuantumFramework`"]Names["Quantum*"]
Out[]=
PacletObject
Out[]=
{QuantumBasis,QuantumChannel,QuantumCircuitMultiwayCausalGraph,QuantumCircuitMultiwayGraph,QuantumCircuitOperator,QuantumCircuitPathGraph,QuantumCircuitTokenEventGraph,QuantumDistance,QuantumEntangledQ,QuantumEntanglementMonotone,QuantumEvolve,QuantumMeasurement,QuantumMeasurementOperator,QuantumMeasurementSimulation,QuantumMPO,QuantumMPS,QuantumOperator,QuantumPartialTrace,QuantumPartialTranspose,QuantumShortcut,QuantumState,QuantumStateEstimate,QuantumStateEstimation,QuantumStateSampler,QuantumTensorProduct,QuantumWeylTransform,QuantumWignerMICTransform,QuantumWignerTransform}
In[]:=
mplexerz1=QuantumCircuitOperator[{"Multiplexer","RZ"[a1],"RZ"[a2],"RZ"[a3],"RZ"[a4]}];mplexerz2=QuantumCircuitOperator[{"Multiplexer","RZ"[b1],"RZ"[b2]}];opz0=QuantumCircuitOperator[QuantumOperator["RZ"[c1]->{1}]];mot=QuantumCircuitOperator[{mplexerz1,mplexerz2,opz0},"Parameters"->{a1,a2,a3,a4,b1,b2,c1}]mot["Diagram","HorozontalGapSize"->5]
Out[]=
QuantumCircuitOperator
Out[]=