VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线(类似y=ax+b).并把这个方程计算并显示出来.希望把流程也介绍一下(一开始建立什么控件,如何使用控件).本人
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 07:35:05
![VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线(类似y=ax+b).并把这个方程计算并显示出来.希望把流程也介绍一下(一开始建立什么控件,如何使用控件).本人](/uploads/image/z/8474033-65-3.jpg?t=VB%E6%9C%80%E5%B0%8F%E4%BA%8C%E4%B9%98%E6%B3%95%E6%8B%9F%E5%90%88%E7%9B%B4%E7%BA%BF%E8%BE%93%E5%85%A5%E5%87%A0%E4%B8%AA%E7%82%B9%E7%9A%84%E6%A8%AA%E5%9D%90%E6%A0%87%E5%92%8C%E7%BA%B5%E5%9D%90%E6%A0%87%2C%E7%94%A8%E6%9C%80%E5%B0%8F%E4%BA%8C%E4%B9%98%E6%B3%95%E6%8B%9F%E5%90%88%E5%87%BA%E7%9B%B4%E7%BA%BF%EF%BC%88%E7%B1%BB%E4%BC%BCy%3Dax%2Bb%EF%BC%89.%E5%B9%B6%E6%8A%8A%E8%BF%99%E4%B8%AA%E6%96%B9%E7%A8%8B%E8%AE%A1%E7%AE%97%E5%B9%B6%E6%98%BE%E7%A4%BA%E5%87%BA%E6%9D%A5.%E5%B8%8C%E6%9C%9B%E6%8A%8A%E6%B5%81%E7%A8%8B%E4%B9%9F%E4%BB%8B%E7%BB%8D%E4%B8%80%E4%B8%8B%EF%BC%88%E4%B8%80%E5%BC%80%E5%A7%8B%E5%BB%BA%E7%AB%8B%E4%BB%80%E4%B9%88%E6%8E%A7%E4%BB%B6%2C%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8%E6%8E%A7%E4%BB%B6%EF%BC%89.%E6%9C%AC%E4%BA%BA)
VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线(类似y=ax+b).并把这个方程计算并显示出来.希望把流程也介绍一下(一开始建立什么控件,如何使用控件).本人
VB最小二乘法拟合直线
输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线(类似y=ax+b).并把这个方程计算并显示出来.希望把流程也介绍一下(一开始建立什么控件,如何使用控件).本人比较菜,望高手不吝赐教!
VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线(类似y=ax+b).并把这个方程计算并显示出来.希望把流程也介绍一下(一开始建立什么控件,如何使用控件).本人
稍等好吗?
好了,但愿没有耽误你!代码如下(注意不用任何控件即可):
Private Sub Form_click()
Dim N As Integer,U() As Double,I As Integer
Dim A As Single,B As Single
Form1.Cls
Print "数据:";
N = Val(InputBox("原始数据个数","输入",7))
If N = 0 Then Print " + ";
Print B; "x"
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Caption = "最小二乘法拟合程序"
Print
Print "本程序执行的顺序为:"
Print "1、输入数据数量;"
Print "3、逐个输入各组数据;"
Print "2、输出拟合公式."
Print
Print "特别说明:本程序不用任何控件!只要把窗口拉的足够大就行了."
Print
Form1.Print "单击窗体开始..."
End Sub
已经运行过.