mirror of
https://gitlab.com/libeigen/eigen.git
synced 2025-02-23 18:20:47 +08:00
Split the implementation of i?amax/min into two. Based on PR-627 by Sameer Agarwal.
Like the Netlib reference implementation, I*AMAX now uses the L1-norm instead of the L2-norm for each element. Changed I*MIN accordingly.
This commit is contained in:
parent
039ee52125
commit
4270c62812
@ -36,6 +36,28 @@ RealScalar EIGEN_CAT(REAL_SCALAR_SUFFIX, EIGEN_BLAS_FUNC(asum))(int *n, RealScal
|
||||
else return make_vector(x,*n,std::abs(*incx)).unaryExpr<scalar_norm1_op>().sum();
|
||||
}
|
||||
|
||||
int EIGEN_CAT(i, EIGEN_BLAS_FUNC(amax))(int *n, RealScalar *px, int *incx)
|
||||
{
|
||||
if(*n<=0) return 0;
|
||||
Scalar* x = reinterpret_cast<Scalar*>(px);
|
||||
|
||||
DenseIndex ret;
|
||||
if(*incx==1) make_vector(x,*n).unaryExpr<scalar_norm1_op>().maxCoeff(&ret);
|
||||
else make_vector(x,*n,std::abs(*incx)).unaryExpr<scalar_norm1_op>().maxCoeff(&ret);
|
||||
return int(ret)+1;
|
||||
}
|
||||
|
||||
int EIGEN_CAT(i, EIGEN_BLAS_FUNC(amin))(int *n, RealScalar *px, int *incx)
|
||||
{
|
||||
if(*n<=0) return 0;
|
||||
Scalar* x = reinterpret_cast<Scalar*>(px);
|
||||
|
||||
DenseIndex ret;
|
||||
if(*incx==1) make_vector(x,*n).unaryExpr<scalar_norm1_op>().minCoeff(&ret);
|
||||
else make_vector(x,*n,std::abs(*incx)).unaryExpr<scalar_norm1_op>().minCoeff(&ret);
|
||||
return int(ret)+1;
|
||||
}
|
||||
|
||||
// computes a dot product of a conjugated vector with another vector.
|
||||
int EIGEN_BLAS_FUNC(dotcw)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy, RealScalar* pres)
|
||||
{
|
||||
|
@ -51,28 +51,6 @@ int EIGEN_BLAS_FUNC(copy)(int *n, RealScalar *px, int *incx, RealScalar *py, int
|
||||
return 0;
|
||||
}
|
||||
|
||||
int EIGEN_CAT(i, EIGEN_BLAS_FUNC(amax))(int *n, RealScalar *px, int *incx)
|
||||
{
|
||||
if(*n<=0) return 0;
|
||||
Scalar* x = reinterpret_cast<Scalar*>(px);
|
||||
|
||||
DenseIndex ret;
|
||||
if(*incx==1) make_vector(x,*n).cwiseAbs().maxCoeff(&ret);
|
||||
else make_vector(x,*n,std::abs(*incx)).cwiseAbs().maxCoeff(&ret);
|
||||
return int(ret)+1;
|
||||
}
|
||||
|
||||
int EIGEN_CAT(i, EIGEN_BLAS_FUNC(amin))(int *n, RealScalar *px, int *incx)
|
||||
{
|
||||
if(*n<=0) return 0;
|
||||
Scalar* x = reinterpret_cast<Scalar*>(px);
|
||||
|
||||
DenseIndex ret;
|
||||
if(*incx==1) make_vector(x,*n).cwiseAbs().minCoeff(&ret);
|
||||
else make_vector(x,*n,std::abs(*incx)).cwiseAbs().minCoeff(&ret);
|
||||
return int(ret)+1;
|
||||
}
|
||||
|
||||
int EIGEN_BLAS_FUNC(rotg)(RealScalar *pa, RealScalar *pb, RealScalar *pc, RealScalar *ps)
|
||||
{
|
||||
using std::sqrt;
|
||||
|
@ -23,6 +23,28 @@ RealScalar EIGEN_BLAS_FUNC(asum)(int *n, RealScalar *px, int *incx)
|
||||
else return make_vector(x,*n,std::abs(*incx)).cwiseAbs().sum();
|
||||
}
|
||||
|
||||
int EIGEN_CAT(i, EIGEN_BLAS_FUNC(amax))(int *n, RealScalar *px, int *incx)
|
||||
{
|
||||
if(*n<=0) return 0;
|
||||
Scalar* x = reinterpret_cast<Scalar*>(px);
|
||||
|
||||
DenseIndex ret;
|
||||
if(*incx==1) make_vector(x,*n).cwiseAbs().maxCoeff(&ret);
|
||||
else make_vector(x,*n,std::abs(*incx)).cwiseAbs().maxCoeff(&ret);
|
||||
return int(ret)+1;
|
||||
}
|
||||
|
||||
int EIGEN_CAT(i, EIGEN_BLAS_FUNC(amin))(int *n, RealScalar *px, int *incx)
|
||||
{
|
||||
if(*n<=0) return 0;
|
||||
Scalar* x = reinterpret_cast<Scalar*>(px);
|
||||
|
||||
DenseIndex ret;
|
||||
if(*incx==1) make_vector(x,*n).cwiseAbs().minCoeff(&ret);
|
||||
else make_vector(x,*n,std::abs(*incx)).cwiseAbs().minCoeff(&ret);
|
||||
return int(ret)+1;
|
||||
}
|
||||
|
||||
// computes a vector-vector dot product.
|
||||
Scalar EIGEN_BLAS_FUNC(dot)(int *n, RealScalar *px, int *incx, RealScalar *py, int *incy)
|
||||
{
|
||||
|
Loading…
Reference in New Issue
Block a user