WOLFRAM

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

多くの数の球体を効率的に指定する

さまざまな半径を持つ球体のコレクションを簡潔かつ効率的に表す：
Wolfram Language code: Graphics3D[Sphere[ Flatten[Table[{i, j, k}, {i, -2, 2}, {j, -2, 2}, {k, -2, 2}], 2], Flatten[Table[Mod[i + j, 2] * (1 - (k + 2) / 4), {i, -2, 2}, {j, -2, 2}, {k, -2, 2}], 2]]]