inters α-β

$ \vec n_γ $

M*

inters γ-δ

C''' = 3 (slider from -5 to 5, step 0.1)
B''' = -2 (slider from -5 to 5, step 0.1)
A''' = 2 (slider from -5 to 5, step 0.1)
C'' = 2 (slider from -5 to 5, step 0.1)
B'' = -1.5 (slider from -5 to 5, step 0.1)
A'' = 1.6 (slider from -5 to 5, step 0.1)
D'' = 2 (slider from -5 to 5, step 0.1)
γ: (A'' * x) + (B'' * y) + (C'' * z) + D'' = 0
D''' = 2 (slider from -5 to 5, step 0.1)
δ: (A''' * x) + (B''' * y) + (C''' * z) + D''' = 0
D' = 5 (slider from -5 to 5, step 0.1)
D = -4.7 (slider from -5 to 5, step 0.1)
B = -1.1 (slider from -5 to 5, step 0.1)
A = 4.1 (slider from -5 to 5, step 0.1)
C = 2.4 (slider from -5 to 5, step 0.1)
A' = 1.5 (slider from -5 to 5, step 0.1)
B' = 0.5 (slider from -5 to 5, step 0.1)
C' = 2.3 (slider from -5 to 5, step 0.1)
β: (A' * x) + (B' * y) + (C' * z) + D' = 0
α: (A * x) + (B * y) + (C * z) + D = 0
r = IntersectPath(α, β)
n_α = OrthogonalVector(α)
n_β = OrthogonalVector(β)
n_γ = OrthogonalVector(γ)
M: {{A, B, C}, {A', B', C'}, {A'', B'', C''}, {A''', B''', C'''}}
rangM = MatrixRank(M)
M': {{A, B, C, D}, {A', B', C', D'}, {A'', B'', C'', D''}, {A''', B''', C''', D'''}}
rangM' = MatrixRank(M')
s = IntersectPath(γ, δ)
P = Intersect(r, s)
O = Intersect(yAxis, xAxis)
a = Line(O, r)
b = Line(O, s)
θ = Angle(a, b)