Vector Division

''' ---------------
''' Return the cross product of two 3D vectors
''' ---------------
Public Function VectorCrossProduct(v1, v2)

VectorCrossProduct = Null
Dim x, y, z
x = v1(YY) * v2(ZZ) - v1(ZZ) * v2(YY)
y = v1(ZZ) * v2(XX) - v1(XX) * v2(ZZ)
z = v1(XX) * v2(YY) - v1(YY) * v2(XX)
VectorCrossProduct = Array(x, y, z)

End Function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License