0001 function options=set_default_option(options,field,default) 0002 if ~isfield(options,field) 0003 if sscanf(version('-release'),'%d') < 13 0004 options = setfield(options,field,default); 0005 else 0006 eval('options.(field) = default;'); 0007 end 0008 end 0009 0010 % 06/07/03 MJ added ; to eval expression