?? rtnewt.txt
字號:
Function RTNEWT(X1, X2, XACC)
JMAX = 20
RTNEWT = 0.5 * (X1 + X2)
For J = 1 To JMAX
Call FUNCD(RTNEWT, F, DF)
DX = F / DF
RTNEWT = RTNEWT - DX
If (X1 - RTNEWT) * (RTNEWT - X2) < 0 Then
Print "jumped out of brackets"
Exit Function
End If
If Abs(DX) < XACC Then Exit Function
Next J
Print "RTNEWT exceeding maximum iterations."
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -