TEMPO

A_{1}: (16, 2, 5)
A: (6, -2, -5)
v_{1} = Vector((0, 0, 0), A)
A_{2}: (2, 4, -27)
B: (1, 2, -2)
v_{2} = Vector((0, 0, 0), B)
w = Vector(A_{1}, A_{2})
delta: abs(((v_{1} ⊗ v_{2}) * w)) / sqrt(((v_{1} ⊗ v_{2}) * (v_{1} ⊗ v_{2})))
d_{1} = Line(A_{1}, v_{1})
d_{2} = Line(A_{2}, v_{2})
P_{1} = OrthogonalPlane(A_{1}, Vector[v_{1} ⊗ v_{2}])
P_{2} = OrthogonalPlane(A_{2}, Vector[v_{1} ⊗ v_{2}])
n: v_{1} ⊗ v_{2}
P = OrthogonalPlane(A_{1}, Vector[v_{1} ⊗ n])
I = Intersect(d_{2}, P)
d = Line(I, n)