www.gusucode.com > mbcmodels 工具箱 matlab 源码程序 > mbcmodels/@mbcinputfactor/DataRange.m

    function obj = DataRange(obj,data)
%DATARANGE
%
% obj = DataRange(obj,data)

%  Copyright 2007-2014 The MathWorks, Inc. 

data = double(data);
for i=1:length(obj)
   obj(i).Range = calcDataRange(data(:,i)); 
end


function R = calcDataRange(data)
if isempty(data)
    R = [-1,1];
else
    R = [min(data,[],1),max(data,[],1)];
    if R(2)-R(1)<eps
        % handle case where all points are identical
        R = R(1)*[0.9 1.1];
        if R(2)-R(1)<eps
            R = [-1 1];
        else
            R = sort(R);
        end
    end
end