汽车测试基础-实验报告封面模版-实验报告填写要求.doc

实验报告（理工类） 开课学院及实验室： 计算机实验室 实验时间： 学 生 姓 名 学 号 实 验 成 绩 课 程 名 称 汽车测试基础 课 程 代 码 实验项目名称 一元线性回归分析 项 目 代 码 指 导 教 师 项 目 学 分 实验课考勤 实验工作表现 实验报告 实验目的 一元线性回归方程的求解； 回归直线的显著性检验； 实验设备、仪器及材料 CPUPIII1000HZ,内存64MB RAM，1G硬盘空间计算机； 安装Visual Basic 6.0； 3、实验内容 3.1实验原理及实验步骤（实验工作原理或实验的主要操作过程） 1.在VB程序中，讲原始数据用二维XY图绘制出来； X 1 3 8 10 13 15 17 20 y 7.5 10.1 14.8 17.5 20.2 22.4 25.1 27.6 2.观察其是否近似为直线关系，如果是，则利用一元线性回归分析进行直线拟合，y=a+bx; 利用最小二乘法，计算a，b参数； b= a= 在图中适当位置，标出拟合直线方程； 采用相关系数检验进行回归直线的显著性检验。 r=b 3.2实验记录（核心代码及调试过程） 1.程序主界面设计 图1 程序主界面 相关代码： Private Sub 一元非线性回归分析_Click() Form2.Show End Sub Private Sub 一元线性回归分析_Click() Form1.Show End Sub 2．一元线性回归分析界面设计 图2 一元线性回归界面 3．赋初值 图3 赋初值后的界面 command1下相关代码： Private Sub Command1_Click() Text1(0) = 1 ‘为text1控件数组赋值 Text1(1) = 3 Text1(2) = 8 Text1(3) = 10 Text1(4) = 13 Text1(5) = 15 Text1(6) = 17 Text1(7) = 20 Text2(0) = 7.5 ‘为text2控件数组赋值 Text2(1) = 10.1 Text2(2) = 14.8 Text2(3) = 17.5 Text2(4) = 20.2 Text2(5) = 22.4 Text2(6) = 25.1 Text2(7) = 27.6 End Sub 4．描点，连线 图4 描点连线后的界面 Command2下相关代码： Private Sub Command2_Click() Picture1.Scale (-2, 30)-(30, -2) 给出用户坐标系统的左上角与右下角 Picture1.Line (-30, 0)-(30, 0): Picture1.Line (0, 30)-(0, -30) 画出坐标轴 Picture1.DrawWidth = 3 改变描点大小 For i = 0 To 7 Picture1.PSet (Text1(i), Text2(i)) 描点 Next i Picture1.DrawWidth = 1 For i = 0 To 6 Picture1.Line (Text1(i), Text2(i))-(Text1(i + 1), Text2(i + 1)) 画线 Next i End Sub 5．一元线性回归分析 图5 直线拟合后的界面 Command3下相关代码： Private Sub Command3_Click() For j = 0 To 7 用最小二乘法计算a,b值 sumX = sumX + Val(Text1(j)) sumY = sumY + Val(Text2(j)) Next j averX = sumX / 8 averY = sumY / 8 For j = 0 To 7 Lxx = Lxx + (Text1(j) - averX) ^ 2 Lxy = Lxy + (Text1(j) - averX) * (Text2(j) - averY) Lyy = Lyy + (Text2(j) - av