Qurak

Efficiently specify large numbers of spheres

Exemple 1 étape, exécutée dans l'ordre dans une même session. Chaque étape a été exécutée sur le moteur et la sortie ci-dessous est ce qu'elle a produit.

Étape 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]]]
Sortie
-Graphics3D-

Fonctions utilisées

Recettes connexes

Toutes les recettes · Référence des fonctions · Utiliser ceci depuis un client MCP