Tangente à un cercle

Voir le sujet précédent Voir le sujet suivant Aller en bas

Tangente à un cercle

Message  F.Couvreur le Mar 14 Oct - 1:12

Bonsoir Patrick,
J'ai essayé une méthode "bourrin" afin de marquer l'angle droit de la tangente à un cercle, mais cela ne fonctionne pas !
Code:
% TeXgraph version 1.94 beta-7
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-2.87658097803753#5.38788183187982#-3.68019725126706#4.58426555865029#1.21#1.21##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0.5#0.5#0.5#0.5#0#1#22##
% Affectation des Variables theta et phi et type de perspective
18##[theta:=0.5236, phi:=1.0472,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(ortho)]##
% Déclaration des Macros
% Déclaration des Eléments graphiques
% objet1 (Cercle)
18##[Width:=4]##
7#objet1#[0,2  ]##
% objet2 (Point(s))
4#objet2#[  0]##
% objet3 (Label)
18##[LabelStyle:=4]##
8#objet3#[ 0-0.1*i ]#O##
% objet4 (Point(s))
18##[IsVisible:=0]##
4#objet4#[ 2*exp(i*pi/3) ]##
% objet5 (Ligne Polyg.)
18##[IsVisible:=1]##
12#objet5#[ 0,2*exp(i*pi/3) ]#0#0##
% objet6 (Label)
18##[LabelStyle:=10]##
8#objet6#[ 2.2*exp(i*pi/3) ]#T##
% tangenteP11 (Utilisateur)
18##[tMin:=-3.2898,tMax:=5.8011,LabelStyle:=0]##
14#tangenteP11#tangenteP(2*exp(i*t),pi/3,5)#-1##
% objet12 (Label)
18##[LabelStyle:=8]##
8#objet12#[ 2.5*exp(i*pi/6) ]#$d$##
% objet14 (Cercle)
18##[Width:=2]##
7#objet14#[ 0,abs(2*exp(i*pi/3) )]##
% objet15 (Cercle)
7#objet15#[  2*exp(i*pi/3),abs(0-2*exp(i*pi/3))]##
% Intersec16 (Utilisateur)
18##[LabelStyle:=0]##
14#Intersec16#Point(Intersec(objet15,tangenteP11))#-1##
L'idée est de récupérer un des deux points (Point1 par ex) pour marquer l'angle droit OTPoint1.
J'ai essayé avec la fonction Get, mais cela ne fonctionne pas.
Peut-être n'ai-je pas suffisamment lu la doc (il se fait tard !)
Merci pour ton aide.

F.Couvreur

Nombre de messages : 137
Age : 53
Date d'inscription : 10/02/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  P.Fradin le Mar 14 Oct - 9:49

Salut Fabrice,

Il aurait plus simple de déclarer O et T en variable globale! Sachant que l'angle est droit il suffit de "faire tourner O" en écrivant comme commande:

Code:

angleD(O,T, T+i*(O-T), 0.25)

Bien sûr cela ne marche que si O et T sont connus (d'où l'idée de les mettre en variable globale).

Sinon, si P1 contient tes points d'intersection, P1 est une liste, donc tu peux accéder au premier point avec P1[1], au deuxième avec P1[2], ...

_________________
P.Fradin

P.Fradin
Admin

Nombre de messages : 1133
Age : 55
Date d'inscription : 19/01/2008

Voir le profil de l'utilisateur http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  F.Couvreur le Mer 15 Oct - 18:38

Bonjour Patrick,
Désolé de ne pas avoir répondu à ton post plus rapidement, mais ton site était en maintenance.
Pourquoi faire compliqué quand on peut faire simple ? Very Happy
Ta première solution marche parfaitement (qui pouvait en douter ?), par contre, je ne parviens toujours pas à récupérer un des deux points avec la fonction Get().
Merci.

F.Couvreur

Nombre de messages : 137
Age : 53
Date d'inscription : 10/02/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  P.Fradin le Mer 15 Oct - 18:47

Bonjour Fabrice,

La liste des points d'intersection est obtenue dans la variable P avec la commande:

Code:

P:=Intersec(objet15,tangenteP11)

puis si tu veux séparer les points dans deux variables, tu n'as pas besoin de "Get", tu fais:

Code:

P1:=P[1], P2:=P[2]

