In[]:=
LatticeData[]
Out[]=
{BaseCenteredMonoclinic,BaseCenteredOrthorhombic,BodyCenteredCubic,BodyCenteredOrthorhombic,CenteredTetragonal,CoxeterTodd,FaceCenteredCubic,FaceCenteredOrthorhombic,HexagonalClosePacking,HexagonalLattice,KorkineZolotarev,Leech,SimpleCubic,SimpleHexagonal,SimpleMonoclinic,SimpleOrthorhombic,SimpleTetragonal,SimpleTriclinic,SimpleTrigonal,SquareLattice,TetrahedralPacking}
In[]:=
LatticeGraph[LatticeData[#]//Normal,8]&/@{"BaseCenteredMonoclinic","BaseCenteredOrthorhombic","BodyCenteredCubic","BodyCenteredOrthorhombic"}
Out[]=
In[]:=
Clear[LatticeGraph]
In[]:=
LatticeData["BaseCenteredMonoclinic"]//Normal
Out[]=
Missing[NotAvailable]
In[]:=
LatticeData/@{"BaseCenteredMonoclinic","BaseCenteredOrthorhombic","BodyCenteredCubic","BodyCenteredOrthorhombic","CenteredTetragonal","CoxeterTodd","FaceCenteredCubic","FaceCenteredOrthorhombic","HexagonalClosePacking","HexagonalLattice","KorkineZolotarev","Leech","SimpleCubic","SimpleHexagonal","SimpleMonoclinic","SimpleOrthorhombic","SimpleTetragonal","SimpleTriclinic","SimpleTrigonal","SquareLattice","TetrahedralPacking"}
Out[]=
In[]:=
DeleteMissing[%]
In[]:=
LatticeGraph[#,8]&/@{{2,0,0},{0,2,0},{1,1,1}},{{-1,-1,0},{1,-1,0},{0,1,-1}},SparseArray,SparseArray,SparseArray
Out[]=
In[]:=
LatticeGraph[#,8]&/@%
Out[]=
$Aborted
In[]:=
LatticeData["Bravais"]
Out[]=
{BaseCenteredMonoclinic,BaseCenteredOrthorhombic,BodyCenteredCubic,BodyCenteredOrthorhombic,CenteredTetragonal,FaceCenteredCubic,FaceCenteredOrthorhombic,SimpleCubic,SimpleHexagonal,SimpleMonoclinic,SimpleOrthorhombic,SimpleTetragonal,SimpleTriclinic,SimpleTrigonal}
In[]:=
LatticeData[{"MordellWeil",10}]//Normal
Out[]=
LatticeData[{MordellWeil,10}]
In[]:=
LatticeGraph[%,7]
Out[]=
In[]:=
LatticeData[{"RootLattice","A5"}]
Out[]=
LatticeData[{RootLattice,A5}]
In[]:=
LatticeData["A5"]
Out[]=
In[]:=
LatticeGraph[%,4]
Out[]=
In[]:=
Graph3D