In[]:=
Graphics[MapIndexed[{GrayLevel[Mod[#2[[1]],2]],#1}&,Values@ResourceFunction["ModularTessellation"][3,{"UnitDiskMappedApproximationPolygons",{I,-Pi/2}}]],PlotRange1]
Out[]=
In[]:=
Table[Graphics[MapIndexed[{GrayLevel[Mod[#2[[1]],2]],#1}&,Values@ResourceFunction["ModularTessellation"][n,{"UnitDiskMappedApproximationPolygons",{I,-Pi/2}}]],PlotRange1],{n,5}]
Out[]=
In[]:=
Table[Graphics[MapIndexed[{If[EvenQ[#2[[1]]],Red,Blue],#1}&,Values@ResourceFunction["ModularTessellation"][n,{"UnitDiskMappedApproximationPolygons",{I,-Pi/2}}]],PlotRange1],{n,5}]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,2}},5,"StatesList"]
Out[]=
From mtrott:
In[]:=
nextF[f_,z_]:={fTogether[f-1],fTogether[f+1],fTogether[-1/f]}
In[]:=
Table[Graph[Flatten[Rest[NestList[Flatten[nextF[#,z]&/@Union[Last/@#]]&,{Nullz},n]]],VertexLabelsPlaced["Name",Tooltip],GraphLayout"SpringElectricalEmbedding"],{n,1,9}]
Out[]=
In[]:=
Table[Flatten[Rest[NestList[Flatten[nextF[#,z]&/@Union[Last/@#]]&,{Nullz},n]]],{n,3}]
Out[]=
In[]:=
GraphPlot[Rule@@@#,GraphLayout"StarEmbedding"]&/@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,2}},5,"StatesList"]
Out[]=
In[]:=
state5=WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,2}},5,"FinalState"];
In[]:=
WolframModel[{{{x,y},{y,z},{z,x}}{{x,y}}},state5,6]
Out[]=
In[]:=
HypergraphPlot/@%["StatesList"]
Out[]=
In[]:=
Graph[Rule@@@RandomInteger[20,{30,2}]]
Out[]=
In[]:=
HypergraphPlot/@WolframModel{{{x,y},{y,z},{z,x}}{{x,y}}},List@@@EdgeList
,6,"StatesList"
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{{x,y},{y,z},{z,x}}{{x,y}}},List@@@EdgeList[CompleteGraph[10]],6,"StatesList"]
Out[]=
Frills with markers
Frills with markers