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.2 2007/07/18 13:58:45 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.2 2007/07/18 13:58:45 ingo Exp $ 0014 % 0015 % HISTORY: 12-04-2007 M Hewitson 0016 % Creation 0017 % 0018 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0019 0020 pl = varargin{1}; 0021 if ~isa(pl, 'plist') 0022 error('### iirResp needs an input plist.') 0023 end 0024 0025 filt = find(pl, 'filter'); 0026 if isempty(filt) 0027 error('### input parameter list must contain a ''filter'' parameter.'); 0028 end 0029 0030 % compute response 0031 b = resp(filt, pl); 0032 0033 % Outputs 0034 if nargout == 0 0035 plot(b) 0036 end 0037 0038 if nargout == 1 0039 varargout{1} = b; 0040 end 0041 if nargout > 1 0042 error('incorrect output arguments'); 0043 end 0044 0045 0046 0047 0048 0049 % END