home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21eb.zip / octave / SCRIPTS.ZIP / scripts.fat / control / fir2sys.m < prev    next >
Text File  |  1999-04-29  |  2KB  |  61 lines
  1. # Copyright (C) 1996,1998 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 sys = fir2sys (num,tsam,inname,outname)
  20.   #
  21.   # outsys = fir2sys(num,{tsam,inname,outname})
  22.   # construct a system data structure from FIR description
  23.   # inputs:
  24.   #   num: vector of coefficients [c0 c1 ... cn] of the SISO FIR transfer
  25.   #        function C(z) = c0 + c1*z^{-1} + c2*z^{-2} + ... + znz^{-n}
  26.   #   tsam: sampling time (default: 1)
  27.   #   inname: name of input signal 
  28.   #   outname: name of output signal
  29.   # outputs:  sys (system data structure)
  30.    
  31.   #  Written by R. Bruce Tenison  July 29, 1994
  32.   #  Name changed to TF2SYS July 1995
  33.   #  updated for new system data structure format July 1996
  34.   # adapted from tf2sys july 1996
  35.  
  36.   save_val = implicit_str_to_num_ok;
  37.   implicit_str_to_num_ok = 1;
  38.  
  39.   #  Test for the correct number of input arguments
  40.   if (nargin < 1 | nargin > 4)
  41.     usage('sys=fir2sys(num[,tsam,inname,outname])');
  42.   endif
  43.  
  44.   # let tf2sys do the argument checking
  45.   den = [1,zeros(1,length(num)-1)];
  46.  
  47.   # check sampling interval (if any)
  48.   if(nargin <= 1)               tsam = 1;        # default 
  49.   elseif (isempty(tsam))        tsam = 1;        endif
  50.  
  51.   #  Set name of input
  52.   if(nargin < 3)  inname = sysdefio(1,"u");        endif
  53.  
  54.   #  Set name of output
  55.   if(nargin < 4)  outname = sysdefio(1,"y");     endif
  56.  
  57.   sys = tf2sys(num,den,tsam,inname,outname);
  58.   
  59.   implicit_str_to_num_ok = save_val;
  60. endfunction
  61.