vb計(jì)算程序課程設(shè)計(jì)--用最小二乘法求擬合曲線(xiàn)(編輯修改稿)
2025-07-09 05:59 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 值、 Y 值相等的情況，這樣我們就認(rèn)定為一條垂直于 X 軸或 Y 軸的直線(xiàn)，則在系統(tǒng)所確定的區(qū)域內(nèi)畫(huà)出線(xiàn)性圖；最后就剩下沒(méi)有共同點(diǎn)的額點(diǎn)了，對(duì)于這我們直接以圖片框的邊界作為 X 軸和 Y 軸（認(rèn)為這樣方便畫(huà)圖），然后根據(jù)算出的 a 值、 b 值和系統(tǒng)求出的線(xiàn)性方程，自動(dòng)生成圖像。 2) 主要技術(shù)問(wèn)題或難題的解決方法 在這個(gè)程序設(shè)計(jì) 的過(guò)程中，我們遇到了不少的問(wèn)題，最主要的問(wèn)題就在怎樣畫(huà)圖，因?yàn)橹拔覀冞€沒(méi)遇到過(guò)這樣的問(wèn)題，鑒于這個(gè)問(wèn)題，我們盡量勤快點(diǎn)地去問(wèn)問(wèn)講師的意見(jiàn)，并且不乏地去圖書(shū)館去借閱相關(guān)我們課題的書(shū)籍，而且我們還有自己的 VB 書(shū) (主要是 line語(yǔ)句 )，根據(jù)這幾個(gè)方式，我們基本上解決了我們面對(duì)的問(wèn)題。 3) 亮點(diǎn)或創(chuàng)新點(diǎn)的實(shí)現(xiàn) 本次所做的編程中，我們充分運(yùn)用了所學(xué)的知識(shí)，比如“ If 語(yǔ)句”、“ For 語(yǔ)句”、“ MsgBox語(yǔ)句”和某些控件的有效性屬性。這些都是通過(guò)反復(fù)運(yùn)行測(cè)試做出的結(jié)果，因?yàn)樵谶@其中我們的不足之處還是有很多很多的，例如：在 還沒(méi)輸入要畫(huà)線(xiàn)的點(diǎn)之前，就可以畫(huà)線(xiàn)了，那么在那些控件之間就產(chǎn)生了矛盾（沒(méi)點(diǎn)就能畫(huà)出線(xiàn)性圖？），所以我們使用了控件的有效性這一屬性等等。 南昌航空大學(xué) 第 12 頁(yè) 共 17 頁(yè) 第四章 結(jié)束語(yǔ) 最小二乘法是指使因變量估計(jì)值與實(shí)測(cè)值間的相對(duì)誤差平方和為最小。 在研究?jī)蓚€(gè)變量之間的關(guān)系時(shí)， 我們 可以用回歸分析的方法進(jìn)行分析。當(dāng)確定了描述兩個(gè)變量之間的回歸模型后，就可以使用最小二乘法估計(jì)模型中的參數(shù)，進(jìn)而建立 數(shù)學(xué)模型，然后通過(guò) MATLAB求解模型。 通過(guò)本文實(shí)例模型 （非多項(xiàng)式形式 bxaey? ）的求解，我們學(xué)會(huì) 了 怎樣從給定的二維數(shù)據(jù)出發(fā)，尋找一個(gè)簡(jiǎn)單合理的函數(shù)來(lái)擬合給定的一組看上去雜亂無(wú)章的數(shù)據(jù) 。 如何巧妙地運(yùn)用最小二乘法解決數(shù)據(jù)擬合問(wèn)題，這不僅對(duì)我們?cè)诮窈蟮膶W(xué)習(xí)有一定的幫助，而且在生產(chǎn)實(shí)踐、科學(xué)實(shí)驗(yàn)中也起到了一定的作用。 。 課題設(shè)計(jì)時(shí) VB 代碼編寫(xiě)復(fù)雜、冗長(zhǎng)，稍一不慎就會(huì)出錯(cuò)，我們調(diào)試了好多次，失敗了好多次，而自己仔細(xì)想想，歸根究底還是在于自己心太浮躁，沒(méi)有耐心。 VB 的編程是一項(xiàng)不易的工作，沒(méi)有一顆平靜的心是完成不了的。我想，將來(lái)做許多事，也需要保持這么一種平和的心態(tài)，它是一種個(gè)人綜合素質(zhì)，是我們制勝的關(guān)鍵。 在課 題設(shè)計(jì)的過(guò)程中， VB 代碼的編寫(xiě) —— 即設(shè)計(jì)的主過(guò)程無(wú)疑是一個(gè)難點(diǎn)，這部分內(nèi)容雖然難，但在我們能力范圍之內(nèi)。而最大的難點(diǎn)在于，項(xiàng)目設(shè)計(jì)中需要根據(jù)用戶(hù)提供的坐標(biāo)點(diǎn)來(lái)生成一次模擬曲線(xiàn)，剛遇到這個(gè)問(wèn)題時(shí)，根本無(wú)法下手，最后還是到圖書(shū)館、網(wǎng)上查閱了相關(guān)資料才解決了這一難題。從中我領(lǐng)悟到，親自行動(dòng)才是解決問(wèn)題最好的方法，實(shí)踐就是一切。不管困難有多大，沒(méi)有切實(shí)的行動(dòng)時(shí)不行的。而這前提必然是自己要有解決問(wèn)題的決心與堅(jiān)忍不拔的毅力。 此次項(xiàng)目對(duì)我來(lái)說(shuō)是困難的，但無(wú)論怎樣，我 還是完成了，這說(shuō)明一點(diǎn)，其實(shí)沒(méi)有克服不了的困難。無(wú)論身 處于怎樣的境地，我們都要勇于面對(duì)，并想辦法解決，因?yàn)樽约焊緹o(wú)法逃避。 南昌航空大學(xué) 第 13 頁(yè) 共 17 頁(yè) 參考文獻(xiàn) 參考內(nèi)容為： ① 《 Visual Basic 程序設(shè)計(jì)教程》第十章中 圖形操作 ②《 Visual basic 6》學(xué)習(xí)指南 張志軍著 第二章 創(chuàng)建用戶(hù)界面 ③《數(shù)值分析》 科學(xué)出版社 附錄 程序代碼如下 : 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() 南昌航空大學(xué) 第 14 頁(yè) 共 17 頁(yè) Randomize n = InputBox(請(qǐng)輸入坐標(biāo)點(diǎn)個(gè)數(shù)： ) If n = 0 Then MsgBox 請(qǐng)輸入坐標(biāo)點(diǎn)個(gè)數(shù) = True ElseIf n = 1 Then MsgBox 單點(diǎn)無(wú)法擬合，請(qǐng)重新輸入
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1