www.gusucode.com > rctutil 工具箱 matlab源码程序 > rctutil/private/goptvl.m

    % function val = goptvl(opt,tag,defval,nfval)

%   Copyright 1991-2006 MUSYN Inc. and The MathWorks, Inc.

function val = goptvl(opt,tag,defval,nfval)

val = nfval;
if any(opt==tag(1))
    loc = find(opt==tag(1));
    if length(opt)>loc
        %val = str2double(opt(loc+1));
                
        % PJS:  mod so that val can be more than one digit
        tmp = [(opt(loc+1:end)>=48) & (opt(loc+1:end)<=57) 0];
        idx = min(find( tmp==0 ) )-1;
        val = str2double( opt(loc+1:loc+idx) );        
        if isnan(val)
            val = defval;
        end
    else
        val = defval;
    end
end