Mercurial > hg > octave-terminal
changeset 8801:f3ff420fccf7
eliminate some unused static variables and functions
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 18 Feb 2009 11:20:31 -0500 |
parents | 19a3769fe716 |
children | 061780d8da1e |
files | liboctave/CMatrix.cc liboctave/ChangeLog liboctave/dMatrix.cc liboctave/fCMatrix.cc liboctave/fMatrix.cc |
diffstat | 5 files changed, 8 insertions(+), 88 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/CMatrix.cc +++ b/liboctave/CMatrix.cc @@ -2875,28 +2875,6 @@ return retval; } -// Constants for matrix exponential calculation. - -static double padec [] = -{ - 5.0000000000000000e-1, - 1.1666666666666667e-1, - 1.6666666666666667e-2, - 1.6025641025641026e-3, - 1.0683760683760684e-4, - 4.8562548562548563e-6, - 1.3875013875013875e-7, - 1.9270852604185938e-9, -}; - -static void -solve_singularity_warning (double rcon) -{ - (*current_liboctave_warning_handler) - ("singular matrix encountered in expm calculation, rcond = %g", - rcon); -} - // column vector by row vector -> matrix operations ComplexMatrix
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,11 @@ +2009-02-18 John W. Eaton <jwe@octave.org> + + * dMatrix.cc (padec, solve_singularity_warning): Delete unused + static variable and function. + * CMatrix.cc (padec, solve_singularity_warning): Ditto. + * fMatrix.cc (padec, solve_singularity_warning): Ditto. + * fCMatrix.cc (padec, solve_singularity_warning): Ditto. + 2009-02-18 Jaroslav Hajek <highegg@gmail.com> * Array.cc (Array<T>::resize (const dim_vector&)): Check for negative
--- a/liboctave/dMatrix.cc +++ b/liboctave/dMatrix.cc @@ -2520,28 +2520,6 @@ return tmp.lssolve (b, info, rank, rcon); } -// Constants for matrix exponential calculation. - -static double padec [] = -{ - 5.0000000000000000e-1, - 1.1666666666666667e-1, - 1.6666666666666667e-2, - 1.6025641025641026e-3, - 1.0683760683760684e-4, - 4.8562548562548563e-6, - 1.3875013875013875e-7, - 1.9270852604185938e-9, -}; - -static void -solve_singularity_warning (double rcon) -{ - (*current_liboctave_warning_handler) - ("singular matrix encountered in expm calculation, rcond = %g", - rcon); -} - Matrix& Matrix::operator += (const DiagMatrix& a) {
--- a/liboctave/fCMatrix.cc +++ b/liboctave/fCMatrix.cc @@ -2869,28 +2869,6 @@ return retval; } -// Constants for matrix exponential calculation. - -static float padec [] = -{ - 5.0000000000000000e-1, - 1.1666666666666667e-1, - 1.6666666666666667e-2, - 1.6025641025641026e-3, - 1.0683760683760684e-4, - 4.8562548562548563e-6, - 1.3875013875013875e-7, - 1.9270852604185938e-9, -}; - -static void -solve_singularity_warning (float rcon) -{ - (*current_liboctave_warning_handler) - ("singular matrix encountered in expm calculation, rcond = %g", - rcon); -} - // column vector by row vector -> matrix operations FloatComplexMatrix
--- a/liboctave/fMatrix.cc +++ b/liboctave/fMatrix.cc @@ -2519,28 +2519,6 @@ return tmp.lssolve (b, info, rank, rcon); } -// Constants for matrix exponential calculation. - -static float padec [] = -{ - 5.0000000000000000e-1, - 1.1666666666666667e-1, - 1.6666666666666667e-2, - 1.6025641025641026e-3, - 1.0683760683760684e-4, - 4.8562548562548563e-6, - 1.3875013875013875e-7, - 1.9270852604185938e-9, -}; - -static void -solve_singularity_warning (float rcon) -{ - (*current_liboctave_warning_handler) - ("singular matrix encountered in expm calculation, rcond = %g", - rcon); -} - FloatMatrix& FloatMatrix::operator += (const FloatDiagMatrix& a) {