zrange.m

来自「matlab处理图像的一些基本方法。其中有一部分mex程序需要安装编译」· M 代码 · 共 41 行

function range=zrange(zarg)
%ZRANGE Return or define the image zrange

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% [e-mail],    [e-mail]
%

global I ed_zrange1 ed_zrange2


if nargin == 0
  range=[0 0];
  
  r1=sscanf(get(ed_zrange1, 'string'), '%f')';
  if isempty(r1)
    r1=min(min(I));
    set(ed_zrange1, 'string', sprintf('%f', r1));
  end
  
  r2=sscanf(get(ed_zrange2, 'string'), '%f')';
  if isempty(r2)
    r2=max(max(I));
    set(ed_zrange2, 'string', sprintf('%f', r2));
  end
  range=[r1 r2];

end

if nargin == 1
  if ~isempty(zarg)
    set(ed_zrange1, 'string', sprintf('%f', zarg(1)));
  end
  if length(zarg>1)
    set(ed_zrange2, 'string', sprintf('%f', zarg(2)));
  end
end


return