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.9 2008/02/25 18:06:31 ingo Exp $ HISTORY: 31-01-07 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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.9 2008/02/25 18:06:31 ingo Exp $ 0011 % 0012 % HISTORY: 31-01-07 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 VERSION = '$Id: subsasgn.m,v 1.9 2008/02/25 18:06:31 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 elseif strcmp(in, 'Category') 0030 CATEGORY = 'Internal'; 0031 A = CATEGORY; 0032 return 0033 end 0034 end 0035 end 0036 0037 % h = history('set', VERSION, plist(S(end).subs, B)); 0038 % h.inhists = A.hist; 0039 % h.invars = cellstr(inputname(1)); 0040 % A.hist = h; 0041 0042 if isempty(A) 0043 A = ao(); 0044 end 0045 0046 A = builtin ('subsasgn', A, S, B); 0047 0048 % END