Tangente à un cercle

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.

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], ...

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 ?
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.

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.

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)

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?)

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.

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{}$?

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

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