


RESP shadows miir/iirResp.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: RESP shadows miir/iirResp.
The parameter with key 'filter' is extracted and
used to call miir/resp.
CALL: resp(plist);
filt_resp = resp(plist);
VERSION: $Id: resp.m,v 1.3 2008/01/02 17:58:51 ingo Exp $
HISTORY: 12-04-2007 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function [varargout] = resp(varargin) 0002 % RESP shadows miir/iirResp. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: RESP shadows miir/iirResp. 0007 % The parameter with key 'filter' is extracted and 0008 % used to call miir/resp. 0009 % 0010 % CALL: resp(plist); 0011 % filt_resp = resp(plist); 0012 % 0013 % VERSION: $Id: resp.m,v 1.3 2008/01/02 17:58:51 ingo Exp $ 0014 % 0015 % HISTORY: 12-04-2007 M Hewitson 0016 % Creation 0017 % 0018 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0019 0020 VERSION = '$Id: resp.m,v 1.3 2008/01/02 17:58:51 ingo Exp $'; 0021 0022 %%%%% 'Params' && 'Version' Call %%%%% 0023 if nargin == 2 0024 if isa(varargin{1}, 'plist') && strcmp(varargin{2}, 'Params') 0025 varargout{1} = plist(); 0026 return 0027 elseif isa(varargin{1}, 'plist') && strcmp(varargin{2}, 'Version') 0028 varargout{1} = VERSION; 0029 return 0030 end 0031 end 0032 0033 0034 pl = varargin{1}; 0035 if ~isa(pl, 'plist') 0036 error('### iirResp needs an input plist.') 0037 end 0038 0039 filt = find(pl, 'filter'); 0040 if isempty(filt) 0041 error('### input parameter list must contain a ''filter'' parameter.'); 0042 end 0043 0044 % compute response 0045 b = resp(filt, pl); 0046 0047 % Outputs 0048 if nargout == 0 0049 plot(b) 0050 end 0051 0052 if nargout == 1 0053 varargout{1} = b; 0054 end 0055 if nargout > 1 0056 error('incorrect output arguments'); 0057 end 0058 0059 0060 0061 0062 0063 % END