通过角谱法实现数字全息,程序语法没有错误,但就是重现出来的图是黑色一片,不知道什么问题,希望能有能人给我解答!最好能直接给出改进后的程序!!!
clc
clear
I11=(imread('1.bmp25.bmp'));
I1=double(I11(:,:,1));
%figure;imshow(I1,[]);axis on
I21=(imread('1.bmp65.bmp'));
I2=double(I21(:,:,1));
I31=(imread('1.bmp105.bmp'));
I3=double(I31(:,:,1));
I41=(imread('1.bmp145.bmp'));
I4=double(I41(:,:,1));
Ips=(I1+i*I2-I3-i*I4)/4;
%figure;imshow(abs(Ips),[])
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Ips=(I1+i*I2-I3-i*I4)/4;
Ips=[zeros(79,768);Ips;zeros(113,768)];
L=7.68;
%figure;imshow(abs(Ips),[]);axis on
If=fftshift(fft2(Ips));
kk=768*3;</