|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我把下面的函数生成dll,但是注册不了,用vb调用会报自动化错误,这是怎么回事呀?
function [xtran,ytran]=computedelta(im1,im2)
if(size(im1,3)==3)
im1=rgb2gray(im1);
im2=rgb2gray(im2);
end
im1=double(im1);
im2=double(im2);
F1=fft2(im1);
F2=fft2(im2);
fz=F1.*conj(F2);
fm=abs(F1.*F2);
div=fz./fm;
delta=ifft2(div);
maxvalue=max(max(delta));
delta=flipud(delta);%fliplr(flipud(delta));
[ytran,xtran]=find(delta==maxvalue);
if(max(max(delta))==1) %完全相关,即表明两幅图像完全一样
xtran=0;
ytran=0;
else if(ytran==size(im1,1))
ytran=0;
else if (xtran==size(im1,2))
xtran=0;
end
end
end
end |
|