Question

我需要插入一个修改过的贝塞尔函数，我使用函数gsl_spline_eval()。我得到了一个＆＃39; gsl：interp.c：145：错误：插值错误＆＃39;使用以下代码：

 #define MAXPOINTS 10000 
 int main()
{
    double nu;
    gsl_function F;
    F.function = &sync;
    F.params =0;
    size_t size;    
    double table[2][MAXPOINTS];
    size = read_table(table[0],table[1]);   
    gsl_interp_accel *acc      =      gsl_interp_accel_alloc ();
    gsl_spline *spline         =      gsl_spline_alloc   (gsl_interp_linear, 5401); 
    gsl_spline_init(spline,table[0],table[1],size);
    cout <<" nu:   "<< nu<< "  GSL_FN_EVAL(&F,nu):   "<<nu*GSL_FN_EVAL(&F,nu)<<endl;

 return 0;
}

sync()使用gsl函数sync_kern()返回函数gsl_integration_qag()的积分。函数read_table()定义如下：

size_t read_table(double *xa, double *ya)
{
    size_t datapoints;
    datapoints = 5401;
    double x[] = {
        1.388794e-11,
        1.395756e-11,
        ...       };
    double y[] = {
        5.166810e-04,
        5.175428e-04,
        ...
                 };
    int i = 0;
    while(i<datapoints){ 
        xa[i]=log(x[i]);
        ya[i]=log(y[i]);
        i++;
        }

return datapoints;  
}

函数sync_kern()如下：

double sync_kern(double gamma, void *params)
{
    struct func_params *part= (struct func_params *)params;
    double result;
    double P,x, nuc, nu_0;
    double nu = *(double *)params;                
    gamma = exp(gamma);
    nu_0    =   (3*E_COULOMB*B*sqrt(2/3.0))/(4.0*M_PI*M*C);
    nuc     =   nu_0*sq(gamma);     
    x   =   nu/nuc;

    gsl_interp_accel *acc      =      gsl_interp_accel_alloc ();
    gsl_spline *spline     =      gsl_spline_alloc (gsl_interp_linear, 5401);


     /* double table[2][MAXPOINTS];
    size = read_table(table[0],table[1]);   
    gsl_interp_accel *acc      =      gsl_interp_accel_alloc ();
        gsl_spline *spline    =      gsl_spline_alloc (gsl_interp_interp, 5401);        
    gsl_spline_init(spline,table[0],table[1],size);  */

    P   =   gsl_spline_eval(spline,log(x),acc); 
    result  =   exp(P)*f(gamma)*gamma;
    return(result);
}

当我包含行

时

 /* double table[2][MAXPOINTS];
    size = read_table(table[0],table[1]);   
    gsl_interp_accel *acc      =      gsl_interp_accel_alloc ();
        gsl_spline *spline    =      gsl_spline_alloc (gsl_interp_interp, 5401);        
    gsl_spline_init(spline,table[0],table[1],size);  */

在函数sync_kern()中，而不在main() ，然后它可以正常工作：我得到GSL_FN_EVAL(&F,nu) 的正确值，但它当然也需要很多时间......

我希望我的信息不会太久......我不是c ++的优秀专家，而且我已经看到了问题的所有方面，我仍然不明白它的来源来自...有人有任何想法吗？如果您需要任何进一步的信息，请不要犹豫，问我。非常感谢你的帮助！

也许我应该准确地说我从我的主管的代码中获取了我的代码。这有点不同：

int main(int argc,char *argv[])
{
    FILE *fp;
    struct func_params params;
    size_t size;
    int i;
    /* initializing parameters */
    initialize(argc, argv, &params);

    /* Interpolation of  Synchrotronfunction F(x) */

        double table[2][MAXPOINTS];
        size = read_table(table[0],table[1]);       /*Tabelle fuer Interpolation einlesen aus create_table.c*/
        params.acc = gsl_interp_accel_alloc();
        params.spline = gsl_spline_alloc(gsl_interp_linear, size);
        gsl_spline_init(params.spline,table[0],table[1],size);
...
return (0);
}   


double
sync_kern(double gamma, void *params)
{
    struct func_params *part= (struct func_params *)params;
    double result;
    double P,nu_c,x;
    gamma = exp(gamma);
    nu_c    =   part->nu_0*sq(gamma);
    x   =   part->nu_s/nu_c;
    P   =   gsl_spline_eval(part->spline,log(x),part->acc); /*Aus Interpolation: Pointer auf spline */

    result  =   exp(P)*f(gamma)*gamma;
    return(result);
}

其中 spline 和 acc 在file.h中定义：

struct func_params
    {   
    gsl_spline *spline;
    gsl_interp_accel *acc;
    ...
    }
void initialize(int argc, char *argv[], void *params)
{
struct func_params *part= (struct func_params *)params; 
/* Default values for parameters: */
    part->gmin=1.0e7/M_E_EV;
    part->gamma=1.0e10/M_E_EV;
    part->gmax=2.0e18/M_E_EV;   /*Integrationgrenzen fuer gamma festlegen*/
    part->nu=1e-9/H_EV; 
...
}

我在我的函数sync_kern()中定义了 spline 和 acc ，并在结构中定义了它。有人知道错误的来源吗？

Answer 1

函数read_table（）给出了数组＆＃39; x []＆＃39;和＆＃39; y []＆＃39;用于插值

double table[2][MAXPOINTS];
size = read_table(table[0],table[1]);

您定义了一个双打数组，但不要初始化它。它包含随机值。因此很可能会出现荒谬的结果。

将两个值传递给read_table（）。如果您希望函数更改它们，则此函数的定义应为

size_t read_table(double& val1, double& val2);

查看您的代码。有一些没有声明的变量（nu_0，nuc，acc）

修改

编辑问题后，我看到如何定义read_table（）。它使用两个指针。你有一个唯一的数组，两个维度，固定的大小。由于这个固定的大小，使用两个指针table[0]和table[1]传递数组是可以的。

double table[2][N]与double** table相同。所以传递table [1]是将指针传递给数组[N]。

gsl错误是由gsl：interp.c中的代码引起的 https://github.com/ampl/gsl/blob/master/interpolation/interp.c

  if (x < interp->xmin || x > interp->xmax)
    {
      GSL_ERROR_VAL("interpolation error", GSL_EDOM, GSL_NAN);
    }

您似乎正在尝试超出限制的插值（称为＆＃34;外推＆＃34;）

与gsl_interp_linear的插值错误

1 个答案:

修改