www.gusucode.com > mbcdata 工具箱 matlab 源码程序 > mbcdata/@cgoppoint/setname.m

    function out = setname(expr , str)
%SETNAME

%  Copyright 2000-2004 The MathWorks, Inc. and Ford Global Technologies, Inc.



if ~isa(str , 'char') | isempty(str)
	expr.name = '';
    out = expr;
else
	
	num=double(str);
	if num(1)>=48 & num(1)<=57
		str = ['A',str];
	end
	
	if length(str)>namelengthmax 
		str=str(1:namelengthmax);
        num=num(1:namelengthmax);
	end
	illegal = [32:47 58:64 91:94 96 123:126];
	ind = find(ismember(num,illegal));
	str(ind) = '';
	expr.name = str;
	out = expr;
end