dengzhihao
/
CMSIS-DSP
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert some part of PR #95

Browse Source 
Removed long doubles.
pull/100/head
Christophe Favergeon 3 years ago
parent fca49d69ae
commit af5294db09
9 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File

2
Source/DistanceFunctions/arm_cosine_distance_f64.c
Unescape Escape View File

@ -59,7 +59,7 @@ float64_t arm_cosine_distance_f64(const float64_t *pA,const float64_t *pB, uint3
arm_dot_prod_f64(pA,pB,blockSize,&dot); arm_dot_prod_f64(pA,pB,blockSize,&dot);
tmp = sqrt(pwra * pwrb); tmp = sqrt(pwra * pwrb);
return(1.0L - dot / tmp); return(1.0 - dot / tmp);
} }

4
Source/MatrixFunctions/arm_householder_f64.c
Unescape Escape View File

@ -93,12 +93,12 @@ float64_t arm_householder_f64(
beta = alpha * alpha + x1norm2; beta = alpha * alpha + x1norm2;
beta=sqrt(beta); beta=sqrt(beta);
if (alpha > 0.0L) if (alpha > 0.0)
{ {
beta = -beta; beta = -beta;
} }
r = 1.0L / (alpha -beta); r = 1.0 / (alpha -beta);
arm_scale_f64(pOut,r,pOut,blockSize); arm_scale_f64(pOut,r,pOut,blockSize);
pOut[0] = 1.0; pOut[0] = 1.0;

8
Source/MatrixFunctions/arm_mat_cholesky_f64.c
Unescape Escape View File

@ -192,12 +192,12 @@ arm_status arm_mat_cholesky_f64(
pG[j * n + i] -= sum; pG[j * n + i] -= sum;
} }
if (pG[i * n + i] <= 0.0L) if (pG[i * n + i] <= 0.0)
{ {
return(ARM_MATH_DECOMPOSITION_FAILURE); return(ARM_MATH_DECOMPOSITION_FAILURE);
} }
invSqrtVj = 1.0L/sqrt(pG[i * n + i]); invSqrtVj = 1.0/sqrt(pG[i * n + i]);
SCALE_COL_F64(pDst,i,invSqrtVj,i); SCALE_COL_F64(pDst,i,invSqrtVj,i);
} }
@ -254,12 +254,12 @@ arm_status arm_mat_cholesky_f64(
} }
} }
if (pG[i * n + i] <= 0.0L) if (pG[i * n + i] <= 0.0)
{ {
return(ARM_MATH_DECOMPOSITION_FAILURE); return(ARM_MATH_DECOMPOSITION_FAILURE);
} }
invSqrtVj = 1.0L/sqrt(pG[i * n + i]); invSqrtVj = 1.0/sqrt(pG[i * n + i]);
SCALE_COL_F64(pDst,i,invSqrtVj,i); SCALE_COL_F64(pDst,i,invSqrtVj,i);
} }

12
Source/MatrixFunctions/arm_mat_inverse_f64.c
Unescape Escape View File

