Mathematica를 사용하여 수정 격자 생성

Question

Mathematica에서 3x3x3 격자를 어떻게 생성합니까? 격자 점의 일부를 색칠 할 수 있습니까? 가능하다는 것을 보이지만 지금까지

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

내가 3x3x3 의미하는 것은 오른쪽 그림 (다)와 같은 뭔가가 동작하지 않습니다 : http://physics.ucsd.edu/was-sdphul/labs/2dl/exp6/exp63.gif

Answer 1

마크에 동의해야 그 당신이 무엇을 요구하고 있는지 분명하지 않습니다 - 나는 그것이 당신이 추구하는 모습이라고 가정 할 것입니다. 그럼에도 불구하고, FCC/BCC 관련 자료에서 명백한 일반화가 있는지 실제로 알 수는 없습니다. 어쨌든

, 그냥이 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) & /@ #) &)] 

같은 것을 자신을 라인을 작성, 수치를 복제하고 포인트 :

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