资源描述：
《汽车测试基础-实验报告封面模版-实验报告填写要求》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、实验报告（理工类）开课学院及实验室:计算机实验室实验时间:学生姓名学号实验成绩课程名称汽车测试基础课程代码实验项目名称一元线性回归分析项目代码指导教师项目学分实验课考勤实验工作表现实验报告=实验目的1.一元线性冋归方程的求解;2.回归直线的显著性检验；=实验设备、仪器及材料1.CPUP1I11000HZ,内存64MBRAM,1G硬盘空间计算机;2.安装VisualBasic6.0；3、实验内容3.1实验原理及实验步骤（实验工作原理或实验的主要操作过程）1.在VB程序屮，讲原始数据用二维XY图绘制出来；X13810131517
2、20y7.510.114.817.520.222.425.127.62.观察其是否近似为直线关系，如果是，则利用一元线性冋归分析进行直线拟合，yw+bx;3.利用最小二乘法，计算a,b参数；n—_nInn和兀⑷（］/卫）,0/怙,0,弘N—21AT2仆抚）旅诘G占）a=t/1bx4.在图屮适当位置，标出拟合直线方程；1.采用相关系数检验进行冋归直线的显著性检验。1.2实验记录(核心代码及调试过程〉1•程序主界面设计图1程序主界面相关代码：PrivateSub一元非线性回归分析Click()Form2・ShowEndSubPr
3、ivateSub一元线性回归分析_Click()Forml.ShowEndSub2.—元线性冋归分析界面设计&元线性回归分析元3胡性0归分析赋初值一元线性回归图2元线性回归界面3.赋初值$—元老庄回芒分产一元芸线三叵日分析就初值描点一元线性目归图3赋初值后的界血command1下相关代码：PrivateSubCommandl_Click()Textl(l)=3Text1(2)=8Textl(3)=10Text1(4)=13Text1(5)=15Text1(6)=17'为text2控件数组赋值Textl(7)=20Text2(
4、0)=7.5Text2(l)=10.1Text2(2)=14.8Text2(3)=17.5Text2(4)=20.2Text2(5)=22.4Text2(6)=25.1Text2(7)=27.6EndSub4.描点，连线MDIForml-［一元线性©归］图4描点连线后的界面Command2下相关代码：PrivateSubCommand2_Click()Picturel.Scale(-2,30)-(30,-2)给出用户坐标系统的左上角与右下角Picturel.Line(-30,0)-(30,0):Picturel.Line(0
5、,30)-(0,-30)画出坐标轴Picturel.DrawWidth=3改变描点大小Fori=0To7Picturel.PSet(Textl(i),Text2(i))描点NextiPicturel.DrawWidth=1Fori=0To6Picturel.Line(Textl(i),Text2(i))-(Textl(i+1),Text2(i+1))画线NextiEndSub5.一元线性冋归分析Command3下相关代码:PrivateSubCommand3_Click()sumX=sumX+Vai(Textl(j))sum
6、Y=sumY+Vai(Text2(j))NextjaverX=sumX/8averY=sumY/8Forj=0To7Lxx=Lxx+(Textl(j)•-averX)・2Lxy=Lxy+(Textl(j)--averX)*(Text2(j)--averY)Lyy二Lyy+(Text2(j)--averY)*(Text2(j)--averY)Nextjb=Lxy/Lxxa=averY一b*averXPicturel.Line(Text1(0),a+b*Textl(0))-(Textl(7),a+b*Textl(7)),RGB(
7、255,0,0)r=b*(Lxx/Lyy)'(1/2)Picture2.Print"回归直线显著性检验："Picture2.Print"其系数r•二"&rIfr>0.5ThenLine(Textl(0),a+b*Text1(0))-(Text1(7),a+b*Textl(7))Picture2.Print近似为线性，符合要求"ElsePicture2.Print"近似为线性，符合要求"EndIfEndSub4、实验总结4.1实验结果分析及问题讨论1、a,b参数的计算公式是怎么得出的答：在误差理论中最小二乘法的基本含义是：在具
8、有等精度的多次测量中，求最可信值时，是当各测量值的偏差平方和为最小值时所求得的值。根据上述原理，用最小二乘法对测量数据进行线性拟合时，是把所有测量数据点都标在坐标图上，用最sumX=sumX+Vai(Textl(j))sumY=sumY+Vai(Text2(j))NextjaverX=su
