光电工程师社区

标题: 全息图 [打印本页]

作者: snmy512 时间: 2009-5-14 16:09
标题: 全息图
运行没问题，就是结果不是预想的，全息图半黑半白，再现图像空白，怎么会这样？不扩展时没问题，再现效果良好
A=imread('LenaRGB128.bmp');%读入原始图像
subplot(3,3,1);
imshow(A):title('原始图像');%子窗口显示原始图像
R=A(:,:,1);
G=A(:,:,2);
B=A(:,:,3);%RGB分解
subplot(3,3,2);
imshow(R):title('R分量');
subplot(3,3,3);
imshow(G):title('G分量');
subplot(3,3,4);
imshow(B):title('B分量');
S(:,:,1)=R;
S(:,:,2)=G;
S(:,:,3)=B;
subplot(3,3,5);
imshow(S);title('合成后图像');
%--------扩展R为原始图像的4倍，M*N部分和原始图像相同，其他填充0--------%
[M,N]=size(R);%计算图像大小
K=double(R);
Q=2*M;
P=2*N;
for i=1

for j=1

      if(i<=M)&&(j<=N)
         C(i,j)=K(i,j);
      else
         C(i,j)=0;
      end
end
end
subplot(3,3,6);
C=uint8(C);
imshow(C,[]):title('R扩展后图像');
%--------扩展G为原始图像的4倍，M1*N1部分和原始图像相同，其他填充0--------%
[M1,N1]=size(G);%计算图像大小
L=double(G);
Q1=2*M1;
P1=2*N1;
for i=1

1
for j=1

1
      if(i<=M1)&&(j<=N1)
         D(i,j)=L(i,j);
      else
         D(i,j)=0;
      end
end
end
subplot(3,3,7);
D=uint8(D);
imshow(D,[]):title('G扩展后图像');
%--------扩展B为原始图像的4倍，M2*N2部分和原始图像相同，其他填充0--------%
[M2,N2]=size(B);%计算图像大小
T=double(B);
Q2=2*M2;
P2=2*N2;
for i=1

2
for j=1

2
      if(i<=M2)&&(j<=N2)
         E(i,j)=T(i,j);
      else
         E(i,j)=0;
      end
end
end
subplot(3,3,8);
E=uint8(E);
imshow(E,[]):title('B扩展后图像');
F(:,:,1)=C;
F(:,:,2)=D;
F(:,:,3)=E;
subplot(3,3,9);
imshow(F,[]);title('扩展后合成图像');
imwrite(uint8(F),'expaned_image.bmp');
object=imread('expaned_image.bmp');
object=rgb2gray(object);
object=double(object);%数值类型转化
figure;
imshow(mat2gray(object));%显示物图像
title('输入图像')
object_fft=fft2(object);%对其进行快速傅里叶变换
object_fftshift=fftshift(object_fft);%频谱坐标中心化
figure;
imshow(mat2gray(log(1+abs(object_fftshift))));%输入图像的傅里叶频谱
title('输入图像的傅里叶频谱');
lamada=632.8e-6;%定义参考波长
L=1000;%接收屏大小
N=256;%采样频率
x=linspace(-L/2,L/2,N);%定义接收屏平面坐标系
y=x;
[X,Y]=meshgrid(x,y);
b=8;
Referwave=exp(Y.*j*2*pi*b);%参考平面波,设其振幅为1
I=object_fftshift.*conj(Referwave)+conj(object_fftshift).*Referwave;%全息图的强度分布，省略了前两项
figure
imshow(mat2gray(log(abs(I)+1)),[]);
title('全息图片');
%波前重建
I2=conj(Referwave).*I;%用参考光的复共轭重建
object_reconstruct=ifft2(I2);
figure
imshow(mat2gray(abs(object_reconstruct)));
title('全息图重建');

zaix.jpg (5.97 KB, 下载次数: 72)

kuozhan.jpg (19.96 KB, 下载次数: 73)

quanx.jpg (7.82 KB, 下载次数: 73)

ckuozhan.jpg (70.97 KB, 下载次数: 61)

quanxi.jpg (61.13 KB, 下载次数: 54)

hundie.jpg (40.5 KB, 下载次数: 71)

作者: snmy512 时间: 2009-5-14 16:11
怎么才能显示出扩展后的全息图？怎么消除再现像混叠？

作者: Zhongjun 时间: 2009-5-18 13:53
后面重构好像是要用object_fft它吧。

作者: snmy512 时间: 2009-5-24 23:47
哪句要用？能说具体点吗？最近比较忙，才看到，不好意思

作者: henryjz 时间: 2009-5-28 00:56
b 的值对你再现像的位置有影响
有个疑问：为什么你的原始图像要用RGB图，按你的程序，再现像也是灰度图啊?

欢迎光临光电工程师社区 (http://bbs.oecr.com/)