PZMRESP shadow function for the pzmodel/resp. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: PZMRESP shadow function for the pzmodel/resp. A parameter called 'pzmodel' is extracted and passed with the remaining parameter list to pzmodel/resp. CALL: resp_pzm = pzmresp(pl) VERSION: $Id: pzmresp.m,v 1.4 2008/02/14 08:29:09 mauro Exp $ HISTORY: 19-04-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function a = pzmresp(pl, varargin) 0002 % PZMRESP shadow function for the pzmodel/resp. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: PZMRESP shadow function for the pzmodel/resp. 0007 % A parameter called 'pzmodel' is extracted and passed with the 0008 % remaining parameter list to pzmodel/resp. 0009 % 0010 % CALL: resp_pzm = pzmresp(pl) 0011 % 0012 % VERSION: $Id: pzmresp.m,v 1.4 2008/02/14 08:29:09 mauro Exp $ 0013 % 0014 % HISTORY: 19-04-2007 M Hewitson 0015 % Creation 0016 % 0017 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0018 0019 VERSION = '$Id: pzmresp.m,v 1.4 2008/02/14 08:29:09 mauro Exp $'; 0020 CATEGORY = 'Signal Processing'; 0021 0022 %%%%% Check if this is a call for parameters %%%%% 0023 if nargin == 2 0024 if isa(pl, 'plist') && ischar(varargin{1}) 0025 in = char(varargin{1}); 0026 if strcmp(in, 'Params') 0027 a = plist; 0028 return 0029 elseif strcmp(in, 'Version') 0030 a = VERSION; 0031 return 0032 elseif strcmp(in, 'Category') 0033 a = CATEGORY; 0034 return 0035 end 0036 end 0037 end 0038 0039 pzm = find(pl, 'pzmodel'); 0040 if isempty(pzm) || ~isa(pzm, 'pzmodel') 0041 error('### no pzmodel found in parameter list.') 0042 end 0043 0044 if nargout == 0 0045 resp(pzm, pl); 0046 else 0047 a = resp(pzm, pl); 0048 end 0049 0050 % END