使用Mathematica生成晶格

Question

如何在Mathematica中生成3x3x3晶格？是否有可能對一些格點着色？這似乎是可能的，但我不能讓它開始工作至今

http://reference.wolfram.com/mathematica/ref/LatticeData.html

我的意思3x3x3的是像圖（C）右側：http://physics.ucsd.edu/was-sdphul/labs/2dl/exp6/exp63.gif

Answer 1

必須與馬克同意目前還不清楚你的要求 - 我會認爲這是你之後的數字。即使那樣，我也無法確定FCC/BCC的內容是否有明顯的概括。

不管怎麼說，只是帶有一些複製的數字，創造線條和點自己喜歡

Gridlines[n_] := With[{s = Range[0, n - 1]}, 
    Join @@ (Flatten[#, 1] & /@ 
    NestList[Transpose[#, {3, 1, 2}] &, Outer[List, s, s, s], 2])] 
LatticePoints[name_, n_] := Select[ 
    Tuples[Range[-n, n], 3].LatticeData[name, "Basis"], 
    (And @@ ((# >= 0 && # < n) & /@ #) &)] 

這適用於FCC和BCC：

Graphics3D[{ 
    {Red, Sphere[#, 0.1] & /@ LatticePoints["FaceCenteredCubic", 3]}, 
    Line[Gridlines[3]] 
    }, Boxed -> False]