In[]:=
ResourceFunction["WolframModel"][{{{1,2},{2,3}}{{2,4},{2,4},{4,1},{3,4}}},{{1,1},{1,1}},6,"FinalStatePlot"]
Out[]=
In[]:=
ResourceFunction["WolframModel"][{{{x,y},{y,z}}{{y,w},{y,w},{w,x},{z,w}}},{{1,1},{1,1}},6,"FinalStatePlot"]
Out[]=
In[]:=
ResourceFunction["WolframModel"][{{{x,y},{y,z}}{{y,w},{y,w},{w,x},{z,w}}},{{1,1},{1,1}},6,"FinalState"]
Out[]=
{{1,6},{1,7},{4,10},{2,11},{5,12},{5,12},{8,13},{8,13},{2,13},{14,3},{10,15},{10,15},{15,4},{2,15},{7,16},{7,16},{16,4},{10,16},{11,17},{11,17},{17,2},{7,17},{3,18},{3,18},{18,12},{6,18},{8,19},{8,19},{19,1},{12,19},{5,20},{5,20},{20,13},{11,20},{9,21},{9,21},{21,3},{14,21},{9,22},{9,22},{22,4},{14,22},{6,23},{6,23},{23,1},{14,23}}
In[]:=
g=ResourceFunction["HypergraphToGraph"][{{1,6},{1,7},{4,10},{2,11},{5,12},{5,12},{8,13},{8,13},{2,13},{14,3},{10,15},{10,15},{15,4},{2,15},{7,16},{7,16},{16,4},{10,16},{11,17},{11,17},{17,2},{7,17},{3,18},{3,18},{18,12},{6,18},{8,19},{8,19},{19,1},{12,19},{5,20},{5,20},{20,13},{11,20},{9,21},{9,21},{21,3},{14,21},{9,22},{9,22},{22,4},{14,22},{6,23},{6,23},{23,1},{14,23}},VertexLabels->Automatic]
Out[]=
In[]:=
QuantumCircuitOperator["Graph"[g]]["Diagram"]
Out[]=
In[]:=
qc=QuantumCircuitOperator[QuantumOperator["CZ",List@@#]&/@EdgeList[g]];qc["Diagram"]
Out[]=