car P est une liste de 2 points.

_________________
P.Fradin

P.Fradin
Admin

Nombre de messages : 1133
Age : 55
Date d'inscription : 19/01/2008

Voir le profil de l'utilisateur http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  F.Couvreur le Mer 15 Oct - 21:17

Salut,
Je n'ai pas été très clair. En fait, j'avais récupéré les points grâce à l'élément graphique

Code:
 [P:=Get(Intersec(objet15,tangenteP11)),P1:=P[1],P2:=P[2]]

Seulement, je ne parviens pas à dessiner l'angle droit avec le code
Code:
angleD(O,T,P1)

F.Couvreur

Nombre de messages : 137
Age : 53
Date d'inscription : 10/02/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  P.Fradin le Mer 15 Oct - 21:40

C'est peut-être juste un oubli, mais il manque la taille dans ton instruction angleD, par exemple:

Code:

angleD(O,T,P1,0.25)

Par contre cela ne fonctionne que si O, T et P1 sont connus par la commande angleD! Soient ce sont des variables globales (celles qui apparaissent dans la liste intitulée Variables Globales), soient ce sont des variables locales mais dans le même élément graphique que angleD. Tu vois?

Si tu remplaces ton élément intersec16 par celui-ci:

Code:

[
P:=Intersec(objet15,tangenteP11),
 Point(P),
 angleD(O,T,P[1],0.25)


alors effectivement on ne verra pas l'angle droit car O et T ne sont pas connus (ce ne sont pas des variables globales dans ton fichier). Par contre, si tu remplaces ton élément intersec16 par celui-ci:

Code:

[
O:=0, T:=2*exp(i*pi/3),
P:=Intersec(objet15,tangenteP11),
 Point(P),
 angleD(O,T,P[1],0.25)


tu verras l'angle droit car O et T sont maintenant connus (mais ce ne sont pas les mêmes O et T que dans les autres éléments graphiques car elles sont locales, tu me suis?)

_________________
P.Fradin

P.Fradin
Admin

Nombre de messages : 1133
Age : 55
Date d'inscription : 19/01/2008

Voir le profil de l'utilisateur http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  F.Couvreur le Ven 17 Oct - 18:31

Bonjour Patrick,
Désolé de ne pas te répondre plus rapidement, mais je suis un peu débordé en ce moment.

C'est peut-être juste un oubli
Oui.
tu me suis ?
Oui.
Une question qui n'a rien avoir avoir avec ce post. J'aimerai pouvoir utiliser le symbole euro en ajoutant un label sur l'axe des ordonnées d'un graphique. J'ai, pour cela, ajouté la commande \usepackage{eurosym} dans les fichiers apercu.tex et formule.tex du répertoire .TeXgraph.
Pourquoi cela ne fonctionne t-il pas ?
Merci.

F.Couvreur

Nombre de messages : 137
Age : 53
Date d'inscription : 10/02/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  P.Fradin le Ven 17 Oct - 19:29

Salut Fabrice,

Chez moi ça marche en ajoutant \usepackage{eurosym} dans apercu.tex. Tu es sûr que tu as bien mis \euro{} et non pas $\euro{}$?

_________________
P.Fradin

P.Fradin
Admin

Nombre de messages : 1133
Age : 55
Date d'inscription : 19/01/2008

Voir le profil de l'utilisateur http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  F.Couvreur le Ven 17 Oct - 19:39

Bonsoir Patrick,
Ce qui est incroyable, c'est que tu devines les erreurs que nous commettons !
Merci beaucoup.
@+

F.Couvreur

Nombre de messages : 137
Age : 53
Date d'inscription : 10/02/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  P.Fradin le Ven 17 Oct - 19:47

F.Couvreur a écrit:Bonsoir Patrick,
Ce qui est incroyable, c'est que tu devines les erreurs que nous commettons !
Merci beaucoup.
@+

Non, je ne les devine pas en réalité, je fais les mêmes Laughing

_________________
P.Fradin

P.Fradin
Admin

Nombre de messages : 1133
Age : 55
Date d'inscription : 19/01/2008

Voir le profil de l'utilisateur http://texgraph.tuxfamily.org/

Revenir en haut Aller en bas

Re: Tangente à un cercle

Message  Contenu sponsorisé Aujourd'hui à 11:52


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum