zparuj.m

图像对齐（inage registration）工具箱

function odp=zparuj(body1,body2,body2t,img1,img2,k,r,thr,tp,ord)
%match CPs based on spatial relation and invariant values
% B. Zitova, [e-mail]

vel1=size(body1,1);
pom=ones(size(body2,1),1);

for i=1:vel1,
   pom2=[pom*body1(i,1) pom*body1(i,2)];
   dist(i,:)=l2dist(pom2,body2t)';
end;


[sr,sc]=find(dist<thr);

%sr .. ktery bod z M1
%sc .. ktery bod z M2

vl=size(sr);

% dodat dohledavani v blizkem okoli
for i=1:vl,
	[odp,vzd]=dohledej(body1(sr(i),:),body2(sc(i),:),img1,img2,k,r,tp,ord);
	body2u(i,:)=odp([1 2]);
end;


odp=[body1(sr,:) body2(sc,:) body2t(sc,:) body2u];