O:=point(0,0); C:=cercle(3,3); a:=element(1..5); plotpolar(6*cos(t)+a,t,affichage=rouge);On a choisit R = 3. On peut ainsi faire varier a et voir les 3 cas :
Lorsque 2R = a on a
r = 2R(cos() + 1) = a(cos(
) + 1) c'est donc une
cardioïde.
On peut faire une animation et voir et les points M, N et la
construction de la courbe quand P se déplace sur le cercle C.
On tape :
O:=point(0,0); C:=cercle(3,3); a:=element(1..5); plotpolar(6*cos(t)+a,t,affichage=rouge); animation(seq('droite(y=tan(u)*x)',u=-10..10)); animation(seq('P:=point(6*cos(u)*exp(i*u))',u,-10,10)); animation(seq('M:=point((6*cos(u)+a)*exp(i*u))',u,-10,10)); animation(seq('N:=point((6*cos(u)-a)*exp(i*u))',u,-10,10));