


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