


SUBSASGN define index assignment for vectors in tsdata. M Hewitson 30-01-07 $Id: subsasgn.m,v 1.3 2007/11/23 12:11:08 ingo Exp $


0001 function ts = subsasgn(ts, index, val) 0002 0003 % SUBSASGN define index assignment for vectors in tsdata. 0004 % 0005 % M Hewitson 30-01-07 0006 % 0007 % $Id: subsasgn.m,v 1.3 2007/11/23 12:11:08 ingo Exp $ 0008 0009 VERSION = '$Id: subsasgn.m,v 1.3 2007/11/23 12:11:08 ingo Exp $'; 0010 0011 % Check if this is a call for parameters 0012 if nargin == 2 0013 if isa(ts, 'cdata') && ischar(index) 0014 in = char(index); 0015 if strcmp(in, 'Params') 0016 ts = plist(); 0017 return 0018 elseif strcmp(in, 'Version') 0019 ts = VERSION; 0020 return 0021 end 0022 end 0023 end 0024 0025 % END