如何使用自适应正交例程对向量的内容进行积分

时间:2019-04-26 19:42:56

标签: c++ vector gsl

我有一个要求返回类型为容器的函数。问题是我需要尽可能高效地集成容器中的内容,并希望使用自适应Gauss-Kronrod集成或同样高效(或更优)的产品。

我希望使用GNU科学库正交例程qags,但它返回的结果类型为double。 就目前情况而言,我认为我可能不得不重写GSL正交例程的各个部分,以将返回类型转换为std向量,但这将是一个相当漫长且可能容易出错的弯路。我希望有人会建议一个更好的解决方案!

下面是我正在尝试集成的函数类型的一个示例,当前采用了基本的梯形规则,但指出了我更喜欢在哪里实现GSL例程gaq。尽管它比我的实际问题要简单得多,但它表明,向量中放入的每个元素都是根据先前的结果计算得出的,因此需要容器。

#include <iostream>
#include <vector>
#include <gsl/gsl_integration.h>
using namespace std;

vector<double> f(double E, int N) {
    vector<double> result;
    result.reserve(N);
    double x = E;
    for (int it=0; it < N; ++it){
        result.push_back(x);
        x *= x;
    }
    return result;
}

vector<double> f_qag(double E, void * params) {
    int N = *(int *) params;
    vector<double> result;
    result.reserve(N);
    double x = E;
    for (int it=0; it < N; ++it){
        result.push_back(x);
        x *= x;
    }
    return result;
}


int main(){
    vector<double> result;
    vector<double> integrate;
    int N = 20;
    result.reserve(N);
    integrate.reserve(N);
    for (int i = 0; i < N; i++)
        result[i] = 0.;
    double end = 1.0;
    double start = -1.0;

    // I would like to use qag here
    /* gsl_integration_workspace * w = gsl_integration_workspace_alloc (1000); */
    /* vector<double> error; */
    /* gsl_function F; */
    /* F.function = &f_qag; */
    /* F.params = &N; */
    /* gsl_integration_qag (&F, start, end, 0, 1e-7, 1000, 1, w, &result, &error); */

    // instead of resorting to the trapezoidal rule here
    double E;
    const int n = 1000;
    double factor = (end - start)/(n*1.);
    for (int k=0; k<n+1; k++) {
        E = start + k*factor;
        integrate = f(E, N);
        for (int i = 0; i < N; i++){
            if ((k==0)||(k==n))
                result[i] += 0.5*factor*integrate[i];
            else 
                result[i] += factor*integrate[i];
        }
    }   

    for (int i = 0; i < N; i++)
        cout<<i<<" "<<result[i]<<endl;

    return 0;
}

我打算根据伪结果conv检查收敛性;

double conv = 0.;
for (int i = 0; i < N; i++)
    conv += abs(integrate[i]);

0 个答案:

没有答案