SP_LP_Geraden2P(g11, g12, g21, g22, LP)
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