VB3D数学初步.docVIP

VB3D数学初步 Option Explicit 3D数学基础 Public Function Vpp(P1 As D3DVECTOR, P2 As D3DVECTOR) As D3DVECTOR 空间矢量计算 Vpp.x = P2.x - P1.x Vpp.y = P2.y - P1.y Vpp.z = P2.z - P1.z End Function Public Function Vcross(V1 As D3DVECTOR, V2 As D3DVECTOR) As D3DVECTOR 空间矢量积 Vcross.x = V1.y * V2.z - V2.y * V1.z Vcross.y = V1.z * V2.x - V2.z * V1.x Vcross.z = V1.x * V2.y - V2.x * V1.y End Function Public Function VDot(V1 As D3DVECTOR, V2 As D3DVECTOR) As Single 空间矢量的数量积 VDot = V1.x * V2.x + V2.y * V1.y + V2.z * V1.z End Function Public Function ZhiXianShangDian(P1 As D3DVECTOR, P2 As D3DVECTOR, tD As Single) As D3DVECTOR 3D直线上的点 Dim XQ As Single, YQ As Single, ZQ As Single Dim D As Single D = PointToPointJuli3D(P1, P2) XQ = (P2.x - P1.x) / D YQ = (P2.y - P1.y) / D ZQ = (P2.z - P1.z) / D ZhiXianShangDian.x = P1.x + tD * XQ ZhiXianShangDian.y = P1.y + tD * YQ ZhiXianShangDian.z = P1.z + tD * ZQ End Function Public Function ZhiXianORPingMianJiaoDian(PL1 As D3DVECTOR, PL2 As D3DVECTOR, PL3 As D3DVECTOR, P1 As D3DVECTOR, P2 As D3DVECTOR, OutP As D3DVECTOR) As Long 直线与平面的交点 Dim tPLe As Single, tPLpl As D3DPLANE, tPlv As D3DVECTOR Dim tPv As D3DVECTOR Dim tT As Single D3DXPlaneFromPoints tPLpl, PL1, PL2, PL3 tPlv = D3DVec(tPLpl.a, tPLpl.b, tPLpl.c) tPv = Vpp(P1, P2) tPLe = VDot(tPlv, tPv) ZhiXianORPingMianJiaoDian = 0 If Abs(tPLe) 0 Then tT = -(VDot(tPlv, P1) + tPLpl.D) / tPLe OutP = Ppvt(P1, tPv, tT) ZhiXianORPingMianJiaoDian = 1 End If End Function Public Function Ppvt(P1 As D3DVECTOR, v0 As D3DVECTOR, T As Single) As D3DVECTOR 射线上的点 Ppvt.x = P1.x + v0.x * T Ppvt.y = P1.y + v0.y * T Ppvt.z = P1.z + v0.z * T End Function Public Function DianSanJiaoXingNeiWai(P1 As D3DVECTOR2, P2 As D3DVECTOR2, P3 As D3DVECTOR2, m1 As D3DVECTOR2) As Long 点是否在三角形内??????????????????????????????????????????????????? Dim t1 As Single, t2 As