view m-toolbox/classes/@smodel/inv.m @ 44:409a22968d5e
default
Add unit tests
author |
Daniele Nicolodi <nicolodi@science.unitn.it> |
date |
Tue, 06 Dec 2011 18:42:11 +0100 (2011-12-06) |
parents |
f0afece42f48 |
children |
|
line source
% INV evaluates the inverse of smodel objects.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: INV evaluates the inverse of smodel objects
%
% CALL: mdl = inv(mdl)
%
% <a href="matlab:utils.helper.displayMethodInfo('smodel', 'inv')">Parameters Description</a>
%
% VERSION: $Id: inv.m,v 1.9 2011/04/08 08:56:30 hewitson Exp $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function varargout = inv(varargin)
% Settings
operatorName = 'inv';
% Check if this is a call for parameters
if utils.helper.isinfocall(varargin{:})
varargout{1} = getInfo(varargin{3});
return
end
% Check if the method was called by another method
callerIsMethod = utils.helper.callerIsMethod;
% Collect input variable names
in_names = cell(size(varargin));
for ii = 1:nargin,in_names{ii} = inputname(ii);end
% Collect all smodels and plists
[as, smodel_invars, rest] = utils.helper.collect_objects(varargin(:), 'smodel', in_names);
pl = utils.helper.collect_objects(varargin(:), 'plist');
% Decide on a deep copy or a modify
mdls = copy(as, nargout);
% Combine plists
pl = parse(pl, getDefaultPlist());
% Apply the operator
mdls.op(operatorName);
if ~callerIsMethod
% Add history
mdls.addHistory(getInfo('None'), pl, smodel_invars, [mdls(:).hist]);
% Set name
mdls.name = [operatorName '(' mdls.name ')'];
end
% Set output
varargout{1} = mdls;
end
%--------------------------------------------------------------------------
% Get Info Object
%--------------------------------------------------------------------------
function ii = getInfo(varargin)
if nargin == 1 && strcmpi(varargin{1}, 'None')
sets = {};
pls = [];
else
sets = {'Default'};
pls = getDefaultPlist();
end
% Build info object
ii = minfo(mfilename, 'smodel', 'ltpda', utils.const.categories.op, '$Id: inv.m,v 1.9 2011/04/08 08:56:30 hewitson Exp $', sets, pls);
ii.setArgsmin(1);
end
%--------------------------------------------------------------------------
% Get Default Plist
%--------------------------------------------------------------------------
function plout = getDefaultPlist()
persistent pl;
if ~exist('pl', 'var') || isempty(pl)
pl = buildplist();
end
plout = pl;
end
function pl = buildplist()
pl = plist.EMPTY_PLIST;
end