Difference between revisions of "CrossProduct"
From scripting
(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...") |
(No difference)
|
Latest revision as of 05:19, 22 April 2017
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