ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 29 Mar 2007 12:37 Sujet du message: Trajectoire d'une sphère dont le centre décrit un cercle |
|
|
Bonjour, le code suivant permet de dessiner la trajectoire d'une sphère de rayon 1 dont le centre se déplace sur le cercle c de centre (0,0,0) de rayon 10 du plan xOy.
La procédure sphere(x,y,z) construit la sphère centrée en (x,y,z).
La fonction spacecurve est utilisée pour tracer le cercle c et la fonction display3d pour dessiner la séquence des sphères, puis les 2 objets.
Code:
>with(plots):
> sphere:=proc(x,y,z) plot3d([x+cos(phi)*cos(theta),y+cos(phi)*sin(theta),z+sin(phi)],phi=-Pi/2..Pi/2,theta=0..2*Pi) end proc:
> c:=spacecurve([10*cos(t),10*sin(t),0],t=0..2*Pi):
> s:=display3d(seq(sphere(10*cos(t*Pi/20),10*sin(t*Pi/20),0), t=0..40), frames=100, insequence=true ):
> display3d([c,s], scaling=constrained);
Cliquer sur le graphique puis sur la touche "lecture" de la barre d'animation pour visualiser la trajectoire.
A bientôt. |
|