marker sur cercle 3d

[Karine Brunel]

Bonjour à tous!
Bonne année 2023,même si la date est un peu dépassée!

Je voudrais placer un "marker" sur le cercle noir (cf aperçu pdf) comme sur l'ellipse en bleue, mais celle-ci se retrouve dans le plan xOy (normal, c'est une commande 2d)...

Ya t-il un moyen simple d'y parvenir ?
Merci d'avance pour vos lumières

Code: Tout sélectionner

\begin{texgraph}[file,call]
Cmd
   Window(-2.5+6.1*i, 5.5-2.5*i, 1.27906976744186+1.27906976744186*i);
   Margin(0.5, 0.5, 0.5, 0.5);
   Border(0);
   [OriginalCoord(1), IdMatrix()];
   [theta:=0.3491, phi:=1.2217, IdMatrix3D(), ModelView(ortho)];
   GrayScale(0);

Mac
    Mcyl = [%1*exp(i*%2), %3];
    Msph = %1*[exp(i*%2)*sin(%3), cos(%3)];
    xlegend = "$x$";
    ylegend = "$y$";
    zlegend = "$z$";

Cmd   [NbPoints:=100,tMin:=-5,tMax:=5,DotScale:=1+i,LabelSize:=2];
Graph VolCone = [  view(-2.5,5.5,-2.5,6.1), size(12,1),  LabelSize:=Huge,Arrows:=1,
    Axes3D(0,0,0,0,0,0),
                       r:=1.5*sqrt(2), A0:=Mcyl(0,0,0),a:=r/2,b:=0.05,
                         A1:=Mcyl(r,pi/2,+5), A2:=Mcyl(0.5*r,pi/2,2.5),
                         A0milieu:=Mcyl(0,0,-2.5),
                       Arrows:=0, Width:=12,
                       Color:=blue,
                       draw("ellipse",[4.5*vecK,a,b],[marker:=[0.875,OParrow']]),
                       Dcone(Origin,4.5*vecK,r,2),
                       LabelDot3D(Origin,"$O$","SE",1),
                       Color:=black,Cercle3D( Mcyl(0,0,4.5),r,vecK),
                       Color:=black,LineStyle:=dashed,Ligne3D([A0,A0fond],0),
                       Color:=red,Arrows:=1,  Ligne3D([A0,A1],0),
                       LabelDot3D(A2,"$\overrightarrow{\mu}$","E",0),
   
                       ];
\end{texgraph}

[P.Fradin]

Bonjour Karine,

Meilleurs veux à toi aussi.
Voici une proposition :

Code: Tout sélectionner

\begin{texgraph}[file,call]
Cmd
   Window(-2.5+6.1*i, 5.5-2.5*i, 1.27906976744186+1.27906976744186*i);
   Margin(0.5, 0.5, 0.5, 0.5);
   Border(0);
   [OriginalCoord(1), IdMatrix()];
   [theta:=0.3491, phi:=1.2217, IdMatrix3D(), ModelView(ortho)];
   GrayScale(0);

Mac
    Mcyl = [%1*exp(i*%2), %3];
    Msph = %1*[exp(i*%2)*sin(%3), cos(%3)];
    xlegend = "$x$";
    ylegend = "$y$";
    zlegend = "$z$";

Cmd   [NbPoints:=100,tMin:=-5,tMax:=5,DotScale:=1+i,LabelSize:=2];
Graph VolCone = [  view(-2.5,5.5,-2.5,6.1), size(12,1),  LabelSize:=Huge,Arrows:=1,
       Axes3D(0,0,0,0,0,0),
                          r:=1.5*sqrt(2), A0:=Mcyl(0,0,0),a:=r/2,b:=0.05,
                            A1:=Mcyl(r,pi/2,+5), A2:=Mcyl(0.5*r,pi/2,2.5),
                            A0milieu:=Mcyl(0,0,-2.5),
                          Arrows:=0, Width:=12,
                          Color:=blue,
   
                          draw("ellipse",[4.5*vecK,a,b],[marker:=[0.875,OParrow']]),
                          Dcone(Origin,4.5*vecK,r,2),
   
                          LabelDot3D(Origin,"$O$","SE",1),
                          Color:=black,
                        
                          draw("line", Get(Cercle3D( Mcyl(0,0,4.5),r,vecK)),
                            [LineStyle:=none, marker:=[0.875,-OParrow']]), // le cercle est déjà tracé avec le cône
   
                          Color:=black,LineStyle:=dashed,Ligne3D([A0,A0fond],0),
                          Color:=red,Arrows:=1,  Ligne3D([A0,A1],0),
                          LabelDot3D(A2,"$\overrightarrow{\mu}$","E",0),
   
                          ];
\end{texgraph}


Karine-2023-02-03.png (20.4 Kio) Consulté 1064 fois

[Karine Brunel]

Merci beaucoup, c'est parfait!
Je n'ai pas pensé à passer par Get(Cercle3D( Mcyl(0,0,4.5),r,vecK) pour définir la ligne à tracer sur laquelle placer les markers!
Bref, comme d'habitude rapide et efficace!
Bon we