计算方法实验（二）：龙贝格积分法

最新推荐文章于 2024-04-26 12:43:32 发布

頔潇

最新推荐文章于 2024-04-26 12:43:32 发布

阅读量1w

点赞数 9

分类专栏：数值分析课程作业文章标签：算法 romberg积分法

本文链接：https://blog.csdn.net/gzn00417/article/details/106266220

版权

课程作业同时被 2 个专栏收录

15 篇文章 10 订阅

订阅专栏

数值分析

5 篇文章 8 订阅

订阅专栏

Romberg积分法数学原理

利用复化梯形求积公式、复化辛普生求积公式、复化柯特斯求积公式的误差估计式计算积分 $\int_{a}^{b}{f(x)dx}$ 。记 $\frac{b - a}{n}$ ， $x_{k} = a + k \cdot h$ ， $0,1,\cdots,n$ ，其计算公式：

$T_{n} = \frac{1}{2}h\sum_{k = 1}^{n}\lbrack f(x_{k - 1}) + f(x_{k})\rbrack$

$T_{2n} = \frac{1}{2}T_{n} + \frac{1}{2}h\sum_{k = 1}^{n}{f(x_{k} - \frac{1}{2}h})$

$S_{n} = \frac{1}{3}(4T_{2n} - T_{n})$

$C_{n} = \frac{1}{15}(16S_{2n} - S_{n})$

$R_{n} = \frac{1}{63}(64C_{2n} - C_{n})$

一般地，利用龙贝格算法计算积分，要输出所谓的 $T -$ 数表

$\begin{matrix} T_{1} & & & \begin{matrix} & \\ \end{matrix} \\ T_{2} & S_{1} & & \begin{matrix} & \\ \end{matrix} \\ T_{4} & S_{2} & C_{1} & \begin{matrix} & \\ \end{matrix} \\ \begin{matrix} T_{8} \\ \vdots \\ \end{matrix} & \begin{matrix} S_{4} \\ \vdots \\ \end{matrix} & \begin{matrix} C_{2} \\ \vdots \\ \end{matrix} & \begin{matrix} \begin{matrix} R_{1} \\ \vdots \\ \end{matrix} & \begin{matrix} \\ \ddots \\ \end{matrix} \\ \end{matrix} \\ \end{matrix}$

核心代码

#include <cmath>
#include <cstdio>
#include <iostream>
using namespace std;
#define N 20

int n;
long double a, b, e, T[N][N] = {{0.0}};

long double f(long double x) { return 1.0 / (1.0 + x); }
long double x(int i, long double h) { return a + h * i; }

int main() {
    scanf("%llf%llf%llf%d", &a, &b, &e, &n);
    int k = 0;
    for (; k < n; k++) {
        long double h = (b - a) / pow(2, k), sum = 0.0;
        for (int i = 1; i <= pow(2, k) - 1; i++) sum += f(x(i, h));
        T[k][0] = 0.5 * h * (f(a) + 2 * sum + f(b));
        for (int m = 1; m <= k; m++)
            T[k][m] =
                (pow(4, m) * T[k][m - 1] - T[k - 1][m - 1]) / (pow(4, m) - 1);
        for (int m = 0; m <= k; m++) printf("%.7Lf\t", T[k][m]);
        cout << endl;
        if (k > 0 && fabs(T[k][0] - T[k][k]) <= e) break;
    }
    return 0;
}