Mercurial > octave-nkf

comparison scripts/control/system/sysreorder.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children 59dcf01bb3e3
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
42 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 42 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
43 ## Created: August 1995 43 ## Created: August 1995
44 44
45 function pv = sysreorder (vlen, list) 45 function pv = sysreorder (vlen, list)
46 46
47 if (nargin != 2)
48 print_usage ();
49 endif
50
47 ## disp('sysreorder: entry') 51 ## disp('sysreorder: entry')
48 52
49 pv = 1:vlen; 53 pv = 1:vlen;
50 ## make it a row vector 54 ## make it a row vector
51 list = reshape(list,1,length(list)); 55 list = reshape(list,1,length(list));