|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
student Invité
|
Posté le: 16 Nov 2005 20:54 Sujet du message: dessiner un pavé en 3d |
|
|
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 ? |
|
Revenir en haut de page |
|
|
ALS Invité
|
Posté le: 17 Nov 2005 9:46 Sujet du message: Re: dessiner un pavé en 3d |
|
|
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. |
|
Revenir en haut de page |
|
|
student Invité
|
Posté le: 18 Nov 2005 15:49 Sujet du message: |
|
|
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... |
|
Revenir en haut de page |
|
|
ALS Invité
|
Posté le: 18 Nov 2005 17:57 Sujet du message: Re: |
|
|
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.
Code: |
> with(geom3d):
> point(A,0,0,0), point(B,4,0,0), point(C,5,5,1), point(D,0,2,5):
> dsegment(d1,[A,B]), dsegment(d2,[A,C]), dsegment(d3,[A,D]):
> parallelepiped(pp,[d1,d2,d3]);
> line(axe_z,[0,0,t],t);
> for k to 8 do rotation(pp||k,pp,evalf(k*Pi/4),axe_z) od:
> plots[display3d]({draw(pp),seq(draw(pp||k),k=1..8)});
|
Pour dessiner un tube, il existe la fonction tubeplot du package plots:
Code: |
> with(plots):
> tubeplot([cos(t),sin(t),0],t=0..2*Pi,radius=0.5);
|
A+ |
|
Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|