Mercurial > octave-nkf

comparison scripts/control/system/tf2ss.m @ 7137:38fe664f0ef1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 20:26:32 by jwe]
author jwe
date Thu, 08 Nov 2007 20:26:32 +0000
parents 59dcf01bb3e3
children
comparison
equal deleted inserted replaced
7136:59dcf01bb3e3 7137:38fe664f0ef1
91 num = vec (num)'; 91 num = vec (num)';
92 den = vec (den)'; 92 den = vec (den)';
93 nn = length (num); 93 nn = length (num);
94 nd = length (den); 94 nd = length (den);
95 if (nn > nd) 95 if (nn > nd)
96 error ("deg(num)=%d > deg(den)= %d", nn, nd)); 96 error ("deg(num)=%d > deg(den)= %d", nn, nd);
97 endif 97 endif
98 98
99 ## Check sizes 99 ## Check sizes
100 if (nd == 1) 100 if (nd == 1)
101 a = b = c = []; 101 a = b = c = [];