vb計算程序課程設計--用最小二乘法求擬合曲線(文件)
【正文】 ) / (x2 n * xaver * xaver) a = yaver b * xaver a = Left(a, 6) b = Left(b, 6) y= amp。 個點的縱坐標 ) sumy = sumy + y(i) Text1 = Text1 amp。 i amp。 南昌航空大學 第 13 頁 共 17 頁 參考文獻 參考內(nèi)容為： ① 《 Visual Basic 程序設計教程》第十章中 圖形操作 ②《 Visual basic 6》學習指南 張志軍著 第二章 創(chuàng)建用戶界面 ③《數(shù)值分析》 科學出版社 附錄 程序代碼如下 : Dim x() As Single, y() As Single, i As Integer, n As Integer, m As Integer Dim sumx As Double, sumy As Double, xaver As Double, yaver As Double Dim xy As Double, x2 As Double Dim a As Double, b As Double Dim xmax As Double, xmin As Double Dim ymax As Double, ymin As Double Private Sub Command1_Click() 南昌航空大學 第 14 頁 共 17 頁 Randomize n = InputBox(請輸入坐標點個數(shù)： ) If n = 0 Then MsgBox 請輸入坐標點個數(shù) = True ElseIf n = 1 Then MsgBox 單點無法擬合，請重新輸入 Exit Sub = False = False = False = True Else = False = True = True End If ReDim x(n) ReDim y(n) For i = 1 To n x(i) = InputBox(請輸入第 amp。不管困難有多大，沒有切實的行動時不行的。我想，將來做許多事，也需要保持這么一種平和的心態(tài)，它是一種個人綜合素質(zhì)，是我們制勝的關鍵。 如何巧妙地運用最小二乘法解決數(shù)據(jù)擬合問題，這不僅對我們在今后的學習有一定的幫助，而且在生產(chǎn)實踐、科學實驗中也起到了一定的作用。 南昌航空大學 第 12 頁 共 17 頁 第四章 結束語 最小二乘法是指使因變量估計值與實測值間的相對誤差平方和為最小。 第二章 系統(tǒng)設計 1) 采用的軟件及開發(fā)平臺 Microsoft Visual Basic 南昌航空大學 第 6 頁 共 17 頁 2) 項目的總體方案 結 束開 始輸 入 點 坐 標繪 制 點 與 坐 標 軸計 算 線 性 回 歸 方 程 并 繪 制判 斷 坐 標 點 個 數(shù)無 法 擬 合 增 加 坐 標 點Y E SN O 南昌航空大學 第 7 頁 共 17 頁 3) 項目的詳細設計 mand1(生成點坐標 ):點擊后按要求輸入坐標點，在 text1 中輸出 mand2(生成坐標系，繪點 )：將輸入的點在 picture1 中繪制出坐標軸以及點 mand3(生成線性方程 )：計算輸入坐標點的線性回歸方程，在 picture1 中繪制線性方程，在 picture2 中輸出線性方程 mand4 (清除 )：將 text1， picture1， picture2 中的內(nèi)容清除 mand5(結束 )：結束程序 對象 屬性名 屬性值 Form1 Caption 最小二乘法 Text1 Text MultiLine True Alignment 2 Locked True Command1 Caption 生成坐標點 Command2 Caption 生成坐標系，繪點 南昌航空大學 第 8 頁 共
畢業(yè)設計相關推薦
鄂ICP備17016276號-1