CrossProduct

From scripting
Revision as of 05:19, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function CrossProduct(PtAx As Double, PtAy As Double, PtAz As Double, PtBx As Double, PtBy As Double, PtBz As Double, PtCx As Double, PtCy As Double, PtCz As Double) As Varia...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function CrossProduct(PtAx As Double, PtAy As Double, PtAz As Double, PtBx As Double, PtBy As Double, PtBz As Double, PtCx As Double, PtCy As Double, PtCz As Double) As Variant 
Dim Vec1()
ReDim Vec1(2)
Dim Vec2()
ReDim Vec2(2)
Vec1(0) = PtAx - PtBx
Vec1(1) = PtAy - PtBy
Vec1(2) = PtAz - PtBz
Vec2(0) = PtCx - PtBx
Vec2(1) = PtCy - PtBy
Vec2(2) = PtCz - PtBz
'Ax As Double, Ay As Double, Az As Double, Bx As Double, By As Double, Bz As Double
Dim CrossArr()
ReDim CrossArr(2)
CrossArr(0) = Vec1(1) * Vec2(2) - Vec2(1) * Vec1(2)
CrossArr(1) = Vec1(2) * Vec2(0) - Vec2(2) * Vec1(0)
CrossArr(2) = Vec1(0) * Vec2(1) - Vec2(0) * Vec1(1)
CrossProduct = CrossArr
End Function