Home > classes > @ao > subsasgn.m

subsasgn

PURPOSE ^

SUBSASGN define index assignment for analysis object properties.

SYNOPSIS ^

function A = subsasgn(A, S, B)

DESCRIPTION ^

 SUBSASGN define index assignment for analysis object properties.

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

 DESCRIPTION: SUBSASGN define index assignment for analysis object properties.

 EXAMPLES:    All possible assignments are possible.

 VERSION:     $Id: subsasgn.m,v 1.4 2007/11/23 12:11:08 ingo Exp $

 HISTORY:     31-01-07 M Hewitson
                 Creation

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

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function A = subsasgn(A, S, B)
0002 % SUBSASGN define index assignment for analysis object properties.
0003 %
0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0005 %
0006 % DESCRIPTION: SUBSASGN define index assignment for analysis object properties.
0007 %
0008 % EXAMPLES:    All possible assignments are possible.
0009 %
0010 % VERSION:     $Id: subsasgn.m,v 1.4 2007/11/23 12:11:08 ingo Exp $
0011 %
0012 % HISTORY:     31-01-07 M Hewitson
0013 %                 Creation
0014 %
0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0016 
0017 VERSION = '$Id: subsasgn.m,v 1.4 2007/11/23 12:11:08 ingo Exp $';
0018 
0019 % Check if this is a call for parameters or for the cvs-version number
0020 if nargin == 2
0021   if isa(A, 'ao') && ischar(S)
0022     in = char(S);
0023     if strcmp(in, 'Params')
0024       A = plist();
0025       return
0026     elseif strcmp(in, 'Version')
0027       A = VERSION;
0028       return
0029     end
0030   end
0031 end
0032 
0033 h = history('set', VERSION, plist(S(end).subs, B));
0034 h = set(h, 'inhists', A.hist);
0035 h = set(h, 'invars',  cellstr(inputname(1)));
0036 
0037 A.hist = h;
0038 
0039 A = builtin ('subsasgn', A, S, B);
0040 
0041 % END

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