[政史地]b例題循環(huán)-閱讀頁
2024-10-29 06:52本頁面
【正文】 = x = amp。 2021/11/10 27 （ 4）運(yùn)行結(jié)果。即在標(biāo)簽 3中輸出了自然數(shù)的各個(gè)因子相乘的結(jié)果；另外，標(biāo)簽 2的內(nèi)容也根據(jù)輸入的數(shù)自動(dòng)改變?nèi)鐖D 420所示。 所求的方程為： 分析：用牛頓迭代法求方程 f (x ) = 0在 x0 附近的實(shí)根的方法如下 。 在幾何中就是作 x ? x1 ，交 f (x )于 f ( x1 )見圖 421所示 。 由于 2111)()(39。)(1112 xfxfxx ??（ 4）通過 x2 求出 f( x2 )。 （ 6）再通過 x3 求出 f( x3 )。 … 一直求下去，直到接近真正的根。 故 2021/11/10 31 牛頓迭代公式是 : )(39。 如圖 422左圖所示 。 422牛頓迭代法求方程根工程界面設(shè)計(jì)及運(yùn)行結(jié)果 2021/11/10 33 （ 3） 編寫代碼如下 編寫單擊 Command1命令按鈕 “ 求根 ” 所執(zhí)行的代碼 Private Sub Command1_Click() Dim f As Double, f1 As Double Const eps = Dim x0 As Double, x1 As Double x1 = Val() 2021/11/10 34 Do x0 = x1 f = Exp(x0) x0 f1 = Exp(x0) 1 x1 = x0 f / f1 Loop While (x1 x0) eps x1 End Sub 根從圖片框上輸出 牛頓迭代法求根 2021/11/10 35 編寫單擊 Command2命令按鈕 “ 退出 ” 所執(zhí)行的代碼 Private Sub Command2_Click() End End Sub 編寫單擊窗體所執(zhí)行的代碼 Private Sub Form_Click() = End Sub 2021/11/10 36 編寫文本框變化時(shí)所執(zhí)行的代碼 Private Sub Text1_Change() Const Tile = 牛頓迭代法求方程根程序 If And_ Not IsNumeric() Then MsgBox 輸入的不是數(shù)字 ！ , vbOKOnly, Tile = End If End Sub 2021/11/10 37 （ 4） 運(yùn)行工程 。 當(dāng)出現(xiàn)運(yùn)行畫面時(shí)在文本框中輸入方程的初始根 ， 然后單擊 “ 計(jì)算 ” 命令按鈕 ， 就可在下面的圖片框中輸出方程的根如下頁圖 423所示 。 2021/11/10 38 圖 423 牛頓迭代法求方程根程序運(yùn)行結(jié)果
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1