Page 1 sur 1

Figures de l'espace : marquage d'un point

MessagePublié: 25 Mai 2021 19:00
par Fabrice
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

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

MessagePublié: 25 Mai 2021 20:02
par P.Fradin
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é 3517 fois

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

MessagePublié: 25 Mai 2021 21:06
par Fabrice
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