 |
Apprendre Maple
Site dédié au logiciel de calcul formel Maple
|
| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
BerniniX
Inscrit le: 27 Oct 2011
Messages: 4
|
 Posté le: 12 Fév 2012 19:50 Sujet du message: Plot 3d |
 |
|
Bonjour à tous,
je rencontre un probleme pour tracer une courbe en 3d.
Ce que je voudrai, c'est pouvoir tracer un disque de centre l'origine avec theta (non nul) constant (en coordonnée spherique ou cylindrique).
Est-ce que quelqu'un pourrai me donner une astuce pour réaliser cette courbe ??
Je vous en remercie d'avance. |
|
| Revenir en haut de page |
|
 |
prof_simplet
Inscrit le: 12 Sep 2006
Messages: 86
|
| Posté le: 13 Fév 2012 8:28 Sujet du message: |
|
|
Salut,
Il faut paramétrer le cercle, et utiliser spacecurve du package plots. |
|
| Revenir en haut de page |
|
|
BerniniX
Inscrit le: 27 Oct 2011
Messages: 4
|
| Posté le: 13 Fév 2012 14:09 Sujet du message: |
|
|
Mais en fait ce que je veux c'est pas un cercle, c'est un disque.
Ou sinon si c'est plus pratique, un plan. |
|
| Revenir en haut de page |
|
|
prof_simplet
Inscrit le: 12 Sep 2006
Messages: 86
|
| Posté le: 14 Fév 2012 14:11 Sujet du message: |
|
|
Bonjour,
Voici le code, j'ai pris theta=Pi/3:
| Code: |
> with(plots):
> theta:=eval(Pi/3):
> spacecurve([cos(theta)*cos(phi),sin(theta)*cos(phi),sin(phi)],phi=-Pi..Pi,orientation=[-120,100],thickness=2,color=red,axes=normal);
|
Si vous voulez matérialiser l'intérieur du disque en couleur, il ne faudra pas utiliser spacecurve, mais tracer par exemple une surface cylindrique de hauteur très petite de base droite ce disque.
A+ |
|
| Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006
Messages: 647
|
| Posté le: 14 Fév 2012 14:21 Sujet du message: |
|
|
Oui, bonne idée prof simplet.
Pour vous aider, voici un dessin d'un dé, où on utilise cylinder et des rotations pour dessiner les points du dé.
| Code: |
> restart:with(plots):with(geom3d):
> De:=proc()
> local ptDe,A,t,c,un,deux,trois,quatre,cinq,six;
> ptDe:=proc(x,y,z)
> seq(plottools[cylinder]([x,y,z], 0.01*a,0.15),a=1..15)
> end proc:
> point(A,0,0,0):cube(t,A,sqrt(3)): c:=draw(t):
> un:=display3d(ptDe(0,0,0.85)):
> deux:=display3d(ptDe(-0.6,-0.6,0.85),ptDe(0.6,0.6,0.85)):
> trois:=display3d(ptDe(0,0,0.85),ptDe(0.6,-0.6,0.85),ptDe(-0.6,0.6,0.85)):
> quatre:=display3d(ptDe(-0.6,-0.6,0.85),ptDe(-0.6,0.6,0.85),ptDe(0.6,0.6,0.85),ptDe(0.6,-0.6,0.85)):
> cinq:=display3d(ptDe(0,0,0.85),ptDe(-0.6,-0.6,0.85),ptDe(-0.6,0.6,0.85),ptDe(0.6,0.6,0.85),ptDe(0.6,-0.6,0.85)):
> six:=display3d(ptDe(0,-0.6,0.85),ptDe(0,0.6,0.85),ptDe(-0.6,-0.6,0.85),ptDe(-0.6,0.6,0.85),ptDe(0.6,0.6,0.85),ptDe(0.6,-0.6,0.85)):
> deux:=display3d(plottools[rotate](deux,Pi/2,0,0)):
> trois:=display3d(plottools[rotate](trois,-Pi,-Pi/2,0)):
> quatre:=display3d(plottools[rotate](quatre,Pi,Pi/2,0)):
> cinq:=display3d(plottools[rotate](cinq,-Pi/2,0,0)):
> six:=display3d(plottools[rotate](six,Pi,0,0)):
> display3d([c,un,deux,trois,quatre,cinq,six],color=gold)
> end proc:
> De();
|
|
|
| Revenir en haut de page |
|
|
BerniniX
Inscrit le: 27 Oct 2011
Messages: 4
|
| Posté le: 14 Fév 2012 14:57 Sujet du message: |
|
|
Merci beaucoup pour vos idées.
J'ai utilisé la méthode de Prof simplet en représentant une séquence de plusieurs cercles de rayons différents.
L'autre méthode est aussi bonne mais je n'arrivais pas à modifier les options (couleur, transparence ...) [je n'ai pas non plus cherché très longtemps].
Merci encore.
BerniniX |
|
| Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006
Messages: 647
|
| Posté le: 15 Fév 2012 6:16 Sujet du message: |
|
|
Voici résolu le problème:
| Code: |
>theta:=Pi/3:
> plot3d( [u*cos(t)*cos(theta), u*cos(t)*sin(theta), u*sin(t)], u=0..1, t=0..2*Pi, color=red, axes=normal, scaling=constrained, style=surface, view=[-1..1, -1..1, -1.2..1.2] );
|
Ceci convient-il? |
|
| Revenir en haut de page |
|
|
BerniniX
Inscrit le: 27 Oct 2011
Messages: 4
|
| Posté le: 15 Fév 2012 11:52 Sujet du message: |
|
|
C'est encore mieux: on utilise qu'un seul plot (c'est plus rapide que mes 100 courbes  ).
Merci à tous les deux pour votre aide.
A bientot |
|
| 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.
|
Page d'accueil
FAQ
Rechercher
Liste des Membres
Groupes d'utilisateurs
S'enregistrer
Profil
Se connecter pour vérifier ses messages privés
Connexion
