VB中怎么求两直线交点坐标没告诉直线方程,而是只告诉4个坐标,即两个坐标对应一条直线,在这种情况下,怎么求这两条直线的交点?

Question

VB中怎么求两直线交点坐标
没告诉直线方程,而是只告诉4个坐标,即两个坐标对应一条直线,在这种情况下,怎么求这两条直线的交点?

Answer 1

Public Sub Lpp(x1#,y1#,x2#,y2#,a#,b#,c#) '两点求直线
'输入：直线上两[端]点
'输出：直线的一般式的参数a,b,c
a = y2 - y1
b = x1 - x2
c = -a * x1 - b * y1
End Sub
Public Sub Pll(a1#,b1#,c1#,a2#,b2#,c2#,x#,y#) '两直线交点
'输入：两直线一般式的参数
'输出：点的坐标,存于变量x,y中
dlt = a1 * b2 - a2 * b1
dx = c1 * b2 - c2 * b1
dy = a1 * c2 - a2 * c1
If (Abs(dlt) < 0.0000000001) Then
If (Abs(dx) < 0.0000000001 And Abs(dy < 0.0000000001)) Then
x = 1E+20
y = 1E+20
Else
x = -1E+20
y = -1E+20
End If
Else
x = -dx / dlt
y = -dy / dlt
End If
End Sub