setfield_snn.m

来自「神经网络的工具箱, 神经网络的工具箱,」· M 代码 · 共 27 行

function t = setfield_snn(s, field, value)
%SETFIELD_SNN Set field in structure.
%
% new_struct = setfield_snn(old_struct, field_to_set, value)
%

%if ~isa(s,'struct'), error('S must be a structure array.'); end
if ~isstr(field), error('field must be string.'); end

firstpoint = min(find(field == '.'));
if isempty(firstpoint)
   %t = setfield(s, field, value); 
   t = subsasgn(s, substruct('.', field), value); 
else
   field_head = field(1:(firstpoint-1)); 
   field_sub = field(firstpoint+1:size(field,2)); 

   if isfield(s, field_head)
      s_sub = getfield(s, field_head); 
   else
      s_sub = [];
   end
   s_sub = setfield_snn(s_sub, field_sub, value);
   t = subsasgn(s, substruct('.', field_head), s_sub);
end