vb.net曲线求交点,曲线与曲线的交点怎么求

VB求曲线交点

这两个线型都不难，建议使用二元二次方程组就能搞定，用VB解二元二次方程组应该会用吧。

VB中怎么求两直线交点坐标

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

vb 求两圆交点，已知两圆半径何圆心位置，如何求其交点

如图，方法一，根据圆的半径个位置写出圆的方程，联立求交点，不过这种方法交点的最终表达式不容易推导

方法2，两个圆的方程相减得到直线CD的方程，CD方程与AB方程联立求出交点E，在以E为起始点写CD的参数方程，参数方程的x，Y带入任意一个圆中就能求出参数t，从而求出c d的坐标

VB.NET 一次函数求横坐标

不是已经回答了吗？

运行界面如下图：

在对应的文本框里输入对应的坐标值，单击【计算】，结果将显示在下面一个文本框里，完整代码如下：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim x2, y2, x3, y3, x4, y4, x5, y5 As Single

        Dim L As Single

        x2 = Val(TextBox2.Text)

        y2 = Val(TextBox3.Text)

        x3 = Val(TextBox4.Text)

        y3 = Val(TextBox5.Text)

        x4 = Val(TextBox6.Text)

        y4 = Val(TextBox7.Text)

        '求点P3(x3,y3)与点P4(x4,y4)的直线方程；

        '(X-x4)/(x3-x4) = (Y-y4)/(y3-y4) ......(1)

        '求过点P2(x2,y2)的水平直线方程为；

        'Y = y2 ......(2)

        '方程(1)(2) 联立可以求出两条直线的交点(x5,y5)

        '由此得到交点坐标为：

        x5 = (y2 - y3) * (x4 - x3) / (y4 - y3) + x3

        y5 = y2

        '求点P2(x2,y2)与点P5(x5,y5)之间的距离

        '根据两点之间距离公式有；

        L = ((x2 - x5) ^ 2 + (y2 - y5) ^ 2) ^ 0.5

        TextBox1.Text = L

    End Sub

End Class