Mercurial > octave-nkf
diff src/DLD-FUNCTIONS/chol.cc @ 9453:5fcf008c7c41
fix Cholesky updating with scalars
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Thu, 23 Jul 2009 20:37:56 +0200 |
| parents | 8207b833557f |
| children | 9f27172fbd1e |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/chol.cc Thu Jul 23 14:24:45 2009 -0400 +++ b/src/DLD-FUNCTIONS/chol.cc Thu Jul 23 20:37:56 2009 +0200 @@ -619,7 +619,7 @@ octave_value argr = args(0); octave_value argu = args(1); - if (argr.is_matrix_type () && argu.is_matrix_type () + if (argr.is_numeric_type () && argu.is_numeric_type () && (nargin < 3 || args(2).is_string ())) { octave_idx_type n = argr.rows (); @@ -830,7 +830,7 @@ octave_value argj = args(1); octave_value argu = args(2); - if (argr.is_matrix_type () && argu.is_matrix_type () + if (argr.is_numeric_type () && argu.is_numeric_type () && argj.is_real_scalar ()) { octave_idx_type n = argr.rows (); @@ -1003,7 +1003,7 @@ octave_value argr = args(0); octave_value argj = args(1); - if (argr.is_matrix_type () && argj.is_real_scalar ()) + if (argr.is_numeric_type () && argj.is_real_scalar ()) { octave_idx_type n = argr.rows (); octave_idx_type j = argj.scalar_value (); @@ -1141,7 +1141,7 @@ octave_value argi = args(1); octave_value argj = args(2); - if (argr.is_matrix_type () && argi.is_real_scalar () && argj.is_real_scalar ()) + if (argr.is_numeric_type () && argi.is_real_scalar () && argj.is_real_scalar ()) { octave_idx_type n = argr.rows (); octave_idx_type i = argi.scalar_value ();