【文章內(nèi)容簡介】 = [∑Xi Yi (∑Xi ∑Yi)/ m] / [∑Xi2 (∑Xi)2 / m)] 　　(式19) 這時把a(bǔ)0、a1代入(式11)中, 此時的(式11)就是我們回歸的元線性方程即：數(shù)學(xué)模型。 在回歸過程中，回歸的關(guān)聯(lián)式是不可能全部通過每個回歸數(shù)據(jù)點(diǎn)(x1, y x2, y2...xm,ym),為了判斷關(guān)聯(lián)式的好壞,可借助相關(guān)系數(shù)“R”，統(tǒng)計量“F”，剩余標(biāo)準(zhǔn)偏差“S”進(jìn)行判斷；“R”越趨近于 1 越好；“F”的絕對值越大越好；“S”越趨近于 0 越好。 編程環(huán)境 Visual Basic + ADO + Microsoft Office Acess 2003詳細(xì)計算機(jī)算法和完整的程序清單調(diào)用界面數(shù)據(jù)表參數(shù)表x、y數(shù)值表程序窗口及代碼：調(diào)用程序窗口：（1）、dy窗體代碼：Private Sub Command1_Click() 39。調(diào)用最小二乘法模型程序 Shell (c:\jczcyzjxt\jczcxt\mx\zxecf\mbwj\) Dim strSQL As String Dim ADOrs As New Recordset Set = ADO 39。定義變量a,b，存放從cs表中得到的a,b字段的值 Dim a As Single, b As Single 39。等待最小二乘法模型程序執(zhí)行完畢 For i = 0 To 9999 strSQL = select * from cs strSQL a = ADOrs(a) b = ADOrs(b) If a 0 Then Exit For End If Next i 39。定義變量m,n，分別存放將a，b轉(zhuǎn)換為字符串后的值 Dim m, n As String m = CStr(a) n = CStr(b) 39。若m左側(cè)的第一個字符為.，則在第一個字符前加0 If Left(m, 1) = . Then m = 0 amp。 m End If 39。若n左側(cè)的第一個字符為.，則在第一個字符前加0 If Left(n, 1) = . Then n = 0 amp。 n End If 39。在文本框中顯示m,n的值 = m = n 39。讓文本框成為只讀 = False = FalseEnd Sub（2）、dymk公共模塊代碼39。聲明全局對象變量ADO，用于創(chuàng)建與數(shù)據(jù)庫的連接Public ADO As ConnectionPublic Sub Main() 39。定義數(shù)據(jù)庫連接字符型變量strAccess，并為其賦值，用以連接Access數(shù)據(jù)庫 Dim strAccess As String strAccess = Provider=。Data Source= c:\jczcyzjxt\jczcxt\sj\ 39。調(diào)用VB函數(shù)DoEvents，用于轉(zhuǎn)移系統(tǒng)控制權(quán) DoEvents 39。建立與數(shù)據(jù)庫的連接 Set ADO = New Connection 39。連接Access數(shù)據(jù)庫 strAccess 39。初始化cs表 strSQL = delete * from cs strSQL strSQL = insert into cs(a,b) values(0,0) strSQL 39。顯示主窗體 End Sub模型窗口（1）zxecf模塊窗口代碼：39。聲明全局對象變量ADO_mx，用于創(chuàng)建與數(shù)據(jù)庫的連接Public ADO_mx As ConnectionSub Main() 39。定義數(shù)據(jù)庫連接字符型變量strAccess，并為其賦值，用以連接Access數(shù)據(jù)庫 Dim strAccess As String strAccess = Provider=。Data Source= c:\jczcyzjxt\jczcxt\sj\ 39。調(diào)用VB函數(shù)DoEvents，用于轉(zhuǎn)移系統(tǒng)控制權(quán) DoEvents 39。建立與數(shù)據(jù)庫的連接 Set ADO_mx = New Connection strAccess Dim strSQL As String Dim ADOrs As New Recordset Set = ADO_mx strSQL = select * from tjsj 39。執(zhí)行Select語句,1代表只讀 strSQL, ADO_mx, 1 39。定義變量num，存放從記錄集讀入的數(shù)據(jù)行個數(shù) Dim num As Integer num = 39。定義變量v1存放x的值,變量v2存放y的值,變量sum1存放x平方的和,sum2存放y的和，sum3存放x的和,sum4存放x*y的和,i是循環(huán)變量。 Dim v1, i As Integer, v2, sum1, sum2, sum3, sum4 As Single For i = 1 To num v1 = ADOrs(X).Value v2 = ADOrs(Y).Value 39。計算x平方的和 sum1 = sum1 + v1 * v1 39。計算y的和 sum2 = sum2 + v2 39。計算x的和 sum3 = sum3 + v1 39。計算x*y的和 sum4 = sum4 + v1 * v2 Next i 39。關(guān)閉記錄集 39。定義變量a存放常數(shù)項，定義變量b存放回歸系數(shù)，定義變量Sql1，存放更新字符串 Dim a As Single, b As Single, Sql1 As String a = (sum1 * sum2 sum3 * sum4) / (num * sum1 sum3 * sum3) b = (num * sum4 sum2 * sum3) / (num * sum1 sum3 * sum3) 39。用計算出的a,b值更新數(shù)據(jù)庫表cs中的a,b值 Sql1 = update cs set a= amp。 a amp。 , b= amp。 b 39。執(zhí)行更新語句 Sql1 39。關(guān)閉數(shù)據(jù)庫連接對象 End Sub運(yùn)行結(jié)果打開調(diào)用模塊，點(diǎn)擊計算按鈕結(jié)果如下：相應(yīng)地參數(shù)表更新為五、體會（收獲）通過本實(shí)驗(yàn)的學(xué)習(xí)，我基本掌握了建立模型的具體步驟和方法。結(jié)合實(shí)驗(yàn)指導(dǎo)書，學(xué)會了配置編程環(huán)境。明確掌握最小二乘法模型的人工解法，并能成功實(shí)現(xiàn)為計算機(jī)算法，最后能夠編程實(shí)現(xiàn)。實(shí)驗(yàn)五　模型表示與組合一、實(shí)驗(yàn)?zāi)康恼莆漳Ｐ偷谋硎尽⒔M合及模型庫的建立二、實(shí)驗(yàn)內(nèi)容建立模型庫組合模型應(yīng)用三、方案設(shè)計與要求設(shè)置開發(fā)環(huán)境。將涉及的模型分類或分形式存放，構(gòu)成層級文件夾，形成模型文件庫。注意模型文件至少有源文件和目標(biāo)文件兩種形式。建立索引表或分類索引表，索引內(nèi)容包含模型編號、名稱、模型文件名、以及模型文件路徑，形成字典庫。建立一個模型庫集成管理界面，也可自行設(shè)計開發(fā)模型庫管理系統(tǒng)。四、實(shí)驗(yàn)結(jié)果（結(jié)論）設(shè)置開發(fā)環(huán)境Visual Basic + ADO + Microsoft Office Acess 2003模型文件庫在“c:\jczcyzjxt\jczcxt\”目錄下新建名為mx（模型）的子目錄，用于存放模型文件。在mx子目錄下新建名為zxecf（最小二乘法）的子目錄，用于存放最小二乘法模型程序文件。在zxecf子目錄下新建名為ywj（源文件）的子目錄，用于存放最小二乘法模型程序的源文件。在zxecf子目錄下新建名為mbwj（目標(biāo)文件）的子目錄，用于存放最小二乘法模型程序的目標(biāo)文件。具體如下圖： 模型文件庫字典庫索引表名為：zd； 模型編號（id）為：1；模型名稱（mxmc）為：最小二乘法模型； 模型文件名（mxwjm）為：；模型文件路徑（mxwjlj）為：c:\jczcyzjxt\jczcxt\mx\zxecf\mbwj\具體如圖： 字典表建立一個模型庫集成管理界面，設(shè)計開發(fā)模型庫管理系統(tǒng)。 模型庫管理系統(tǒng)界面五、體會（收獲）通過本實(shí)驗(yàn)的學(xué)習(xí)，我掌握了模型的組合，學(xué)會了建立模型庫：了解了模型庫的特點(diǎn)：（1）由模型庫管理系統(tǒng)進(jìn)行管理；（2）每個模型都具有輔助決策能力；（3）多