In[]:=
ArrayMesh[CellularAutomaton[150,{{1},0},40]]
Out[]=
In[]:=
MeshConnectivityGraph[%,{2,2},0]
Out[]=
In[]:=
MeshConnectivityGraph[SierpinskiMesh[5],1]
Out[]=
In[]:=
SierpinskiMesh[5]
Out[]=
In[]:=
MeshConnectivityGraph[SierpinskiMesh[5],{2,2},0]
Out[]=
In[]:=
MeshConnectivityGraph[SierpinskiMesh[6],{2,2},0]
Out[]=
In[]:=
vols=MeanAround/@Transpose[Values[ResourceFunction["GraphNeighborhoodVolumes"][%,All,Automatic]]];
In[]:=
vols
Out[]=
In[]:=
ListLinePlotTable[(Log[vols[[r+1]]]-Log[vols[[r]]])/(Log[r+1]-Log[r]),{r,Length[vols]-1}],
What is a curved fractional-dimensional space like?
What is a curved fractional-dimensional space like?
Is there a general notion of parallelism (e.g. for geodesics)? Schild ladders?
Is there a general notion of parallelism (e.g. for geodesics)? Schild ladders?