findcoords.m

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

function A = findcoords(C, ident)
%FINDCOORDS  Returns rows of Coords that begin with the values in vector IDENT.
%
%
%    NEWCOORDS = FINDCOORDS(COORDS, IDENT)
%
%  Claudio  Oct. 16 1995

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

A=[];

if nargin <2
  error('Too few input arguments');
end
if nargin>2
  error('Too many input arguments');
end
if isempty(C)
  return;
end

for i=1:length(ident)
     index = [index; find(C(2:size(C,1),1) == ident(i))];
end

if ~isempty(index)
  index=[index;find(isnan(C(2:size(C,1),1))==1)];
  sort(index+1);
  A=C(sort(index+1),:);
  top=zeros(1,size(A,2));
  top(1)=length(find(isnan(A(:,1))==1));
  A=[top;A];
end

return