|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
michel Invité
|
Posté le: 01 Juil 2005 16:56 Sujet du message: lieu géométrique |
|
|
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 |
|
Revenir en haut de page |
|
|
Bratt_de_Math Invité
|
Posté le: 04 Juil 2005 9:43 Sujet du message: Re: |
|
|
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+ |
|
Revenir en haut de page |
|
|
michel Invité
|
Posté le: 04 Juil 2005 10:17 Sujet du message: lieu géométrique |
|
|
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+ |
|
Revenir en haut de page |
|
|
ALS Invité
|
Posté le: 09 Juil 2005 8:12 Sujet du message: Re: lieu géométrique |
|
|
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.
Code: |
> restart:with(geometry):with(plots):
> S:=segment:L:=line:Per:=PerpendicularLine:
> R:=5:xA:=0:yA:=0:point(A,xA,yA):xI:=R/3:yI:=0:point(I1,xI,yI):
> circle(C,[A,R]):
> quadri:=proc(t)
> local xM,yM,xN,yN,xE,yE,dr1:
> xM:=evalf(R*cos(t)):yM:=evalf(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),quadri(1),quadri(1.2)],view=[-6..17,-10..6]);
|
|
|
Revenir en haut de page |
|
|
michel Invité
|
Posté le: 11 Juil 2005 14:58 Sujet du message: lieu géométrique |
|
|
Bonjour, effectivement (je viens de le contrôler) le remplacement de h par 'h' permet de faire tourner le programme. Merci. A+ |
|
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.
|