Home > classes > @plist > pzmresp.m

pzmresp

PURPOSE ^

PZMRESP shadow function for the pzmodel/resp.

SYNOPSIS ^

function a = pzmresp(pl, varargin)

DESCRIPTION ^

 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.3 2007/12/12 18:45:09 ingo Exp $

 HISTORY:     19-04-2007 M Hewitson
                 Creation

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

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.3 2007/12/12 18:45:09 ingo Exp $
0013 %
0014 % HISTORY:     19-04-2007 M Hewitson
0015 %                 Creation
0016 %
0017 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0018 
0019 VERSION  = '$Id: pzmresp.m,v 1.3 2007/12/12 18:45:09 ingo Exp $';
0020 
0021 %%%%%   Check if this is a call for parameters   %%%%%
0022 if nargin == 2
0023   if isa(pl, 'plist') && ischar(varargin{1})
0024     in = char(varargin{1});
0025     if strcmp(in, 'Params')
0026       a = plist;
0027       return
0028     elseif strcmp(in, 'Version')
0029       a = VERSION;
0030       return
0031     end
0032   end
0033 end
0034 
0035 pzm = find(pl, 'pzmodel');
0036 if isempty(pzm) || ~isa(pzm, 'pzmodel')
0037   error('### no pzmodel found in parameter list.')
0038 end
0039 
0040 if nargout == 0
0041   resp(pzm, pl);
0042 else
0043   a = resp(pzm, pl);
0044 end
0045 
0046 % END

Generated on Tue 22-Jan-2008 10:39:13 by m2html © 2003