[Résolu] J'y arrive pas avec TeXgraph

Tout ce qui concerne l'utilisation ou l'installation de LaTeX.

Modérateur: gdm_tex

Règles du forum
Merci d'éviter le style SMS dans vos messages et de penser à utiliser la fonction Recherche avant de poster un message. Pour joindre des fichiers à vos messages, consulter ce sujet.
> Penser à utiliser les balises Code pour poster du code.

[Résolu] J'y arrive pas avec TeXgraph

Messagepar rebouxo » Vendredi 26 Janvier 2007, 00:13

Je suis en train de me prendre la tête avec TeXgraph (désolé, mais j'y ai passé toute la journée et je commence à être un rien à cran.)

J'essaye de faire des sections. j'arrive à faire des sections, le problème, c'est que je n'arrive pas à nommer les intersections des arêtes du cube avec les côtés de la section, ce qui serait bien pratique.
Je vous joint la figure et le code de la figure en TeXgraph.
Code: Tout sélectionner
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-1.455#5#-1.3668#4.9647#1.549186676995#1.549186676995##
% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0.5#0.5#0.5#0.5#1#1#14##
% Affectation des Variables theta et phi
18##[Set(theta,0.3491),Set(phi,1.0472)]##
% Déclaration des Variables Globales
15#A#Liste(0,0)##
15#B#Liste(3*i,0)##
15#C#Liste(opp(3)+3*i,0)##
15#D#Liste(opp(3),0)##
15#E#Liste(0,3)##
15#F#Liste(3*i,3)##
15#G#Liste(opp(3)+3*i,3)##
15#H#Liste(opp(3),3)##
15#S#A+0.6*[B-A]##
15#M#Liste(A+0.5*(E-A))##
15#R#Liste(C+0.3*(G-C))##
% Déclaration des Macros
% Déclaration des Eléments graphiques
% LabA (Utilisateur)
18##[Set(tMin,-5)]##
14#LabA#LabelDot(Proj3D(A),"$A$","SO",1)##
% LabB (Utilisateur)
14#LabB#LabelDot(Proj3D(B),"$B$","S",1)##
% LabC (Utilisateur)
14#LabC#LabelDot(Proj3D(C),"$C$","E",1)##
% LabD (Utilisateur)
14#LabD#LabelDot(Proj3D(D),"$D$","O",1)##
% LabE (Utilisateur)
14#LabE#LabelDot(Proj3D(E),"$E$","O",1)##
% LabF (Utilisateur)
14#LabF#LabelDot(Proj3D(F),"$F$","N",1)##
% LabG (Utilisateur)
14#LabG#LabelDot(Proj3D(G),"$G$","N",1)##
% LabH (Utilisateur)
14#LabH#LabelDot(Proj3D(H),"$H$","N",1)##
% LabS (Utilisateur)
18##[Set(tMin,-1.455)]##
14#LabS#LabelDot(Proj3D(S),"$S$","S",1)##
% LabM (Utilisateur)
14#LabM#LabelDot(Proj3D(M),"$M$","O",1)##
% LabR (Utilisateur)
14#LabR#LabelDot(Proj3D(R),"$R$","E",1)##
% Sec (Utilisateur)
14#Sec#[Cube:=Parallelep(A,[B-A],[D-A],[E-A],0),
u:=prodvec(M-S,R-S),
$p:=Intersection( [S,u], Cube),
DrawAretes(p,0),
DrawPoly(Cube,0)]##


est-ce que quelqu'un sait comment faire ?
Fichiers joints
espace_003.pdf
La figure. Il me manque les points à l'intersection du cube et du plan MSR.
(3.42 Kio) Téléchargé 106 fois
Dernière édition par rebouxo le Samedi 27 Janvier 2007, 11:01, édité 1 fois.
rebouxo
Modérateur
 
Messages: 6930
Inscription: Mercredi 15 Février 2006, 13:18
Localisation: le havre
Statut actuel: Actif et salarié | Enseignant

Publicité

Messagepar nirosis » Vendredi 26 Janvier 2007, 10:34

Le mieux c'est que tu ailles demander à P.Fradin sur le forum consacré à texgraph:

http://texgraph.heberg-forum.net/forums.html

Il répond assez vite.
nirosis
Administrateur
 
Messages: 1806
Inscription: Samedi 28 Mai 2005, 13:48
Localisation: Orsay, France
Statut actuel: Actif et salarié | Maître de conférence

Messagepar rebouxo » Vendredi 26 Janvier 2007, 11:27