@ -61,7 +61,7 @@ arm_status arm_mat_inverse_f64(
uint32_t numCols = pSrc->numCols; /* Number of Cols in the matrix */ uint32_t numCols = pSrc->numCols; /* Number of Cols in the matrix */
float64_t pivot = 0.0L, newPivot=0.0L; /* Temporary input values */ float64_t pivot = 0.0, newPivot=0.0; /* Temporary input values */
uint32_t selectedRow,pivotRow,i, rowNb, rowCnt, flag = 0U, j,column; /* loop counters */ uint32_t selectedRow,pivotRow,i, rowNb, rowCnt, flag = 0U, j,column; /* loop counters */
arm_status status; /* status of matrix inverse */ arm_status status; /* status of matrix inverse */
@ -182,7 +182,7 @@ arm_status arm_mat_inverse_f64(
/* Check if there is a non zero pivot element to /* Check if there is a non zero pivot element to
* replace in the rows below */ * replace in the rows below */
if ((pivot != 0.0L) && (selectedRow != column)) if ((pivot != 0.0) && (selectedRow != column))
{ {
/* Loop over number of columns /* Loop over number of columns
* to the right of the pilot element */ * to the right of the pilot element */
@ -198,14 +198,14 @@ arm_status arm_mat_inverse_f64(
/* Update the status if the matrix is singular */ /* Update the status if the matrix is singular */
if ((flag != 1U) && (pivot == 0.0L)) if ((flag != 1U) && (pivot == 0.0))
{ {
return ARM_MATH_SINGULAR; return ARM_MATH_SINGULAR;
} }
/* Pivot element of the row */ /* Pivot element of the row */
pivot = 1.0L / pivot; pivot = 1.0 / pivot;
SCALE_ROW_F64(pSrc,column,pivot,pivotRow); SCALE_ROW_F64(pSrc,column,pivot,pivotRow);
SCALE_ROW_F64(pDst,0,pivot,pivotRow); SCALE_ROW_F64(pDst,0,pivot,pivotRow);
@ -241,12 +241,12 @@ arm_status arm_mat_inverse_f64(
/* Set status as ARM_MATH_SUCCESS */ /* Set status as ARM_MATH_SUCCESS */
status = ARM_MATH_SUCCESS; status = ARM_MATH_SUCCESS;
if ((flag != 1U) && (pivot == 0.0L)) if ((flag != 1U) && (pivot == 0.0))
{ {
pIn = pSrc->pData; pIn = pSrc->pData;
for (i = 0; i < numRows * numCols; i++) for (i = 0; i < numRows * numCols; i++)
{ {
if (pIn[i] != 0.0L) if (pIn[i] != 0.0)
break; break;
} }

2
Source/MatrixFunctions/arm_mat_ldlt_f64.c
Unescape Escape View File

@ -125,7 +125,7 @@ arm_status arm_mat_ldlt_f64(
a = pA[k*n+k]; a = pA[k*n+k];
if (fabs(a) < 1.0e-18L) if (fabs(a) < 1.0e-18)
{ {
fullRank = 0; fullRank = 0;

6
Source/MatrixFunctions/arm_mat_solve_lower_triangular_f64.c
Unescape Escape View File

@ -108,7 +108,7 @@ arm_status arm_mat_solve_lower_triangular_f64(
vecA = vfmsq_f64(vecA,vdupq_n_f64(pLT[n*i + k]),vecX); vecA = vfmsq_f64(vecA,vdupq_n_f64(pLT[n*i + k]),vecX);
} }
if (pLT[n*i + i]==0.0L) if (pLT[n*i + i]==0.0)
{ {
return(ARM_MATH_SINGULAR); return(ARM_MATH_SINGULAR);
} }
@ -131,7 +131,7 @@ arm_status arm_mat_solve_lower_triangular_f64(
tmp -= lt_row[k] * pX[cols*k+j]; tmp -= lt_row[k] * pX[cols*k+j];
} }
if (lt_row[i]==0.0L) if (lt_row[i]==0.0)
{ {
return(ARM_MATH_SINGULAR); return(ARM_MATH_SINGULAR);
} }
@ -206,7 +206,7 @@ arm_status arm_mat_solve_lower_triangular_f64(
tmp -= lt_row[k] * pX[cols*k+j]; tmp -= lt_row[k] * pX[cols*k+j];
} }
if (lt_row[i]==0.0L) if (lt_row[i]==0.0)
{ {
return(ARM_MATH_SINGULAR); return(ARM_MATH_SINGULAR);
} }

6
Source/MatrixFunctions/arm_mat_solve_upper_triangular_f64.c
Unescape Escape View File

@ -100,7 +100,7 @@ arm_status arm_mat_solve_upper_triangular_f64(
vecA = vfmsq_f64(vecA,vdupq_n_f64(pUT[n*i + k]),vecX); vecA = vfmsq_f64(vecA,vdupq_n_f64(pUT[n*i + k]),vecX);
} }
if (pUT[n*i + i]==0.0L) if (pUT[n*i + i]==0.0)
{ {
return(ARM_MATH_SINGULAR); return(ARM_MATH_SINGULAR);
} }
@ -125,7 +125,7 @@ arm_status arm_mat_solve_upper_triangular_f64(
tmp -= ut_row[k] * pX[cols*k+j]; tmp -= ut_row[k] * pX[cols*k+j];
} }
if (ut_row[i]==0.0L) if (ut_row[i]==0.0)
{ {
return(ARM_MATH_SINGULAR); return(ARM_MATH_SINGULAR);
} }
@ -194,7 +194,7 @@ arm_status arm_mat_solve_upper_triangular_f64(
tmp -= ut_row[k] * pX[cols*k+j]; tmp -= ut_row[k] * pX[cols*k+j];
} }
if (ut_row[i]==0.0L) if (ut_row[i]==0.0)
{ {
return(ARM_MATH_SINGULAR); return(ARM_MATH_SINGULAR);
} }

2
Source/TransformFunctions/arm_cfft_f64.c
Unescape Escape View File

@ -297,7 +297,7 @@ void arm_cfft_f64(
if (ifftFlag == 1U) if (ifftFlag == 1U)
{ {
invL = 1.0L / (float64_t)L; invL = 1.0 / (float64_t)L;
/* Conjugate and scale output data */ /* Conjugate and scale output data */
pSrc = p1; pSrc = p1;
for(l=0; l<L; l++) for(l=0; l<L; l++)

16
Source/TransformFunctions/arm_rfft_fast_f64.c
Unescape Escape View File

@ -63,8 +63,8 @@ void stage_rfft_f64(
// real(tw * (xB - xA)) = twR * (xBR - xAR) - twI * (xBI - xAI); // real(tw * (xB - xA)) = twR * (xBR - xAR) - twI * (xBI - xAI);
// imag(tw * (xB - xA)) = twI * (xBR - xAR) + twR * (xBI - xAI); // imag(tw * (xB - xA)) = twI * (xBR - xAR) + twR * (xBI - xAI);
*pOut++ = 0.5L * ( t1a + t1b ); *pOut++ = 0.5 * ( t1a + t1b );
*pOut++ = 0.5L * ( t1a - t1b ); *pOut++ = 0.5 * ( t1a - t1b );
// XA(1) = 1/2*( U1 - imag(U2) + i*( U1 +imag(U2) )); // XA(1) = 1/2*( U1 - imag(U2) + i*( U1 +imag(U2) ));
pB = p + 2*k; pB = p + 2*k;
@ -105,8 +105,8 @@ void stage_rfft_f64(
p2 = twR * t1b; p2 = twR * t1b;
p3 = twI * t1b; p3 = twI * t1b;
*pOut++ = 0.5L * (xAR + xBR + p0 + p3 ); //xAR *pOut++ = 0.5 * (xAR + xBR + p0 + p3 ); //xAR
*pOut++ = 0.5L * (xAI - xBI + p1 - p2 ); //xAI *pOut++ = 0.5 * (xAI - xBI + p1 - p2 ); //xAI
pA += 2; pA += 2;
pB -= 2; pB -= 2;
@ -135,8 +135,8 @@ void merge_rfft_f64(
pCoeff += 2 ; pCoeff += 2 ;
*pOut++ = 0.5L * ( xAR + xAI ); *pOut++ = 0.5 * ( xAR + xAI );
*pOut++ = 0.5L * ( xAR - xAI ); *pOut++ = 0.5 * ( xAR - xAI );
pB = p + 2*k ; pB = p + 2*k ;
pA += 2 ; pA += 2 ;
@ -164,8 +164,8 @@ void merge_rfft_f64(
// real(tw * (xA - xB)) = twR * (xAR - xBR) - twI * (xAI - xBI); // real(tw * (xA - xB)) = twR * (xAR - xBR) - twI * (xAI - xBI);
// imag(tw * (xA - xB)) = twI * (xAR - xBR) + twR * (xAI - xBI); // imag(tw * (xA - xB)) = twI * (xAR - xBR) + twR * (xAI - xBI);
*pOut++ = 0.5L * (xAR + xBR - r - s ); //xAR *pOut++ = 0.5 * (xAR + xBR - r - s ); //xAR
*pOut++ = 0.5L * (xAI - xBI + t - u ); //xAI *pOut++ = 0.5 * (xAI - xBI + t - u ); //xAI
pA += 2; pA += 2;
pB -= 2; pB -= 2;

Write Preview
Loading…
Cancel
Save