基于VB的数值积分算法 '这里的第一个Public为积分函数mathzcm段 Public Function mathzcm(ByVal a!,ByVal b!,ByVal n%)As Single Dim sum!,h!,x! h=(b-a)/n sum=(f(a)+f(b))/2 For i=1 To n-1 x=a+i*h sum=sum+f(x) Next i mathzcm=sum*h End Function '另行定义自己需要的a,b,n的值…… Public Function
数值计算基础的实验之一 数值积分 变步长梯形法求积分的C语言实验 复化梯形法或者叫复合梯形法 代码摘要 double Multy(double a, double b) { double h = b - a, T[2]; T[0] = h * (f(b) + f(a)) / 2.0; // 求第一个Tn,用T[0]存储 int m = 1, n = 1; // m为迭代次数, n为子区间个数 do { T[1] = 0.0; for (int i=0; i<n; i++) // 求Hn,
