Pôles d'un grand cercle

Pôles d'un grand cercle

Messagepar Eric » 31 Oct 2010 13:22

Bonjour Patrick

Je voudrais réaliser une figure 3D d'un grand cercle sur une sphère et de ses pôles (les extrémités du diamètre de la sphère orthogonal au grand cercle). Comme faire ceci ?

Merci d'avance,
Eric
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 31 Oct 2010 13:40

Bonjour Eric,

Quelque chose comme ça?:
GdCercle.png
GdCercle.png (26.29 Kio) Consulté 26927 fois


Ci-joint le source:
GdCercle.teg
(1.43 Kio) Téléchargé 1091 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 31 Oct 2010 14:14

Je te remercie. Je vais essayer de m'en servir de base pour la figure que je veux réaliser.
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar Eric » 31 Oct 2010 14:20

Je viens de regarder. Tu as pris les pôles comme des vecteurs prédéfinis dans TexGraph. Comment les calculer explicitement comme l'intersection de la sphère avec le diamètre orthogonal au grand cercle (ou l'inverse puisqu'en fait, tu pars du diamètre pour placer le cercle) ?

En fait, je veux utiliser ton modèle pour tracer un triangle sphérique et son triangle polaire.
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 31 Oct 2010 14:41

Eric a écrit:En fait, je veux utiliser ton modèle pour tracer un triangle sphérique et son triangle polaire.


Mais fallait le dire tout de suite! J'ai un fichier pour les triangles sphériques (lien temporaire).

Image
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 31 Oct 2010 14:47

P.Fradin a écrit:
Eric a écrit:En fait, je veux utiliser ton modèle pour tracer un triangle sphérique et son triangle polaire.


Mais fallait le dire tout de suite!


Je voulais essayer de le faire à partir d'une première base (parce que pour les figures 3D, je rame ...).
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 00:22

Je viens de voir qu'il y a un problème avec l'export en pgf. Des ellipses fantômes apparaissent.
Triangle_spher.jpg
Triangle_spher.jpg (42.33 Kio) Consulté 26867 fois


Et sinon, comment faire pour représenter le triangle polaire de ABC sur la figure ci-dessus ?
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 03 Nov 2010 00:23

Qu'appelles-tu le triangle polaire, diamétralement opposé?

PS: oui il y avait un bug dans la commande Ellipse de la version 1.95, elle est corrigée.
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 00:30

P.Fradin a écrit:Qu'appelles-tu le triangle polaire, diamétralement opposé?

Le triangle A'B'C' où A' est le pôle du grand cercle BC le plus proche de A, autrement dit l'extrémité la plus proche de A du diamètre de la sphère orthogonal au grand cercle BC, B' et C' sont définis de la même façon.

PS: oui il y avait un bug dans la commande Ellipse de la version 1.95, elle est corrigée.


Je vais charger la dernière version. Actuellement, j'utilise la version 1.95-beta-1.
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 00:39

Je viens de passer à la version beta-9 et j'ai toujours un fantôme, mais plus le même qu'avec la beta-1.
Triangle_spher1.jpg
Triangle_spher1.jpg (42.24 Kio) Consulté 26848 fois


D'ailleurs, je vois qu'il est aussi présent sur la figure que tu as postée plus haut.
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 03 Nov 2010 00:43

Je vais charger la dernière version. Actuellement, j'utilise la version 1.95-beta-1.


