Mercurial > hg > octave-nkf

diff scripts/special-matrix/toeplitz.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/special-matrix/toeplitz.m
+++ b/scripts/special-matrix/toeplitz.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,7 +32,7 @@
   if (nargin == 1)
     r = c;
   elseif (nargin != 2)
-    error ("usage: toeplitz (c, r)");
+    usage ("toeplitz (c, r)");
   endif
 
   [c_nr, c_nc] = size (c);
@@ -51,7 +51,7 @@
   endif
 
   if (r (1) != c (1))
-    disp ("Column wins diagonal conflict");
+    warning ("toeplitz: column wins diagonal conflict");
   endif
 
 # This should probably be done with the colon operator...