A1 = $V [0,2,-1]
u1 = $V [1,2,3]
D1 = $L A1, u1
A2 = $V [1,0,2]
u2 = $V [1,-2,0]
D2 = $L A2, u2
A2 = $V [-1,4,2]
v = $V [-6,-3,4]
Δ1 = $L A1, v
Δ2 = $L A2, v
n = $V [17,-22,9]
P1 = $P (Δ1.intersectionWith D1), n
P2 = $P (Δ2.intersectionWith D2), (u2.cross v)
Δ = P1.intersectionWith P2
affiche Δ.direction.isPerpendicularTo D1.direction
affiche Δ.direction.isPerpendicularTo D2.direction