Figures de l'espace : marquage d'un point

N'oubliez pas de consulter les sujets avant de poser votre question, merci.

Figures de l'espace : marquage d'un point

Messagepar Fabrice » 25 Mai 2021 19:00

Bonsoir Patrick,
Bon, c'est encore moi ! Je ne parviens pas à marquer le point A avec une croix. Tu m'as demandé dans un post précédent si je cherchais à reproduire la figure le plus fidèlement possible ; la réponse est oui.
Merci.
Fabrice

Code: Tout sélectionner
[
    view(-7,7,-6,6),Marges(0,0,0,0),size(8),
    view3D(-5,5,-5,5,-5,5),
    A:=M(0,0,2*vecK), B:=M(-2,2,0),C:=M(2,-2,0),
    H:=M(0,0,0),
    p:=[H,vecK],
    D:=Copy(getplan(p),3,2),
       Build3D(
        bdPlan(p,[color:=white, opacity:=1,border:=1,
               width=12, contrast:=0,scale:=1]),
        bdLine([B,C] ,[color:=black, arrows:=0, width:=12,]),
        bdDroite([A,vecK] ,[hidden:=1,scale:=1.1,color:=firebrick,
                 arrows:=0, width:=12]),
        bdAngleD(H+vecK,H,C, 0.5, [color:=navy]),
        bdLabel(A,"$A$",[labelpos:=[3.1,0.5*i]]),
        bdDot(H,[dir:=[vecI+vecJ,-vecI],dotstyle:=cross,
                                         dotscale:=2]),
        bdDot(A,[dir:=[vecI+vecJ,-vecI],dotstyle:=cross,
                                         dotscale:=2]),
       ),
        Display3D(),
        draw("label",
          "$\mathscr{P}$", [anchor:=Proj3D(D), labeldir:=[0.7,1.5+i/2]],
          "$H$",[anchor:=Proj3D(H+vecK), labeldir:="SE",labelsep:=0.1],
        ),
    ]


Image
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22

Re: Figures de l'espace : marquage d'un point

Messagepar P.Fradin » 25 Mai 2021 20:02

Bonjour Fabrice,

Il y a une erreur dans la définition de ton point A = [0,0,2*vecK] car vecK est déjà un vecteur !
Code: Tout sélectionner
[
        view(-7,7,-6,6),Marges(0,0,0,0),size(8),
        view3D(-5,5,-5,5,-5,5),
        A:=M(0,0,5), B:=M(-2,2,0),C:=M(2,-2,0),
        H:=M(0,0,0),
        p:=[H,vecK],
        D:=Copy(getplan(p),3,2),
           Build3D(
            bdPlan(p,[color:=white, opacity:=1,border:=1,
                   width=12, contrast:=0,scale:=1]),
            bdLine([B,C] ,[color:=black, arrows:=0, width:=12,]),
            bdLine([A-11*vecK,A] ,[hidden:=1,scale:=1.1,color:=firebrick,
                     arrows:=0, width:=12]),
            bdAngleD(H+vecK,H,C, 0.5, [color:=navy]),
            bdLabel(A,"$A$",[labelpos:=[0.3,0.5*i]]),
            bdDot(H, [dir:=[vecI+vecJ,-vecI],dotstyle:=cross,dotscale:=2]),
            bdDot(A, [dir:=[vecI+vecJ,-vecI],dotstyle:=cross,dotscale:=2]),
           ),
            Display3D(),
            draw("label",
              "$\mathscr{P}$", [anchor:=Proj3D(D), labeldir:=[0.7,1.5+i/2]],
              "$H$",[anchor:=Proj3D(H+vecK), labeldir:="SE",labelsep:=0.1],
            ),
        ]


FabPlan25-05.png
FabPlan25-05.png (10.28 Kio) Consulté 3518 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Figures de l'espace : marquage d'un point

Messagepar Fabrice » 25 Mai 2021 21:06

Bonsoir Patrick,
L'erreur (d'inattention) est tellement grossière que je n'ai pas pensé à regarder de ce côté là ! Sinon, le code est correct ou peut-il être amélioré ?
Merci.
Fabrice
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22


Revenir vers Questions - Réponses

Qui est en ligne ?

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

cron