Mercurial > hg > octave-nkf
comparison scripts/control/tf2sysl.m @ 3213:ba1c7cdc6090
[project @ 1998-11-06 16:15:36 by jwe]
| author | jwe |
|---|---|
| date | Fri, 06 Nov 1998 16:16:31 +0000 |
| parents | |
| children | dbcc24961c44 |
comparison
equal
deleted
inserted
replaced
| 3212:bf61c443a366 | 3213:ba1c7cdc6090 |
|---|---|
| 1 # Copyright (C) 1996 A. Scottedward Hodel | |
| 2 # | |
| 3 # This file is part of Octave. | |
| 4 # | |
| 5 # Octave is free software; you can redistribute it and/or modify it | |
| 6 # under the terms of the GNU General Public License as published by the | |
| 7 # Free Software Foundation; either version 2, or (at your option) any | |
| 8 # later version. | |
| 9 # | |
| 10 # Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 11 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 12 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 13 # for more details. | |
| 14 # | |
| 15 # You should have received a copy of the GNU General Public License | |
| 16 # along with Octave; see the file COPYING. If not, write to the Free | |
| 17 # Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 18 | |
| 19 function vec = tf2sysl(vec) | |
| 20 # vec = tf2sysl(vec) | |
| 21 # | |
| 22 # used internally in tf2sys | |
| 23 # strip leading zero coefficients to get the true polynomial length | |
| 24 | |
| 25 # $Revision: 1.1 $ | |
| 26 | |
| 27 while( (length(vec) > 1) & (vec(1) == 0) ) | |
| 28 vec = vec(2:length(vec)); | |
| 29 endwhile | |
| 30 if(vec(1) == 0) | |
| 31 warning("tf2sys: polynomial has no nonzero coefficients!") | |
| 32 endif | |
| 33 | |
| 34 endfunction |