Mercurial > hg > octave-lyh

diff scripts/linear-algebra/cond.m @ 904:3470f1e25a79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-09 21:22:15 by jwe]
author jwe
date Wed, 09 Nov 1994 21:22:15 +0000
parents 16a24e76d6e0
children 3f257ab07921
line wrap: on
line diff
--- a/scripts/linear-algebra/cond.m
+++ b/scripts/linear-algebra/cond.m
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 John W. Eaton
+# Copyright (C) 1993, 1994 John W. Eaton
 # 
 # This file is part of Octave.
 # 
@@ -32,14 +32,14 @@
         error ("cond: empty matrix is invalid as argument");
       endif
       if (strcmp (propagate_empty_matrices, "warn"))
-        printf ("warning: cond: argument is empty matrix\n");
+        warning ("cond: argument is empty matrix\n");
       endif
       retval = 0.0;
     endif
     sigma = svd (a);
     retval = sigma (1) / sigma (length (sigma));
   else
-    error ("usage: cond (a)");
+    usage ("cond (a)");
   endif
 
 endfunction