资源描述:
《汽车测试基础一元线性非线性回归.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、下面的代码能求出求出线性方程:一元线性:PrivateSubCommand1_Click()Fori=0To7a=Array(1,3,8,10,13,15,17,20)Text1(i)=a(i)NextiForj=0To7b=Array(7.5,10.1,14.8,17.5,20.2,22.4,25.1,27.6)Text2(j)=b(j)NextjEndSubPrivateSubCommand2_Click()Picture1.Scale(-2,30)-(30,-2)Picture1.Line(-30,0)-(30,0)Picture1.Line(0,30)-(0,-30)Pi
2、cture1.DrawWidth=3Fori=0To7X1=Text1(i)Y1=Text2(i)Picture1.PSet(X1,Y1),vbBlueNextiEndSubPrivateSubCommand3_Click()Forj=0To7sumX=sumX+Val(Text1(j))sumY=sumY+Val(Text2(j))NextjaveX=sumX/8aveY=sumY/8Fori=0To7Lxx=Lxx+(Text1(i)-aveX)^2Lxy=Lxy+(Text1(i)-aveX)*(Text2(i)-aveY)Nextib=Lxy/Lxxa=aveY-b*av
3、eXb=Format(b,"0.00")a=Format(a,"0.00")Text3.Text="Y"+"="+Str(a)+"+"+Str(b)+"X"Picture1.Line(Text1(0),a+b*Text1(0))-(Text1(7),a+b*Text1(7)),vbGreenEndSub非线性:PrivateSubCommand1_Click()Fori=0To10a=Array(11,13,15,18,20,23,25,28,30,32,35)Text1(i)=a(i)NextiForj=0To10b=Array(45,34,30,26,23,20.2,23,1
4、9,18,17.6,15)Text2(j)=b(j)NextjEndSubPrivateSubCommand2_Click()Picture1.Scale(-4,50)-(50,-8)Picture1.Line(-50,0)-(50,0):Picture1.Line(0,50)-(0,-50)Picture1.DrawWidth=5Fori=0To10Picture1.PSet(Text1(i),Text2(i)),vbBlueNextiPicture1.DrawWidth=2Fori=0To9Picture1.Line(Text1(i),Text2(i))-(Text1(i+1
5、),Text2(i+1)),vbYellowNextiEndSubPrivateSubCommand3_Click()Fori=0To10sumX=sumX+1/Val(Text1(i))sumY=sumY+1/Val(Text2(i))NextiaveX=sumX/11aveY=sumY/11Forj=0To10Lxx=Lxx+(1/Val(Text1(j))-aveX)^2Lxy=Lxy+(1/Val(Text1(j))-aveX)*(1/Val(Text2(j))-aveY)Nextjb=Lxy/Lxxa=aveY-b*aveXText3.Text="1/Y"+"="+St
6、r(Format(a,"0.00"))+Str(Format(b,"0.00"))+"*1/X"Picture1.DrawWidth=2Fori=10To40Step0.01Picture1.PSet(i,1/(a+b/i))NextiEndSub