geo-039-recta-perpenicular-a-dos

recta r

recta s

plano π

plano σ

vector n

solución

P_s: (1, -2, 0)
v_r: (1, 0, 0)
v_s: (2, 3, 0)
r = 0 (slider from 0 to 1, step 0.05)
A: (0, 0, 2)
AP_s = Vector(A, P_s)
P_r: (0, 2, 4)
AP_r = Vector(A, P_r)
s = 0 (slider from 0 to 1, step 0.05)
r_1 = Line(P_r, v_r)
plano_r = Plane(P_r, P_r + v_r, P_r + (r * AP_r) + ((1 - r) * v_s))
s_1 = Line(P_s, v_s)
plano_s = Plane(P_s, P_s + v_s, P_s + (s * AP_s) + ((1 - s) * v_r))
f = IntersectPath(plano_r, plano_s)
a = false
b = false
d = false
c = false