Je sais mais j'ai posté cela hier (heu non ce matin). Je vais aussi le faire, mais comme il passe souvent par ici.

@+

Olivier
rebouxo
Modérateur
 
Messages: 6930
Inscription: Mercredi 15 Février 2006, 13:18
Localisation: le havre
Statut actuel: Actif et salarié | Enseignant

Messagepar P.Fradin » Vendredi 26 Janvier 2007, 15:30

Bonjour,

Bon, voilà, il y avait bien une erreur de signe dans la macro interDP, donc dans le fichier joint, j'ai rédéfini cette macro en InterDP et je l'ai corrigée.


Voici le fichier complet (je n'a pas pu joindre le fichier source ORcube.teg, sans doute l'extension teg n'est-elle pas acceptée. Cela est-il modifiable?):

[Edit: J'ai tout mis dans un même élément graphique Utilisateur pour réduire le code, les points qui te manquent sont appelés A1, A2 et A3, définis comme l'intersection du plan MRS et des droites (BC), (GH) et (EH)]

Code: Tout sélectionner
% Fichier créé par TeXgraph version 1.9
% Fenetre Xmin Xmax Ymin Ymax Xscale Yscale
100#-1.455#5#-1.3668#4.9647#1.549186676995#1.549186676995##

% Marges gauche droite haut bas cadre gestion_couleur comptgraph
101#0.5#0.5#0.5#0.5#1#1#15##

% Affectation des Variables theta et phi
18##[Set(theta,0.3491),Set(phi,1.0472)]##

% Déclaration des Macros
16#InterDP#{interDP( droite, plan): intersection droite-plan, renvoie un point}
[$A:=Copy(%1,1,2), $u:=Copy(%1,3,2), $B:=Copy(%2,1,2), $v:=Copy(%2,3,2),
 A- \prodscal(A-B,v)/\prodscal(u,v)*u]##


% Déclaration des Eléments graphiques
% Cube (Utilisateur)
18##[Width:=8,FillColor:=16777215,DotStyle:=1]##

14#Cube#[$A:=Origin, $B:=[3*i,0], $C:=[-3+3*i,0], $D:=[-3,0],
$E:=[0,3], $F:=[3*i,3], $G:=[-3+3*i,3], $H:=[-3,3],
$M:=A+0.5*(E-A), $R:=C+0.3*(G-C), $S:=A+0.6*[B-A],
$plan:=[M, \prodvec(M-S,R-S)],
$A1:= InterDP( [B,C-B], plan), $A2:=InterDP([H,G-H], plan),
$A3:=InterDP([H,E-H], plan),
Cube:=Parallelep(A, B-A, D-A, E-A), $L:=Intersection(plan, Cube),
DrawPoly(Cube, 0), DrawAretes(L, 0),
LabelDot(Proj3D(A), "$A$","O",1), LabelDot(Proj3D(B), "$B$","S",1),
LabelDot(Proj3D(C), "$C$","E",1), LabelDot(Proj3D(D), "$D$","O",1),
LabelDot(Proj3D(E), "$E$","O",1), LabelDot(Proj3D(F), "$F$","N",1),
LabelDot(Proj3D(G), "$G$","E",1), LabelDot(Proj3D(H), "$H$","N",1),
LabelDot(Proj3D(M), "$M$","O",1), LabelDot(Proj3D(R), "$R$","E",1),
LabelDot(Proj3D(S), "$S$","S",1), LabelDot(Proj3D(A1), "$A_1$","E",1),
LabelDot(Proj3D(A2), "$A_2$","NE",1), LabelDot(Proj3D(A3), "$A_3$","NO",1)
]##


Et l'illustration:
Fichiers joints
ORcube.png
(17.79 Kio) Téléchargé 388 fois
P.Fradin
 

Messagepar P.Fradin » Vendredi 26 Janvier 2007, 21:06

Pour Olivier:

Il serait peut-être bon d'ajouter [résolu] dans le titre de ton post, comme cela se fait habituellement je crois.

La prochaine fois que tu as un problème avec TeXgraph, ne te prend pas la tête toute une journée avec avant de me faire signe! Si tu as d'autres questions ou des suggestions, n'hésite pas.

Bonne continuation
P.Fradin
 

Messagepar rebouxo » Samedi 27 Janvier 2007, 10:59

Oupps, merci pour la suggestion.
Olivier
rebouxo
Modérateur
 
Messages: 6930
Inscription: Mercredi 15 Février 2006, 13:18
Localisation: le havre
Statut actuel: Actif et salarié | Enseignant


Retourner vers LaTeX

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Google [Bot] et 5 invités