Mercurial > hg > octave-avbm

comparison scripts/linear-algebra/cond.m @ 2311:2b5788792cad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-11 20:18:38 by jwe]
author jwe
date Thu, 11 Jul 1996 20:18:38 +0000
parents 5cffc4b8de57
children 5ca126254d15
comparison
equal deleted inserted replaced
2310:e2a8f216373d 2311:2b5788792cad
15 ### You should have received a copy of the GNU General Public License 15 ### You should have received a copy of the GNU General Public License
16 ### along with Octave; see the file COPYING. If not, write to the Free 16 ### along with Octave; see the file COPYING. If not, write to the Free
17 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA 17 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
18 ### 02111-1307, USA. 18 ### 02111-1307, USA.
19 19
20 ## usage: cond (a)
21 ##
22 ## Return the condition number of a, computed using the singular values
23 ## of a.
24 ##
25 ## See also: norm, svd
26
20 function retval = cond (a) 27 function retval = cond (a)
21
22 ## usage: cond (a)
23 ##
24 ## Return the condition number of a, computed using the singular values
25 ## of a.
26 ##
27 ## See also: norm, svd
28 28
29 if (nargin == 1) 29 if (nargin == 1)
30 [nr, nc] = size (a); 30 [nr, nc] = size (a);
31 if (nr == 0 && nc == 0) 31 if (nr == 0 && nc == 0)
32 if (strcmp (propagate_empty_matrices, "false")) 32 if (strcmp (propagate_empty_matrices, "false"))