Apprendre Maple

[michel]

Bonjour, je cherche à construire la figure correspondant à ce problème.
On donne un diamètre A'D d'un cercle (A) de centre A (de rayon R) et un point I du segment AD (AI=R/3). Une droite variable passe par I et coupe (A) en M et N.
Les tangentes en M et N au cercle (A) se coupent en E. Lieu de E ?
Voici mon programme :
with(geometry):with(plots):
S:=segment:L:=line:Per:=PerpendicularLine:
R:=5A:=0:yA:=0:point(A,xA,yA)I:=R/3:yI:=0:point(I1,xI,yI):
circle(C,[A,R]):
quadri:=proc(t)
local xM,yM,xN,yN,xE,yE,dr1:
xM:=R*cos(t):yM:=R*sin(t):point(M,xM,yM):L(lMI,[M,I1]):
intersection(h,C,lMI,[M,N]):L(lAM,[A,M]):L(lAN,[A,N]):
Per(lME,M,lAM):Per(lNE,N,lAN):intersection(E,lME,lNE):
S(sAM,[A,M]):S(sAN,[A,N]):S(sME,[M,E]):S(sNE,[N,E]):
dr1:=draw({lMI(color=blue),sAM(color=black),sAN(color=black),
sME,sNE}):
display({dr1}):
end:
dr:=draw({C},view=[-6..17,-10..6]):
display([dr,quadri(0.7)},view=[-6..17,-10..6]);

Jusque là, tout va bien ; mais quand je veux mettre dans le dernier display plusieurs quadri(..) tels que : quadri(0.7), quadri(1), quadri(1.2),..
pour me rendre compte de l'évolution de la figure, j'ai le message d'erreur : Error (in geometry/isassign) the argument [M,N] is expected of type name. Peut-on corriger cette erreur qui vient de l'instruction "intersection" ? Merci

[Bratt_de_Math]

Salut,
peut-être en mettant [`M`,`N`] a la place de [M,N], mais je ne peux pas essayer, n'ayant pas Maple sur l'ordi où je travaille.
A+

[michel]

Bonjour, l'emploi des `` n'est pas satisfaisant ; il ne résout pas la difficulté. Je me suis tiré d'affaire en calculant directement par trigonométrie les coordonnées du point d'intersection N. Merci. A+

[ALS]

Bonjour, étant absent une semaine, je réponds à votre question avec un peu de retard. Le code fonctionne en remplaçant h par 'h' dans intersection(h,C,lMI,[M,N]), mais je serai incapable de dire pourquoi, sans doute les mystères internes de Maple.
A bientôt sur ce forum.

[michel]

Bonjour, effectivement (je viens de le contrôler) le remplacement de h par 'h' permet de faire tourner le programme. Merci. A+