SUBSASGN define index assignment for fsdata properties. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: SUBSASGN define index assignment for fsdata properties. EXAMPLES: All possible assignment are possible. VERSION: $Id: subsasgn.m,v 1.6 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 fsdata properties. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: SUBSASGN define index assignment for fsdata 0007 % properties. 0008 % 0009 % EXAMPLES: All possible assignment are possible. 0010 % 0011 % VERSION: $Id: subsasgn.m,v 1.6 2008/02/25 18:06:31 ingo Exp $ 0012 % 0013 % HISTORY: 31-01-07 M Hewitson 0014 % Creation 0015 % 0016 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0017 0018 % Check if this is a call for parameters 0019 if nargin == 2 0020 if isa(A, 'fsdata') && ischar(S) 0021 in = char(S); 0022 if strcmp(in, 'Params') 0023 A = plist; 0024 return 0025 elseif strcmp(in, 'Version') 0026 VERSION = '$Id: subsasgn.m,v 1.6 2008/02/25 18:06:31 ingo Exp $'; 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 if isempty(A) 0038 A = fsdata(); 0039 end 0040 0041 A = builtin ('subsasgn', A, S, B); 0042