方庄网站建设公司/百度搜索提交入口

在物理学和工程学中，很多问题都可以通过数值积分来求解，特别是当我们无法得到解析解时。数值积分是通过计算积分区间内离散点的函数值来近似积分的结果。在这篇博客中，我将讨论如何使用 复合梯形法 来进行数值积分，并以一个简单的计算为例，展示如何使用该方法，并附带Matlab程序。

数值积分的基本原理

数值积分的基本思想是将一个连续的积分问题转化为离散的求和问题，通常是通过将积分区间划分成若干小的子区间。

复合梯形法

复合梯形法就是其中的一种方法，它的基本原理如下：

1. 首先，将积分区间分为 n 个小区间，每个小区间的宽度为 h。
2. 然后，利用梯形公式近似每个小区间内函数的积分：
   

将积分区间 $[a,b]$ 划分为 $n$ 等分，则每个小区间的宽度为：$h=\frac{b-a}{n}$
因此，积分可以表示为：
$$I={\int }_a^{b}f(x)dx=\sum _{k=0}^{n-1}{\int }_{x_k}^{x_{k+1}}f(x)dx$$
每个子区间 $[x_k,x_{k+1}]$ 上的积分使用梯形公式，得到：
$${\int }_{x_k}^{x_{k+1}}f(x)dx\approx \frac{h}{2}\left[f(x_k)+f(x_{k+1})\right]$$
因此，整个区间的积分为：
$$\begin{array}{rl}I& ={\int }_a^{b}f(x)dx=\sum _{k=0}^{n-1}{\int }_{x_k}^{x_{k+1}}f(x)dx\\ & \approx \sum _{k=0}^{n-1}\frac{h}{2}\left[f(x_k)+f(x_{k+1})\right]\\ & =\frac{h}{2}\{[f(x_0)+f(x_1)]+[f(x_1)+f(x_2)]+\dots \\ & +[f(x_{n-2})+f(x_{n-1})]+[f(x_{n-1})+f(x_n)]\}\\ & =\frac{h}{2}\left[f(x_0)+2\sum _{k=1}^{n-1}f(x_k)+f(x_n)\right]\\ & =\frac{h}{2}\left[f(a)+f(b)\right]+h\cdot \sum _{i=1}^{n-1}f(x_k)\end{array}$$
其中：
• $x_i$ 是区间内的离散点： $x_i=a+i\cdot h$ 。
• $f(x)$ 是被积函数。
最后一项称为复化梯形公式，记为：
$$T_n=\frac{h}{2}\left[f(a)+2\sum _{k=1}^{n-1}f(x_k)+f(b)\right]$$

误差：若 $f(x)\in C^2[a,b]$，其求积余项
$$R_n(f)=-\frac{b-a}{12}{h}^2{f}^{\prime \prime }(\eta ),其中\eta \in [a,b]$$ 可以看出误差是 $h^2$阶，复化梯形公式是收敛的。此外，T_n 的求积系数均为正，由定理 2 知复化梯形公式是稳定的。

复合梯形法的实现步骤

1. 计算区间两端的函数值：这是梯形法中的基础项，计算 $f(a)$ 和 $f(b)$ 。
2. 计算区间中间点的函数值：计算区间内的所有点 $f(x_1),f(x_2),\dots ,f(x_{n-1})$。
3. 应用梯形公式：将所有小区间的结果加总，得到整个积分的近似值。

复合梯形法的代码实现 (Matlab)

例如，考虑函数 $f(x)=\ln |\tanh (x){|}^2$ 在区间 $[0,2\pi ]$ 上的积分。使用复合梯形法来计算该积分：
$$\begin{array}{rl}{\int }_0^{2\pi }\ln |\tanh (x){|}^{2}dx& \approx \frac{h}{2}\left[\ln |\tanh (0){|}^2+2\sum _{i=1}^{n-1}\ln |\tanh (x_i){|}^2+\ln |\tanh (2\pi ){|}^2\right]\end{array}$$
下面是使用复合梯形法实现数值积分的 MATLAB 代码：

% 定义积分区间
a = 0;       % 积分下限
b = 2*pi;    % 积分上限
n = 100;     % 将区间分成 100 个小区间
step = (b - a) / n;  % 每个小区间的宽度
x = a:step:b;  % 生成区间内的离散点% 定义被积函数
f = @(x) log(abs(tanh(x)))^2;  % 这里使用一个简单的示例函数% 复合梯形法积分
T0 = (step/2) * (f(a) + f(b));  % 计算区间两端的函数值
T1 = 0;
for i = 1:(n-1)T1 = T1 + (step) * f(x(i+1));  % 求和中间点的函数值
end
integral_result = T0 + T1;  % 得到积分结果% 输出结果
disp(['积分结果：', num2str(integral_result)]);