Marquage d'un segment dans l'espace

Pour toute demande d'aide sur des exemples non finalisés, c'est ici.
Les exemples aboutis et intéressants seront ajoutés aux sous-forums qui suivent.

Règles du forum
Pour toute demande d'aide pour la conception (ou la confirmation d'un code) d'une figure Asymptote, c'est ici.

J'invite ceux qui ont régulièrement des questions à poser à aller dans leur panneau de l'utilisateur pour indiquer dans la signature de leurs messages :

  1. Nom du système d'exploitation (W7 ou Ubuntu 12.04 ou ...)
  2. Version d'Asymptote et éditeur utilisé pour les figures Asymptote
  3. Distribution LaTeX et éditeur utilisé pour les tex.


On va gagner du temps dans les réponses !
Viserion
Messages : 23
Enregistré le : mar. 24 mars 2020, 20:00

Marquage d'un segment dans l'espace

Message non lu par Viserion » mar. 8 févr. 2022, 19:59

Bonsoir Gaetan,
Pour faire suite à notre précédente discussion, comment coder les deux segments AM et BM pour indiquer leur égalité ?
Merci.
Fabrice

Code : Tout sélectionner

import three;
import math;
usepackage("esvect");
usepackage("mathrsfs");

void drawrightangle(picture pic=currentpicture,
triple M, triple A, triple B,
real radius=0,
pen p=currentpen,
pen fillpen=nullpen,
projection P=currentprojection)
{
p=linejoin(0)+linecap(0)+p;
if (radius==0) radius=arrowfactor*sqrt(2);
transform3 T=shift(-M);
triple OA=radius/sqrt(2)*unit(T*A),
OB=radius/sqrt(2)*unit(T*B),
OC=OA+OB;
path3 _p=OA--OC--OB;
picture pic_;
draw(pic_, _p, p=p);
if (fillpen!=nullpen) draw(pic_, surface(O--_p--cycle), fillpen);
add(pic,pic_,M);}

triple pointABCD(triple A, triple B, triple C, triple D) {
    pair Xp = extension(project(A),project(B),project(C),project(D));
    return invert(Xp,A,B);
}

size(10cm);

defaultpen(fontsize(10pt));
pen style1 = linetype("4 4");

currentprojection=obliqueX;

pen p = rgb(255,200,0);

triple s=(8,0,0),t=(0,10,0);
      
path3 pl1=plane(s,t,O);

triple A=(4,5,4);
triple B=(4,5,-4);
triple M=(1.5,7,0);

transform3 proj=planeproject(pl1);

triple I=proj*A;
triple J=pointABCD(A,B,s,(8,10,0));
triple K=pointABCD(M,B,s,(8,10,0));

draw(surface(pl1),lightgray+opacity(.5),darkgray);
draw(A--I^^J--B^^A--M^^I--M^^K--B);
draw(I--J^^M--K,style1);
drawrightangle(I,M,A,3mm,fillpen=red+opacity(0.5));
label("$\mathscr{P}$",(7,0.5,0),E);
dot("$A$",A,N);
dot("$B$",B,S);
dot("$I$",I,NW);
dot("$M$",M,NE);

Avatar du membre
GM
Administrateur du site
Administrateur du site
Messages : 1491
Enregistré le : dim. 7 mars 2010, 14:50

Re: Marquage d'un segment dans l'espace

Message non lu par GM » dim. 1 mai 2022, 10:49

Bonjour,

oupss, je découvre ce message trois mois plus tard
mais je ne sais pas comment j'aurais fait ; je ne pense pas qu'il y aurait eu une solution simple.

Désolé.
Index des fonctions - Exemple de lien donnant le résultat d'une recherche sur les mots 'arc' et 'triple' : http://asy.marris.fr/indexasy/?filtre=arc triple
Mes configurations (le 24/02/21) :
PC n°1 :Windows 10 - Asymptote(2.82)+MikTeX2.9 - Editeurs : Notepad++, TeXworks, Visual Studio Code.
PC n°2 : Ubuntu 20.04LTS - Asymptote(2.67-?? git) + TexLive2020
Mon serveur : Debian Stretch- Asymptote(2.68-16 git) + TexLive2018
Merci de préciser la votre !

Répondre