Je veux représenter un tétraèdre régulier et sa hauteur. L'idée de départ était de créer une liste des sommets et de les "récupérer" (S[0],S[1],...). Je n'ai pas réussi !
- Code: Tout sélectionner
[view(-6,4,-2,5),view3D(-5,5,-5,5,-5,5), Marges(0,0,0,0),size(10),
a:=6,h:=sqrt(2/3)*a,
S:=[for k from 0 to 2*pi step 2*pi/3 do [a*exp(i*k),0] od,[0,0,h]],//liste des sommets
a:=6,h:=sqrt(2/3)*a,
A:=M(0,a,0),B:=rot3d(A,[M(0,0,0),vecK],2*pi/3),
C:=rot3d(B,[M(0,0,0),vecK],2*pi/3),D:=M(0,0,h),
T:=Tetra(A,B-A,C-A,D-A),
G:=(A+B+C)/3,
hiddenLines:=1,HideStyle:=userdash,
Build3D(
bdFacet(T,[border:=1, color:=slategray,contrast:=0.1]),
bdLine([D,G])
),
Display3D(),
]
Merci,
Fabrice