Le bug ne sera corrigé que dans la prochaine version 1.95! En attendant tu peux jouer dans la macro dsphere, sur le 3ième paramètre (nombre de méridiens je crois), tu essayes 21 ou 19 (le problème vient d'un calcul arrondi qui ne donne donc pas la valeur exacte).

Pour les pôles, il faut les calculer, par exemple pour A' c'est +/- 3*normalize(Prodvec(B,C)) (le centre étant l'origine et 3 le rayon de la sphère), ensuite on calcule les deux normes Norm(A - * ) et Norm(A + *) pour décider qui est A'.
Je ferai un exemple demain matin, là c'est dodo!
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 00:47

P.Fradin a écrit:
Je vais charger la dernière version. Actuellement, j'utilise la version 1.95-beta-1.


Le bug ne sera corrigé que dans la prochaine version 1.95! En attendant tu peux jouer dans la macro dsphere, sur le 3ième paramètre (nombre de méridiens je crois), tu essayes 21 ou 19 (le problème vient d'un calcul arrondi qui ne donne donc pas la valeur exacte).

Pour les pôles, il faut les calculer, par exemple pour A' c'est +/- 3*normalize(Prodvec(B,C)) (le centre étant l'origine et 3 le rayon de la sphère), ensuite on calcule les deux normes Norm(A - * ) et Norm(A + *) pour décider qui est A'.
Je ferai un exemple demain matin, là c'est dodo!


Pas de panique ;) Bonne nuit à toi aussi.
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 03 Nov 2010 09:07

Voilà un exemple, j'ai modifié l'élément graphique du fichier triangleSpherique.teg ainsi:

Code: Tout sélectionner
[O:=[0,0],
 A:=3*normalize(M(1,1,5)), B:=3*normalize(M(1,1,0.25)),
 C:=3*normalize(M(0,1,0.5)),
 Color:=lightgray, Width:=2,
 dsphere([0,0],3,20,20),
 Color:=black, Width:=8,
 FillStyle:=full, FillColor:= lightblue,FillOpacity:=0.8,
 triangleS(O,3,A,B,C),

 {FillStyle:=none,
 grandCercle( O, 3, A,B,"c","O"),
 grandCercle( O, 3, A,C,"b","E"),
 grandCercle( O, 3, C,B,"a","S"),
 angleS(O,3,B,A,C,0.5,1,"$\alpha$"),
 angleS(O,3,C,B,A,0.5,1, "$\beta$"),
 angleS(O,3,A,C,B,0.5,1,"$\gamma$"),}

 A':=3*normalize(Prodvec(B,C)),
 if Prodscal(A,A')<0 then A':=-A' fi,
 B':=3*normalize(Prodvec(A,C)),
 if Prodscal(B,B')<0 then B':=-B' fi,
 C':=3*normalize(Prodvec(B,A)),
 if Prodscal(C,C')<0 then C':=-C' fi,
 FillStyle:=full, FillColor:=lightcyan,FillOpacity:=0.5,
 triangleS(O,3,A',B',C'),
 LabelDot3D(A',"$A'$","O",1),
 LabelDot3D(B',"$B'$","SO",1),
 LabelDot3D(C',"$C'$","E",1),

 LabelDot3D(A,"$A$","O",1),
 LabelDot3D(B,"$B$","SO",1),
 LabelDot3D(C,"$C$","E",1),
]


triangleSpherique.png
triangleSpherique.png (42.25 Kio) Consulté 26827 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 09:40

Merci !!!

J'ai fait la modif suivante dans ton code

Code: Tout sélectionner
FillStyle:=full, FillColor:=lightcyan,FillOpacity:=0.5,
triangleS(O,3,A',B',C'),
FillStyle:=none,
grandCercle( O, 3, C,B),
triangleS(O,3,A,B,C),
LabelDot3D(O,"$O$","S",1),
LabelDot3D(A',"$A'$","O",1),
LabelDot3D(B',"$B'$","SO",1),
LabelDot3D(C',"$C'$","E",1),


et j'ai mis les deux LineStyle en dotted dans la macro grandCercle.

Comment faire apparaître le rayon OA en pointillé ?
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 03 Nov 2010 10:10

Eric a écrit:et j'ai mis les deux LineStyle en dotted dans la macro grandCercle.


Du coup cette macro ne sert à rien, car son intérêt est de distinguer la partie visible et la partie cachée. Autant faire:

Code: Tout sélectionner
LineStyle:=dotted, Cercle3D(O, Norm(B),Prodvec(B,C)), LineStyle:=solid,


Comment faire apparaître le rayon OA en pointillé ?


Là c'est presque trop facile...

Code: Tout sélectionner
LineStyle:=dotted, Cercle3D(O, Norm(B),Prodvec(B,C)), Ligne3D( [O,A],0), LineStyle:=solid,
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 11:29

Je te remercie. Voila le résultat.
Triangle_spher1.jpg
Triangle_spher1.jpg (35.97 Kio) Consulté 26816 fois
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Pôles d'un grand cercle

Messagepar P.Fradin » 03 Nov 2010 11:33

Pour l'ellipse parasite as-tu essayé de changer le troisième paramètre de dpshere?

Code: Tout sélectionner
dsphere([0,0],3,19,20) ou dsphere([0,0],3,21,20),
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pôles d'un grand cercle

Messagepar Eric » 03 Nov 2010 11:59

Je n'ai rien changé, j'attends la nouvelle version 1.95 ;) (je bosse sur un projet qui, s'il est publié, ne le sera que dans quelques mois).
Eric
 
Messages: 298
Inscription: 07 Août 2009 21:05
Localisation: Asnieres


Revenir vers Géométrie de l'espace

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 13 invités

cron