Mercurial > octave-nkf

comparison scripts/control/system/tf2zp.m @ 5959:dcd376102ac1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-08-23 19:09:30 by jwe]
author jwe
date Wed, 23 Aug 2006 19:09:31 +0000
parents 4c8a2e4e0717
children 93c65f2a5668
comparison
equal deleted inserted replaced
5958:85c7dc4afe6b 5959:dcd376102ac1
41 zer = roots (num); 41 zer = roots (num);
42 else 42 else
43 zer = []; 43 zer = [];
44 endif 44 endif
45 else 45 else
46 error ("Incorrect number of input arguments"); 46 print_usage ();
47 endif 47 endif
48 48
49 [a, b, c, d] = tf2ss (num, den); 49 k = num(1) / den(1);
50 [dum, k] = tzero (a, b, c, d);
51 50
52 endfunction 51 endfunction