Apprendre Maple

[student]

bonjour, j'aimerais faire dessiner à Maple un pavé en 3D, ainsi que d'autres pavés qui seraient les images du premier par des rotations d'angle k*theta autour de l'axe z par exemple...

Est-ce possible? si oui comment faire ?

[ALS]

Bonjour, oui effectivement, c'est possible: voici une façon de procéder en faisant appel aux packages geom3d et plots:

> with(geom3d):

Definition de 4 points A, B, C, and D.
> point(A,0,0,0), point(B,4,0,0), point(C,5,5,1), point(D,0,2,5):

Definition de 3 segments orientés d1, d2, d3 d'origine point A d'extrémité B, C, D respectivement.
> dsegment(d1,[A,B]), dsegment(d2,[A,C]), dsegment(d3,[A,D]):

Utilisation de d1, d2, and d3 pour définir le parallélépipède pp.
> parallelepiped(pp,[d1,d2,d3]);

pp

Tracé:
> draw(pp);

Définition de l'axe des z (en paramétrique) et du parallélépipède pp2 image de pp par Rot(0z,Pi/2) ::
> line(axe_z,[0,0,t],t);
> rotation(pp2,pp,evalf(Pi/2),axe_z);

axe_z


pp2

Tracé de pp et de pp2:
> plots[display3d]({draw(pp),draw(pp2)},axes=boxed);


A plus tard sur ce forum.

[student]

merci beaucoup, c'est exactement ce que je cherchais à faire !

j'ai oublié de vous demander si il etait possible de faire un tube en 3D... j'ai cherché cylindar dans le package geom3d mais je ne l'ai pas trouvé...

Par ailleurs, est-il possible de faire une sequence pour créer plein de pavés images du premier par des rotations k*theta ? j'ai essayé :

seq(rotation(pp[i],pp,evalf(i*Pi/4),axe_z),i=1..;

mais ca ne marche pas...

[ALS]

Bonjour,
Maple n'a pas l'air d'aimer pp[k] (pourquoi???)
A la place j'utilise pp||k ( || sert à rassembler 2 noms, ainsi je construis des pavés pp1...pp8) que je dessine sur une même figure.