write_renum.m

来自「这是一个关于MATLAB的函数」· M 代码 · 共 30 行

function resp = write_renum(rs,index,data)
% Copyright 2002 The MathWorks, Inc.
%   $Revision: 1.2 $  $Date: 2002/05/14 19:47:05 $

error(nargchk(2,4,nargin));
if ~ishandle(rs),
    error('First Parameter must be a RENUM Handle.');
end
if nargin==2,   
    data = index;
end

if isempty(strmatch(data,rs.label,'exact'))
    error(['Input label ''' data ''' does not match any defined enumerated value']);
end

if ischar(data),
    data = equivalent(rs,data);
elseif iscellstr(data),
    data = equivalent(rs,data{1});
end

if nargin==2,
    write_rnumeric(rs,data);
else
    write_rnumeric(rs,index,data);
end
    
% [EOF] write_renum.m