两条直线的交点
直线方程一般式：A1x+B1y+C1=0
直线方程一般式：A2x+B2y+C2=0

求解二元一次方程组的问题

没有解，两条直线平行
无数解，两条直线重合
一个解，两条直线相交

用代入法求解

X = (B1 * C2 - B2 * C1) / (B2 * A1 - B1 * A2)
Y = (A1 * C2 - A2 * C1) / (A2 * B1 - A1 * B2)

Public Shared Function 直线与直线的交点_2D(ByVal A1 As Double, ByVal B1 As Double, ByVal C1 As Double, _
                              ByVal A2 As Double, ByVal B2 As Double, ByVal C2 As Double) As Point2d
            If A1 = 0 And B1 = 0 Then Exit Function 'A1 B1 不能同时为零
            If A2 = 0 And B2 = 0 Then Exit Function 'A1 B1 不能同时为零
            Dim K1 As Double ' 直线1的斜率
            Dim K2 As Double ' 直线2的斜率

            Dim X As Double
            Dim Y As Double

            If B1 * B2 <> 0 Then
                K1 = -A1 / B1
                K2 = -A2 / B2
                If K1 = K2 Then
                    'Exit Function '两条直线平行
                    Return Nothing
                Else
                    X = (B1 * C2 - B2 * C1) / (B2 * A1 - B1 * A2)
                    Y = (A1 * C2 - A2 * C1) / (A2 * B1 - A1 * B2)
                End If
            ElseIf B1 = 0 Then
                X = (B1 * C2 - B2 * C1) / (B2 * A1 - B1 * A2)
                Y = (A1 * C2 - A2 * C1) / (A2 * B1 - A1 * B2)
            ElseIf B2 = 0 Then
                X = (B1 * C2 - B2 * C1) / (B2 * A1 - B1 * A2)
                Y = (A1 * C2 - A2 * C1) / (A2 * B1 - A1 * B2)
            ElseIf B1 = 0 And B2 = 0 Then
                'B1 B2 同时为零
                'Exit Function '两条直线平行
                Return Nothing
            End If
            Return New Point2d(X, Y)
End Function

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：3*5=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情