Qurak

Efficiently specify large numbers of spheres

Приклад 1 крок, що виконується по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.

Крок 1
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]]]
Вивід
-Graphics3D-

Використані функції

Пов'язані рецепти

Усі рецепти · Довідник функцій · Використати з MCP-клієнта