M, projeté orthogonal de K sur (BDG)

Déplacer K pour que 
le volume du tétraèdre, nommé p,
soit égal à la moitié 
de celui du cube, nommé c.
Observer les coordonnées 
de K et de M.

On se place dans le repère 

(A;\vec{AB}, \vec{AD},\vec{AE})

A = (0, 0, 0)
B = (1, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
c, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
b = Ray(A, E)
K = Point(b)
BDG, d, g, b_1 = Polygon(G, B, D)
p, faceBGK, faceBDK, faceDGK, arêteGK, arêteBK, arêteDK = Pyramid(BDG, K)
a = OrthogonalLine(K, BDG)
e = false
f = Plane(B, D, G)
M = Intersect(a, f)