You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
OrderedGraphModelPlot[{{h[1],h[2],6},{h[3],h[4],3}}{{6,h[1],h[2]},{8,7,1},{5,4,10},{9,h[3],h[4]}},Automatic,{{ImageSize300},{ImageSize300}}]
Out[]=
In[]:=
OrderedGraphModelPlot[{{h[1],h[2],6},{h[3],h[4],3}}{{6,h[1],h[2]},{8,7,1},{5,4,10},{9,h[3],h[4]}},Automatic,{{VertexSizeLarge,ImageSize300},{VertexSizeLarge,ImageSize300}}]
Out[]=
In[]:=
ArcTan@@(RotationMatrix[{{0,1},{1,0}}].{1,0})
Out[]=
-
π
2
In[]:=
ArcTan@@({0,1}-{1,0})
Out[]=
3π
4
In[]:=
OrderedGraphModelPlot[hypergraphRuleToColored[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}}],Automatic,{{VertexSizeLarge},{VertexSizeLarge}}]
Out[]=
In[]:=
hypergraphToColoredSpec[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}]
Out[]=
{{4,h[1],h[2]},{1,h[3],h[4]}}
In[]:=
OrderedGraphModelPlot[{{4,h[1],h[2]},{1,h[3],h[4]}}]
Out[]=
In[]:=
RotationMatrix[2π/3].{1,0}
Out[]=
-,
1
2
3
2