Mercurial > octave-antonio

comparison scripts/linear-algebra/vech.m @ 11472:1740012184f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
author Rik <octave@nomad.inbox5.com>
date Sun, 09 Jan 2011 21:33:04 -0800
parents 8be05554bbd0
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11471:994e2a93a8e2 11472:1740012184f9
37 if (nargin != 1) 37 if (nargin != 1)
38 print_usage (); 38 print_usage ();
39 endif 39 endif
40 40
41 if (! issquare (x)) 41 if (! issquare (x))
42 error ("vech: x must be square"); 42 error ("vech: X must be square");
43 endif 43 endif
44 44
45 n = rows (x); 45 n = rows (x);
46 slices = cellslices (x(:), (1:n) + n*(0:n-1), n*(1:n)); 46 slices = cellslices (x(:), (1:n) + n*(0:n-1), n*(1:n));
47 v = vertcat (slices{:}); 47 v = vertcat (slices{:});