subsasgn.m

非线型因素分析matlab仿真程序包

function a = subsasgn(a, index, b)
% SUBSASGN implement subscripted assignment for probdists

% Copyright (C) 1999-2004 Antti Honkela, Harri Valpola,
% and Xavier Giannakopoulos.
%
% This package comes with ABSOLUTELY NO WARRANTY; for details
% see License.txt in the program package.  This is free software,
% and you are welcome to redistribute it under certain conditions;
% see License.txt for details.

% Handle possible other references recursively
if (length(index) > 1)
  b = subsasgn(subsref(a, index(1)), index(2:end), b);
end

switch index(1).type
 case '()'
  a.expection(index(1).subs{:})=b.expection;
  a.variance(index(1).subs{:})=b.variance;
 case '.'
  switch index(1).subs
   case 'e'
    a.expection = b;
   case 'var'
    a.variance = b;
   otherwise
    error(sprintf('Probdist object does not have element %s', index(1).subs))
  end
 
 otherwise
  error('Unsupperted function')
end