Mercurial > hg > octave-nkf

comparison scripts/control/system/__tf2sysl__.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents 3e48e60a1f8b
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
22 ## strip leading zero coefficients to get the true polynomial length 22 ## strip leading zero coefficients to get the true polynomial length
23 ## @end deftypefn 23 ## @end deftypefn
24 24
25 function vec = __tf2sysl__ (vec) 25 function vec = __tf2sysl__ (vec)
26 26
27 while (length (vec) > 1 && vec(1) == 0) 27 error("__tf2sysl__ no longer used; use the tf function.");
28 vec = vec (2:end);
29 endwhile
30
31 if (vec(1) == 0)
32 warning ("tf2sys: polynomial has no nonzero coefficients!")
33 endif
34 28
35 endfunction 29 endfunction