zscale.m

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

function [zs, unit]=zscale(header)
%Zscale Return the image Z scale

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

zs=getparameter(header, 'Z scale',1);
unit='';
if zs~=inf
  if isstr(zs)
    [scan_num,r]=strtok(zs, ' ');
    zs= str2num(scan_num);
    unit=strtok(r, ' ');
  else
    i=zs(1)+2;
	zs=zs(i);
  end
end

return