一:向量叉积
设两个点P(x1,y1,z1),Q(x2,y2,z2)
叉积PxQ=(y1z2-y2z1,x2z1-x1z2,x1y2-x2y1)
代码实现(vb.net封成一个函数):
Private Function Cross(ByVal Mat4() As Double, ByVal Mat5() As Double)
Dim Mat6() As Double
Mat6 = {Mat4(1) * Mat5(2) - Mat5(1) * Mat4(2), Mat4(2) * Mat5(0) - Mat4(0) * Mat5(2), Mat4(0) * Mat5(1) - Mat5(0) * Mat4(1)}
Return Mat6
End Function
二:向量叉积的模
向量积的模=两向量组成的平行四边形面积
|PxQ|= sqrt((x1y2-x2y1)^2+(y1z2-y2z1)^2+(z1x2-z2x1)^2)