In[]:=
GraphUnion[IndexGraph[GridGraph[{30,50}]],IndexGraph[GridGraph[{10,10,10}]]]
Out[]=
In[]:=
$Version
Out[]=
12.1.1 for Mac OS X x86 (64-bit) (July 8, 2020)
GridGraph[{30,50}]
In[]:=
GraphUnion[IndexGraph[GridGraph[{20,20}]],IndexGraph@GridGraph[{10,10,10}]]​​
Out[]=
In[]:=
Graph3D[%]
Out[]=
In[]:=
g2d=IndexGraph[GridGraph[{30,50}]];g3d=IndexGraph[GridGraph[{10,10,10}]];
In[]:=
Graph[Complement[EdgeList[g3d],EdgeList[g2d]]]
Out[]=
In[]:=
With[{u=RandomInteger[1,100]},SeedRandom[24245];​​ArrayPlot[Sum[(2+(-1)^i)CellularAutomaton[30,ReplacePart[u,50i],50],{i,0,1}],ColorRules{0White,4Black,1Red,3Red},ImageSize150]]
Out[]=
In[]:=
ResourceFunction["WolframModel"][{{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}},{{0,0},{0,0}},7]["LayeredCausalGraph",AspectRatio0.7]
Out[]=
In[]:=
mixedGrid[sizes2D_,sizes3D_]:=Module[{grid2D=IndexGraph[GridGraph[sizes2D]],grid3D=IndexGraph[GridGraph[sizes3D]],trimmedEdges2D},trimmedEdges2D=Select[AnyTrue[#,!MemberQ[VertexList[grid3D],#]&]&]@EdgeList[grid2D];​​Graph[Join[EdgeList[grid3D],trimmedEdges2D]]]
In[]:=
mixedGrid[{40,40},{10,10,10}]
Out[]=
Einstein-Straus model : uniform density ; with concentration inside particular spheres....