【急救】求教各位大神，matlab做全息图

zr901024

这个程序，后面缺少一段算法，通过算法可以制作出全息图，然后还有就是全息图的再现，拜托各位了，马上中期答辩，还没写出程序，会死人的

PI=3.14159;
Image=imread('C:\Users\Administrator\Desktop\1.jpg');
N=512;
A=zeros(N,N);
B=zeros(N,N);
for I=1:1:256
    for J=1:1:256
        Num=double(Image(I,J,1));
        A(0+I,0+J)=1-Num/255;
        B(I,J)=0;
    end
end

for I=1:1:N
    for J=1:1:N
        R=rand(1,1);
        B(I,J)=A(I,J)*sin(R*2*PI);
        A(I,J)=A(I,J)*cos(R*2*PI);
        F(I,J)=A(I,J)+j*B(I,J);
     end
end   
        F=fft2(F);
        F=fftshift(F);