资源描述：
《汽车测试基础-实验报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、西华大学实验报告1、实验目的1.1一元线性回归方程的求解。1.2回归直线的显著性检验2、实验设备、仪器及材料2.1CPUPIII1000HZ,内存64MBRAM，1G硬盘空间计算机；2.2安装VisualBasic6.0；3、实验内容3.1实验方案设计与选择由于数据少，课件爱那个数据保存在两个数组中，然后利用循环语句，对应数据在自定义用户坐标系上进行描点，连线，进行分析。针对实验要求的线性回归，也可利用循环结构，对数组中保存的数据进行累加操作，得到计算线性回归方程的系数，并依此画出拟合直线。3.2实验原理及实验步骤实验原理：利用VB面对对象，语法简
2、单，结构易学，运行速度快的特点，根据最小二乘法公式，对数据进行循环处理。然后利用VB中的画线函数，绘制拟合直线。由于线性回归过程简单，变量类型均为局部变量。实验步骤：1、在VB程序中，将原始数据用二维XY图绘制出来；X1381013151720Y7.510.114.817.520.222.425.127.62、观察其是否近似为直线关系，如果是，则利用一元线性回归分析进行直线拟合，y＝a+bx；3、利用最小二乘法，计算a，b参数；4、在图中适当位置，标出拟合后的直线方程；5、采用相关系数检验进行回归直线的显著性检验20currencydeposit,
3、weprescribeapassonaregularbasis,qilucardaccountonaregularbasis),certificatebondsandsavingsbonds(electronic);3.notdrawnonabanksavingscertificate,certificatebondsapplyformortgageloans,acceptingonlythelender第页西华大学实验报告3.3实验记录（核心代码及调试过程）描点的按钮代码如下：PrivateSubCommand1_Click()Dimx1AsSi
4、ngle,y1AsSingleDimxAsVariant,yAsVariantx=Array(1,3,8,10,13,15,17,20)y=Array(7.5,10.1,14.8,17.5,20.2,22.4,25.1,27.6)Picture1.Scale(-1,30)-(35,-1)Picture1.Line(0,29)-(0,-1)Picture1.Line(34,0)-(-1,0)Fori=1To8x1=x(i)y1=y(i)Picture1.Circle(x1,y1),0.2,vbRedNextiEndSub按下描点按钮后运行结果如图：一
5、元线性回归按钮的代码如下：PrivateSubCommand2_Click()DimxAsVariant,yAsVariantx=Array(1,3,8,10,13,15,17,20)y=Array(7.5,10.1,14.8,17.5,20.2,22.4,25.1,27.6)Fori=1To8m1=m1+x(i)*y(i)m2=m2+x(i):m3=m3+y(i)20currencydeposit,weprescribeapassonaregularbasis,qilucardaccountonaregularbasis),certificate
6、bondsandsavingsbonds(electronic);3.notdrawnonabanksavingscertificate,certificatebondsapplyformortgageloans,acceptingonlythelender第页西华大学实验报告m4=m4+x(i)*x(i)m5=m5+y(i)*y(i)Nextib1=(m1-m2*m3/8):b2=m4-m2*m2/8:b3=m5-m3*m3/8b=b1/b2a=m3/8-b*m2/8r=b*Sqr(b2/b3)Text1.Text="a="&aText2.Tex
7、t="b="&bText3.Text="r="&rFori=0To20Step0.01x1=iy1=a+b*x1Picture1.PSet(x1,y1)NextiPicture1.Print"y=bx+a"EndSub按下一元线性回归按钮运行结果如图：20currencydeposit,weprescribeapassonaregularbasis,qilucardaccountonaregularbasis),certificatebondsandsavingsbonds(electronic);3.notdrawnonabanksavingsc
8、ertificate,certificatebondsapplyformortgageloans,acceptingonl
