?? qtrap.txt
字號:
Sub QTRAP(A, B, S)
EPS = 0.000001
JMAX = 20
OLDS = -1E+30
For J = 1 To JMAX
Call TRAPZD(A, B, S, J)
If Abs(S - OLDS) < EPS * Abs(OLDS) Then Exit Sub
OLDS = S
Next J
Print "Too many steps."
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -