Symmetries within edges
Symmetries within edges
In[]:=
UnorderedHyperedgesToGraph[edges_]:=Catenate[Replace[edges,vertices_Thread[Unique[]vertices],{1}]]
In[]:=
CyclicHyperedgesToOrderedHypergraph[edges_]:=Catenate[With[{edgeCenter=Unique[]},{edgeCenter,##}&@@@#]&/@(Partition[#,2,1,-1]&)/@edges]
In[]:=
List@@@UnorderedHyperedgesToGraph[{{1,2,3}}]
Out[]=
{{$1269,1},{$1269,2},{$1269,3}}
In[]:=
UnorderedHyperedgesToGraph[{{1,2}}]
Out[]=
{$12701,$12702}
List@@@UnorderedHyperedgesToGraph[{{1,2,3}}]
{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}
In[]:=
(List@@@UnorderedHyperedgesToGraph[#])&/@({{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}})
Out[]=
{{$1279,x},{$1279,y},{$1280,x},{$1280,z}}{{$1281,x},{$1281,z},{$1282,x},{$1282,w},{$1283,y},{$1283,w},{$1284,z},{$1284,w}}
In[]:=
RulePlot[WolframModel[%]]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{$1279,x},{$1279,y},{$1280,x},{$1280,z}}{{$1281,x},{$1281,z},{$1282,x},{$1282,w},{$1283,y},{$1283,w},{$1284,z},{$1284,w}},{{$1279,x},{$1279,y},{$1280,x},{$1280,z}},3,"StatesList"]
Out[]=