home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21eb.zip / octave / SCRIPTS.ZIP / scripts / control / ltifr.m < prev    next >
Text File  |  1999-03-05  |  2KB  |  86 lines
  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 out = ltifr(a,b,w)
  20.   #ltifr:  Linear time invarient frequency response of SISO systems
  21.   # out = ltifr(A,B,w)
  22.   # user enters the A and B matrices
  23.   #
  24.   # out = ltifr(sys,w)
  25.   # user enters the system, SYS
  26.   #
  27.   # this function takes the system matrices, A and B and
  28.   # returns:               -1
  29.   #          G(s) = (jw I-A) B
  30.   #
  31.   # for complex frequencies s = jw. 
  32.  
  33.   # R. B. Tenison, D. Clem, A. S. Hodel, July 1995
  34.   # updated by John Ingram August 1996 for system format
  35.   
  36.   if ((nargin < 2) || (nargin > 3))
  37.     error("incorrect number of input arguments");
  38.   endif
  39.  
  40.   if (nargin == 2)
  41.     sys = a;
  42.     w = b;
  43.     if(!is_struct(sys))
  44.       error("two arguments: 1st must be a system data structure");
  45.     endif
  46.  
  47.     if (!is_vector(w))
  48.       error("w must be a vector");
  49.     endif
  50.     
  51.     [nn,nz,mm,pp] = sysdimensions(sys);
  52.     if(mm != 1)       error("sys has %d > 1 inputs",mm); endif
  53.  
  54.     [a,b] = sys2ss(sys);
  55.  
  56.   else  
  57.  
  58.     if (columns(a) != rows(b)),
  59.       error("ltifr:  A(%dx%d), B(%dx%d) not compatibly dimensioned", ...
  60.     rows(a), columns(a), rows(b), columns(b));
  61.     endif
  62.  
  63.     if(columns(b) != 1)
  64.       error("ltifr: b(%dx%d) must be a single column vector", ...
  65.     rows(b),columns(b));
  66.     endif
  67.   
  68.     if (!is_square(a))
  69.       error("ltifr:  A(%dx$d) must be square.",rows(a),columns(a))
  70.     endif
  71.  
  72.   endif
  73.  
  74.   if (!is_vector(w))
  75.     error("w must be a vector");
  76.   endif
  77.  
  78.   ey = eye(size(a));
  79.   lw = length(w);
  80.   out = ones(columns(a),lw);
  81.  
  82.   for ii=1:lw,
  83.     out(:,ii) = (w(ii)*ey-a)\b;
  84.   endfor
  85. endfunction
  86.