但是梯形法以直线来代替曲线仍有误差,如果用某种曲线来代替,就能进一步减少误差,为此而发展了辛普森求积方法。
直到f(xi)=0,即xi+1=xi或|xi+1-xi|<ε为止。
Exit Do
ElseIf H <= E Then
数值积分可以只利用被积函数来求得积分值,为什么可以这样进行呢?
End Function
ElseIf Hanshu(X, Str1) * Hanshu(B, Str1) < 0 Then
Private Function Hanshu(X As Double, Str1 As String) As Double
以x2-2=0为例,令y=x2-2
要求:每一个循环中间步骤要输出。
但是,在科学研究和工程技术中常会遇到下述几种情况,
Next
Dim Sum1 As Double, i As Long, H As Double
Public Function JuxingJifen(Str1 As String, A As Double, B As Double, DengFen As Integer) As Double
2 扫描法求解方程的根
实现步骤:
1在窗体上加一个Scriptcontrol控件
2 在工程中添加一个类模块class1.
类模块中的代码:
Public K1 As Double
1、 通用函数的程序编写