SUBSASGN define index assignment for parameter properties. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: SUBSASGN define index assignment for parameter properties. EXAMPLES: All possible assignment are possible. VERSION: $Id: subsasgn.m,v 1.7 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 parameter properties. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: SUBSASGN define index assignment for parameter properties. 0007 % 0008 % EXAMPLES: All possible assignment are possible. 0009 % 0010 % VERSION: $Id: subsasgn.m,v 1.7 2008/02/25 18:06:31 ingo Exp $ 0011 % 0012 % HISTORY: 31-01-07 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 % Check if this is a call for parameters 0018 if ischar(S) 0019 in = char(S); 0020 if strcmp(in, 'Params') 0021 A = plist; 0022 return 0023 elseif strcmp(in, 'Version') 0024 VERSION = '$Id: subsasgn.m,v 1.7 2008/02/25 18:06:31 ingo Exp $'; 0025 A = VERSION; 0026 return 0027 elseif strcmp(in, 'Category') 0028 CATEGORY = 'Internal'; 0029 A = CATEGORY; 0030 return 0031 end 0032 end 0033 0034 if isempty(A) 0035 A = param(); 0036 end 0037 0038 A = builtin ('subsasgn', A, S, B); 0039