[政史地]b例題循環(huán)-資料下載頁
2024-10-14 06:52本頁面
【正文】 一直求下去，直到接近真正的根。當(dāng)兩次求出的根之差 | xn+1xn |≤ε就認(rèn)為 xn+1足夠接近于真實(shí)的根。 故 2021/11/10 31 牛頓迭代公式是 : )(39。)(1nnnn xfxfxx ???f(x) x1 x2 x3 x4 f(x1) f(x2) f(x3) f(x4) y x 圖 421牛頓迭代法幾何原理圖 2021/11/10 32 工程設(shè)計(jì)步驟如下： （ 1） 新建 “ 標(biāo)準(zhǔn) EXE”工程 ， 在出現(xiàn)的界面上添加兩個標(biāo)簽 、 一個文本框 、 一個圖片框和兩個命令按鈕 。 如圖 422左圖所示 。 （ 2）設(shè)置窗體及控件的屬性如圖 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 編寫文本框變化時所執(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)行工程 。 按 F5鍵運(yùn)行工程 。 當(dāng)出現(xiàn)運(yùn)行畫面時在文本框中輸入方程的初始根 ， 然后單擊 “ 計(jì)算 ” 命令按鈕 ， 就可在下面的圖片框中輸出方程的根如下頁圖 423所示 。 注意：在程序中，對于文本框中輸入的不是數(shù)字的其他情況給出了必要的提示。 2021/11/10 38 圖 423 牛頓迭代法求方程根程序運(yùn)行結(jié)果
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1