Maple : animation avec display

[invite480b28cd]

Bonjour,
Je suis un peu perdu sur mon TP de Maple.
Voici l’énoncé:
"Tracer la cycloïde suivante dessinée par un point M(t) fixé sur une roue de rayon a=2 qui roule sans glisser sur l'axe des abscisses :
{x_M(t)=a(t-sin(t)),y_M(t)=a(1-cos(t))} pour t de [0,4*Pi].
Utilisez pour un cercle de centre (x0,y0) et de rayon r :
r.cos(t)+x0,r.sin(t)+y0,t de [0,2*Pi]"

En gros j'ai :
Pour le cerlce :
plot([2*cos(t)+x0, 2*sin(t)+y0, t = 0 .. 2*Pi]) avec x0 et y0 qui vont varier
Pour la cycloïde :
plot([2*(t-sin(t)),2*(1-cos(t)),t = 0 ..4*Pi])

J'ai pondu ça :
display(seq(plot([2*cos(t*Pi), 2*sin(t*Pi), 2*(t-sin(2*t*Pi)), 2*(1-cos(2*y*Pi))]), t = 0 .. 2));
Et ça me donne ça :


Je suis loin de ce que j’attendais.
-----

[invite480b28cd]

Je viens de voir que j'ai pas entré x0 et y0. Mais je sais pas comment m'y prendre.

[invite480b28cd]

C'est bon j'ai trouvé.
with(plots);
cercle := animate({[2*(u-t*sin(u)), 2*(1-t*cos(u)), t = 0 .. 1], [2*(u+cos(t)), 2*(1+sin(t)), t = 0 .. 2*Pi]}, u = 0 .. 4*Pi, numpoints = [10, 2], symbol = circle, color = black, frames = 40);
cyclo := plot([[t, 0, t = -1 .. 4*Pi+1], [2*(t-sin(t)), 2*(1-cos(t)), t = 0 .. 4*Pi]], color = [blue, red]);
display([cercle, cyclo], scaling = constrained);

[Jaunin]

Bonjour, Casserole,
Merci, d'avoir donné votre solution, quel est votre version de Maple ?
Cordialement.
Jaunin__

[A voir en vidéo sur Futura]

[invite480b28cd]

Je suis sur Maple 15.

[Jaunin]

Bonjour, Casserole,
Merci pour votre information, je suppose que vous avez fait la mise à jour en 15.01.
Cordialement.
Jaunin__

[invite480b28cd]

Je n'en sais pas plus. J'utilise une licence de ma fac par VMWare.