WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

格子の要素を生成して表示する

組込み関数と組込みデータの両方を使って格子を生成する．

Wolfram Language code: b = Normal@LatticeData["FaceCenteredCubic", "Basis"]; l1 = Flatten[Table[i b[[1]] + j b[[2]] + k b[[3]], {i, 0, 5}, {j, 0, 5}, {k, 0, 5}], 2]; l2 = Tuples[Range[0, 5], 3].b;
Wolfram Language code: Graphics3D[Map[Sphere[#, .2]&, #], Boxed -> True, Axes -> True]& /@ {l1, l2}