我希望有一个预编译函数,如果它有任何正根,则返回二次方程的最大正实根,如果不是则返回0.我正在使用一些遥感数据,我已经做了一些测试,现在在我的情况下,所有二次多项式都有真正的根,但不能确定它们的符号。所以我写了以下C源代码。
/*
* mx_solve_quadratic.cpp
*
* Solves for real roots of the standard quadratic equation
*
* The calling syntax is:
*
* MaxRoot = mx_solve_quadratic(coefficientMatrix)
*
* This is a MEX file for MATLAB.
*/
#include <math.h>
#include "mex.h"
#include "matrix.h"
int gsl_poly_solve_quadratic (double , double , double , double *, double *);
/* The gateway function */
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
double a; /* coefficient for x^2 */
double b; /* coefficient for x */
double c; /* coefficient for 1 */
double x0; /* the smaller root */
double x1; /* the bigger root */
double *inMatrix = NULL;
inMatrix = mxGetPr(prhs[0]);
a = inMatrix[0];
b = inMatrix[1];
c = inMatrix[2];
int i = gsl_poly_solve_quadratic(a,b,c,&x0,&x1);
double signRoot = (x1 > 0 ? x1 : 0);
mxSetPr(plhs[0], &signRoot);
}
int gsl_poly_solve_quadratic (double a, double b, double c, double *x0, double *x1)
{
if (a == 0) /* Handle linear case */
{
if (b == 0)
{
return 0;
}
else
{
*x0 = -c / b;
return 1;
};
}
{
double disc = b * b - 4 * a * c;
if (disc > 0)
{
if (b == 0)
{
double r = sqrt (-c / a);
*x0 = -r;
*x1 = r;
}
else
{
double sgnb = (b > 0 ? 1 : -1);
double temp = -0.5 * (b + sgnb * sqrt (disc));
double r1 = temp / a ;
double r2 = c / temp ;
if (r1 < r2)
{
*x0 = r1 ;
*x1 = r2 ;
}
else
{
*x0 = r2 ;
*x1 = r1 ;
}
}
return 2;
}
else if (disc == 0)
{
*x0 = -0.5 * b / a ;
*x1 = -0.5 * b / a ;
return 2 ;
}
else
{
return 0;
}
}
}
实际上我希望signRoot
作为标量值返回MATLAB。我调试了两次代码:
a=[1 3 2];
b=mx_solve_quadratic(a)
a=[1 -3 2];
b=mx_solve_quadratic(a)
我看到一切正常,直到最后一行,我想传递signRoot
作为输出。如果我按F10
,我会收到错误:
或者如果我尝试在没有调试的情况下在MATLAB中运行mex函数,我会得到:
答案 0 :(得分:2)
Suever是对的。您正在尝试传递在C中创建的数组并将其交给MATLAB,这是一种不明智和未定义的行为。你必须做的是使用任何a class=product-color
函数并将内存位置设置为你想要的任何结果。最简单的方法是使用mxCreateDoubleMatrix
并指定输出有1行,1列(即标量),并确保输出是真实的。
因此,请执行以下操作来替换mxCreate*
中的最后一行代码:
mexFunction
首先在MATLAB端为单个标量分配内存。然后你得到一个指向这个内存的指针,然后相应地设置它。
为了绝对确定我们在同一页面上,这是plhs[0] = mxCreateDoubleMatrix(1, 1, mxREAL);
double *out = mxGetPr(plhs[0]);
*out = signRoot;
修改后的样子。请注意,更改的行使用mexFunction
注释进行引用。
/* NEW */
现在使用两个示例输入运行上面的代码:
/* The gateway function */
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
double a; /* coefficient for x^2 */
double b; /* coefficient for x */
double c; /* coefficient for 1 */
double x0; /* the smaller root */
double x1; /* the bigger root */
double *inMatrix = NULL;
inMatrix = mxGetPr(prhs[0]);
a = inMatrix[0];
b = inMatrix[1];
c = inMatrix[2];
int i = gsl_poly_solve_quadratic(a,b,c,&x0,&x1);
double signRoot = (x1 > 0 ? x1 : 0);
plhs[0] = mxCreateDoubleMatrix(1, 1, mxREAL); /* NEW */
double *out = mxGetPr(plhs[0]); /* NEW */
*out = signRoot; /* NEW */
}