Forum de l’article

Formes tridimensionnelles

Rappel de la discussion

Épreuve d’applications des mathématiques. 3e année

Yannick S. - le 25 mars 2007

Bonjour

Dans la note [1], vous avez mal écrit Mathematica.

A part cela, j’aurais une question : comment peut-on "dropper" plusieurs séries de faces à une figure ? J’ai essayé plusieurs syntaxes sans réussir à trouver.
Merci d’avance.

Épreuve d’applications des mathématiques. 3e année

Bernard Vuilleumier - le 25 mars 2007

Merci Yannick, j’ai corrigé l’erreur et vous avez droit à une prime.

Pour la commande Drop, vous pouvez l’utiliser pour :

– retirer une seule facette en indiquant son numéro {n}
– retirer des facettes contiguës de n à m {n, m}
– retirer des facettes de n à m toutes les i^e {n, m, i}

Vous pouvez aussi emboîter les Drop pour retirer ce qui vous plaît où vous le souhaitez. Je vous laisse voir l’effet de ces différentes commandes sur un exemple :

Needs["Graphics<code class='spip_code spip_code_inline' dir='ltr'>Shapes</code>"]
Show[GraphicsArray[{Graphics3D[Drop[Sphere[], {204}]],
      Graphics3D[Drop[Sphere[], {204, 208}]],
      Graphics3D[Drop[Sphere[], {204, 208, 2}]],
      Graphics3D[Drop[Drop[Sphere[], {204, 208, 2}], {223, 229, 2}]]}]]