


SUBSASGN define index assignment for history properties.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: SUBSASGN define index assignment for history
properties.
EXAMPLES: All possible assignment are possible.
VERSION: $Id: subsasgn.m,v 1.2 2008/01/07 13:54:11 ingo Exp $
HISTORY: 31-01-07 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function A = subsasgn(A, S, B) 0002 % SUBSASGN define index assignment for history properties. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: SUBSASGN define index assignment for history 0007 % properties. 0008 % 0009 % EXAMPLES: All possible assignment are possible. 0010 % 0011 % VERSION: $Id: subsasgn.m,v 1.2 2008/01/07 13:54:11 ingo Exp $ 0012 % 0013 % HISTORY: 31-01-07 M Hewitson 0014 % Creation 0015 % 0016 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0017 VERSION = '$Id: subsasgn.m,v 1.2 2008/01/07 13:54:11 ingo Exp $'; 0018 0019 % Check if this is a call for parameters 0020 if nargin == 2 0021 if isa(A, 'history') && 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 A = builtin ('subsasgn', A, S, B); 0034