Du weißt, dein Tag wird anstregend, wenn dir schon am frühen Morgen sowas unter die Linse kommt:
Sub SP_LP_Geraden2P(g11, g12, g21, g22, LP)
Dim VD1(2)
Dim VD2(2)
Dim VD3(2)
Dim VD4(2)
Dim n11(2)
Dim n12(2)
Dim n21(2)
Dim n22(2)
Dim M1(11)
Dim M2(11)
Dim M3(11)
Dim M4(11)
Dim lp0
Dim dval As Double
Dim lpM(2)
'#--------------------------------------------------------------------------------------
'#--------------------------------------------------------------------------------------
VSubDir g12, g11, VD1
VSubDir g22, g21, VD2
VDot VD1, VD2, dval
If dval > 0.99999 Then
MsgBox "Vektoren parallel"
LP(0) = g12(0)
LP(1) = g12(1)
LP(2) = g12(2)
Else
VCross VD1, VD2, VD3
VCross VD3, VD1, VD4
M43FillV3 VD1, VD4, VD3, g11, M1
M43Inv M1, M2
M43_V3mult g11, M2, n11
M43_V3mult g12, M2, n12
M43_V3mult g21, M2, n21
M43_V3mult g22, M2, n22
V2GcutX n21(0), n21(1), n22(0), n22(1), lp0
lpM(0) = lp0
lpM(1) = 0
lpM(2) = n22(2)
M43_V3mult lpM, M1, LP
End If
End Sub
So und ähnlich geht das seitenweise weiter 