Je cherche à reproduire le plus fidèlement possible la troisième figure.
Comme tu peux le constater, ce n'est pas tout à fait cela.
- Code: Tout sélectionner
[//command
view(-8,8,-7,7),Marges(0,0,0,0),size(8),
view3D(-5,5,-5,5,-5,5),
A:=M(0,0,4), B:=M(0,-2,4),C:=M(-1,-4,0),
H:=M(0,0,0),
p:=[H,vecK],
q:=[H,vecJ],
D:=Copy(getplan(p),1,2),
E:=Copy(getplan(q),5,2),
d:=interPP(p,q),
hiddenLines:=0,HideStyle:=userdash,
Build3D(
bdPlan(p,[color:=aqua, opacity:=0.5,border:=1,bordercolor:=darkblue,
width=12,contrast:=0,scale:=1]),
bdPlan(q,[color:=tomato, opacity:=0.5,border:=1,bordercolor:=red,
width=12, contrast:=0,scale:=1]),
bdDroite(d,[color:=darkblue,linestyle:=dashed,opacity:=0.5]),
bdLine([A,B] ,[color:=firebrick, arrows:=1, width:=10]),
bdLine([C,C+vecK] ,[color:=firebrick, arrows:=1, width:=10]),
),
Display3D(),
draw("label",
"$\vv{n_1}$",[anchor:=Proj3D(B+0.5*vecK), labeldir:="B",
labelsep:=0.1,Color:=firebrick],
"$\vv{n_2}$",[anchor:=Proj3D(1.15*C+0.5*vecK), labeldir:="C",
labelsep:=0.1,Color:=firebrick],
"$\mathscr{P}_1$", [anchor:=Proj3D(D), labeldir:=[0.7,1.5+i/2],
Color:=blue],
"$\mathscr{P}_2$", [anchor:=Proj3D(E), labeldir:=[1.1,1.5+5*i],
Color:=red],
),
]
Merci pour ton aide.
Fabrice