光电工程师社区

标题: 彩色全息关键问题是什么？ [打印本页]

作者: snmy512 时间: 2009-4-18 16:42
标题: 彩色全息关键问题是什么？
我的毕业设计是彩色全息水印，但是之前完全没有这方面的知识，搞来很久都没弄出想要的效果，全息图和再现出的图像总是黑白的，运行没有问题。彩色全息做出的全息图是彩色的吗？如果是，那关键问题是什么？有做过这方面的朋友帮帮忙。QQ：413299159
EMAIL:wangrui02402102@163.com

作者: 蓝天夏 时间: 2009-4-19 07:28
我也学过全息，但不清楚彩色全息水印的概念，彩色全息是用彩虹全息的原理做出来的，如果是只有一种激光器，你可以把三种光的像分别在三种角度曝光，这样再现时应该会出彩色，只不过彩色的好坏。

作者: snmy512 时间: 2009-4-19 12:07
不管水印，关键是全息。我的彩色全息是用计算机模拟的，也就是计算全息和数字全息相结合。RGB图像分解，单色图制作全息和再现，最后合成RGB全息图。现在问题是单色灰度图可用，彩色也能运行，就是不是彩色的。你有做过全息图吗？见过彩色全息图是什么样没？能不能把你的发我看看？谢谢

作者: 蓝天夏 时间: 2009-4-19 16:12
我没做过计算全息，不过道理一样，我认为问题在RGB的分解图上。你的分解图是怎么来的？是有真彩色图分解来的吗？

作者: 蓝天夏 时间: 2009-4-21 06:15
十几年前做过彩色全息，也丢了十几年。但我认为你只要RGB图分解的对，照相角度对，就应能做出彩色。

作者: snmy512 时间: 2009-4-25 16:40
我的全息图灰度完全没问题啦。RGB分解可以是真彩色的也可以分出灰度的，问题是合成后全黑，不知道什么原因

作者: 蓝天夏 时间: 2009-4-25 22:39
是不是曝光量没掌握好，本来的RGB灰度图变得不明显了。另外就是三个曝光角度没掌握好，在一个角度看不出红绿蓝了。你可把曝光光路介绍一下，一起来分析。

作者: 蓝天夏 时间: 2009-4-26 07:00
对了，你每一路做的是不是彩虹全息，如果不是肯定不行，彩色全息是基于彩虹全息的。

作者: snmy512 时间: 2009-4-28 20:01
这样哦，我对全息不了解的，大家有做过彩色全息的能不能帮忙给个程序？着急啊，谢谢

作者: wmyuestc 时间: 2009-4-29 19:46
彩色全息水印采用了普通的全息原理和空间滤波傅立叶变换原理
具体理论可以查一下相关论文哈

作者: 蓝天夏 时间: 2009-5-3 08:22
你在拍摄全息图的时候应加狭缝，这你要看看全息方面的书了，不是一两句话能说清楚。

作者: 蓝天夏 时间: 2009-5-3 08:48
本帖最后由蓝天夏于 2009-5-3 08:52 编辑

转送你本书看看吧！
《光全息学及其应用》

作者: 蓝天夏 时间: 2009-5-3 08:59
本帖最后由蓝天夏于 2009-5-3 12:51 编辑

太大了，发不出去，上午有事，下午拆开给你发。

作者: 蓝天夏 时间: 2009-5-3 13:42
。。。。。。。。。。。。。。。。

光全息学及其应用－1.pdf

1.21 MB, 下载次数: 3, 下载积分: 光电贝 -10 元

光全息学及其应用－2.pdf

1.18 MB, 下载次数: 2, 下载积分: 光电贝 -10 元

作者: 蓝天夏 时间: 2009-5-3 13:54
。。。。。。。。。。。。。。。

光全息学及其应用－3.pdf

1.34 MB, 下载次数: 1, 下载积分: 光电贝 -10 元

光全息学及其应用－4.pdf

1.34 MB, 下载次数: 1, 下载积分: 光电贝 -10 元

作者: 蓝天夏 时间: 2009-5-3 14:01
建议你认真看一下第十二章彩虹全息和第十四章彩色全息。

光全息学及其应用－5.pdf

1.31 MB, 下载次数: 3, 下载积分: 光电贝 -10 元

光全息学及其应用－6.pdf

1.1 MB, 下载次数: 4, 下载积分: 光电贝 -10 元

作者: xiaofw 时间: 2009-5-14 14:07
瞧瞧！！！！！！！！！！！！

作者: snmy512 时间: 2009-5-14 15:42
谢谢哦，谢谢大家帮忙，谢谢蓝夏天

作者: snmy512 时间: 2009-5-14 15:47
不好意思看错了，谢谢蓝天夏。你做全息吗？能帮我修改下程序吗？加我QQ：413299159好不好？

作者: snmy512 时间: 2009-5-14 16:03
时间可能来不及了，过几天就要软件演示了，彩色还是搞不定，哪位好心的大哥大姐帮帮忙，有可用的彩色全息程序发一个借鉴下，谢谢

作者: snmy512 时间: 2009-5-15 10:35
大家帮忙看下这个程序怎么修改才能运行出合理的结果。运行没错误，用的是LenaRGB128*128图像，扩展下后做全息，后面的全息程序没问题，可以出正常结果（不用扩展的256*256图像），但用扩展后的256*256就有问题，全息图半黑半白，再现空白
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('全息图重建');

作者: snmy512 时间: 2009-5-15 10:40
for i=1

for j=1

for i=1

1
for j=1

1
for i=1

2
for j=1

2
表情依次是上面的语句（！！！好好的，贴过来就变了）

作者: snmy512 时间: 2009-5-15 10:41
昏迷还是这样！！！！

作者: 蓝天夏 时间: 2009-5-15 14:56
我是学传统全息的，还是十几年前的事，没做过计算全息。

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