Mercurial > hg > octave-lyh

comparison liboctave/dbleQR.cc @ 7559:07522d7dcdf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixes to QR and Cholesky updating code
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 05 Mar 2008 14:23:26 -0500
parents 40574114c514
children 0ef0f9802a37
comparison
equal deleted inserted replaced
7558:690c91f741b8 7559:07522d7dcdf8
243 octave_idx_type m = r.rows (); 243 octave_idx_type m = r.rows ();
244 octave_idx_type n = r.columns (); 244 octave_idx_type n = r.columns ();
245 245
246 if (! q.is_square ()) 246 if (! q.is_square ())
247 (*current_liboctave_error_handler) ("QR insert dimensions mismatch"); 247 (*current_liboctave_error_handler) ("QR insert dimensions mismatch");
248 else if (j < 1 || j > n) 248 else if (j < 1 || j > m)
249 (*current_liboctave_error_handler) ("QR delete index out of range"); 249 (*current_liboctave_error_handler) ("QR delete index out of range");
250 else 250 else
251 { 251 {
252 Matrix q1 (m-1, m-1); 252 Matrix q1 (m-1, m-1);
253 Matrix r1 (m-1, n); 253 Matrix r1 (m-1, n);