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.2 2007/07/18 13:58:45 ingo Exp $ HISTORY: 19-04-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function a = pzmresp(pl) 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.2 2007/07/18 13:58:45 ingo Exp $ 0013 % 0014 % HISTORY: 19-04-2007 M Hewitson 0015 % Creation 0016 % 0017 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0018 0019 pzm = find(pl, 'pzmodel'); 0020 if isempty(pzm) || ~isa(pzm, 'pzmodel') 0021 error('### no pzmodel found in parameter list.') 0022 end 0023 0024 a = resp(pzm, pl); 0025 0026 % END