Bonjour,
Je débute avec Texgraph, j'essaie de faire une figure pour apprendre ... alors pourquoi pas l'exo 1 du sujet du bac S liban 2011 :
http://www.apmep.asso.fr/IMG/pdf/LibanS31mai2011.pdf. Je suis parti d'exemples de la doc et je modifie peu à peu. Je fais ma figure puis j'exporte avec source4latex.
Quelques difficultés et pardon si la réponse est dans la doc mais j'ai du mal :
Il y a par exemple les points que je n'arrive pas à mettre en couleur (A,B,C et G en rouge ; H et M en bleu) et surtout je ne sais pas comment les intégrer directement dans le code utilisateur objet 1=[ ] alors G est défini comme barycentre et aussi comme variable globale sinon je ne le voyais pas
Pour le cercle (intersection- sphère plan) l'angle de vue est sûrement à adapté mais je n'arrive pas à couper la "calotte" pour voir H le centre du cercle.
J'ai essayé avec S':=ClipFacet(S, [M(-1,-3,-2),vecI+vecJ-vecK]), et { DrawFacet( S' ) en commentaire} mais le résultat n'est pas terrible avec les méridiens et parallèles je cherche l'apparence de bdSphère ou alors il faudrait une transparence ce qui éviterait le clipwin que j'ai mis pour essayer de voir les points et le repère.
Je n'arrive pas non plus à tracer [HM] j'ai essayé avec Ligne3D mais j'ai un accés violation et pas de tracé si j'essaie avec DrawDroite
La figure
et le code :
- Code: Tout sélectionner
\begin{texgraph}[file,call]
Cmd [Fenetre(-6+6*i,6-6*i,0.54166666666666+0.54166666666666*i), Marges(0.5,0.5,0.5,0.5), Border(0)];
[OriginalCoord(1),IdMatrix()];
[theta:=0.4189, phi:=0.3491, IdMatrix3D(), ModelView(ortho)];
GrayScale(0);
Var
B = [-3-2*i,3];
C = [-2*i,-3];
A = [1+2*i,-1];
G = [2,-5];
H = M(opp(1),opp(3),opp(2));
M = M(sqrt(1.5),opp(2)-sqrt(1.5),0);
Mac
xlegend = "$x$";
ylegend = "$y$";
zlegend = "$z$";
text3d1 = "$x$";
text3d2 = "$y$";
text3d3 = "$z$";
text3d4 = "$P$";
text3d5 = "$P$";
Cmd [tMin:=-5,tMax:=5,DotScale:=1+i];
Graph objet1 = [
view(-6,6,-6,6), size(7.5),
{theta:=-10*deg, phi:=60*deg,}
P1:=planEqn([2,-1,1,-1]),P2:=planEqn([1,1,-1,-2]),
G:=bary3d([A,1,B,-1,C,2]),
S:=Sphere(G,6),
{D:= interPP(P1,P2),}
d:=[M(2,0,-5),vecI+vecJ-vecK],
{H:=interDP(d,P), }
c:=Copy(getplan(P2,0.75),3,2),
S':=ClipFacet(S, [M(-1,-3,-2),vecI+vecJ-vecK]),
{DrawFacet( S', [color:=pink]), }
DrawDroite(M(-1,-3,-2),(sqrt(1.5)+1)*vecI+(-sqrt(1.5)+1)*vecJ+2*vecK,3),
Build3D(
bdSphere(G,6,[color:=darkseagreen, clip:=-1,clipwin:=[M(1,-2,1),M(-1,-2,-1)],
smooth:=1, backculling:=0]),
bdCercle(M(-1,-3,-2),3,vecI+vecJ-vecK,[color:=blue, width:=12]),
bdPlan(P1, [color:=red, opacity:=0.6,
scale:=1 ]),
bdPlan(P2, [color:=blue,opacity:=0.4,
scale:=1.3]),
bdDroite(d, [color:=red,
width:=12]),
bdAxes([0,0],[color:=gold,
width:=8, arrows:=1]),
Color:=blue,
bdLabel(c,"$P$",[color:=blue,labelpos:=[0.5,i]])
),
Display3D(),
];
Cmd [tMin:=-6,tMax:=6];
Graph LabA = LabelDot(Proj3D(A),"$A$","E",1);
Graph LabB = LabelDot(Proj3D(B),"$B$","N",1);
Graph LabC = LabelDot(Proj3D(C),"$C$","E",1);
Graph LabG = LabelDot(Proj3D(G),"$G$","S",1);
Graph LabH = LabelDot(Proj3D(H),"$H$","N",1);
Graph LabM = LabelDot(Proj3D(M),"$M$","S",1);
\end{texgraph}
Merci pour l'aide, tous les conseils sont bienvenus car quand on débute on y passe beaucoup de temps ...