matlab 全息图,全息图matlab程序.doc

全息图matlab程序

%Modified off-axis reference beam CGH of Burch%

%读入原始图象

PI=3.14159;

Image=imread('lena256.jpg');

N=512;

A=zeros(N,N);

B=zeros(N,N);

for I=1:1:256

for J=1:1:256

ImageNum=double(Image(I,J,1));

A(I,J)=ImageNum/255;

B(I,J)=0;

end;end;

figure;

imshow(A);

%为降低全息图的动态范围，乘一随机位相因子%

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;

%为降低全息图的动态范围，乘一随机位相因子%

%对物函数做二维FFT变换%

F=fft2(F);

Max=max(max(abs(F)));

F=F/Max;

A=real(F);

B=imag(F);

%对物函数做二维FFT变换%

%定义载波参数

alpha=0.5;

for I=1:1:N

for J=1:1:N

Xcos=(J-1)/127;

A1(I,J)=cos(2*PI*alpha*Xcos);

B1(I,J)=sin(2*PI*alpha*Xcos);

end;end;

%定义载波参数

%全息图数据区

for I=1:1:N

for J=1:1:N

Holodata(I,J)=0.5+0.5*(A(I,J)*A1(I,J)+B(I,J)*B1(I,J));

end;end;

%全息图数据区

%绘制全息图，制作灰阶全息图像，灰度等级256

M=512;%定义全息图的大小，

Hologram=zeros(M,M);

S=M/N;%定义每个抽样单元大小为S,S

for I=1:1:N

for J=1:1:N

Xa=(J-1)*S+1;

Xb=J*S;

Ya=(I-1)*S+1;

Yb=I*S;

for Ix=Xa:1:Xb

for Iy=Ya:1:Yb

Hologram(Iy,Ix)=Holodata(I,J);

end;end;

Max=max(max(Hologram));

Hologram=Hologram/Max;

figure;

imshow(Hologram);

%绘制全息图，制作灰阶全息图像，灰度等级256

%再现

Object=fft2(Hologram);

Object=fftshift(Object);

Object=abs(Object);

Object=1000*Object/max(max(Object));

figure;

imshow(Object);

matlab 全息图,全息图matlab程序.doc相关推荐

pid算法matlab仿真程序和c程序,pid算法matlab仿真程序和c程序.doc
pid算法matlab仿真程序和c程序.doc 1 增量式 PID 控制算法 Matlab 仿真程序设一被控对象 G(s) =50/(0.125s^2+7s),用增量式 PID 控制算法编写仿真 ...
dmc matlab程序,matlab编的DMC程序.doc
matlab编的DMC程序 clear all; % close all; %系统模型建立 num=[0.8]; den=[225 1]; [a,b,c,d]=tf2ss(num,den); % st ...
微机保护算法matlab编程,微机继电保护matlab算法仿真(有源程序).doc
微机继电保护matlab算法仿真(有源程序) 微机继电保护算法仿真电控学院两点乘算法 matlab中编写的程序 N=12; t=(0:0.02/N:0.02)'; m=size( ...
matlab微分的语句格式,偏微分差分四种格式的matlab程序.doc
偏微分差分四种格式的matlab程序.doc 偏微分差分四种格式的matlab程序 (1)Lax-Fridrichs格式 function u = LaxFridrichs(a,dt,n,x1,x2, ...
matlab转向梯形优化设计,转向梯形优化设计matlab程序.doc
转向梯形优化设计matlab程序.doc -WORD格式-可编辑-优化计算 MATLAB 程序首先,将目标函数写成 M 文件,其程序语句如下: function f = fun (x)global K ...
基于matlab的车牌识别系统程序,基于matlab的车牌识别系统的设计(附程序).doc
基于matlab的车牌识别系统的设计(附程序).doc 1车牌识别系统的设计1．摘要:汽车牌照自动识别系统是制约道路交通智能化的重要因素,包括车牌定位.字符分割和字符识别三个主要部分.本文首先确定车辆 ...
matlab欧拉法程序,欧拉法matlab程序.doc
欧拉法matlab程序.doc 1.Euler法function[x,y]=naeuler(dyfun,xspan,y0,h)x=xspan(1):h:xspan(2);y(1)=y0;forn=1: ...
用MATLAB实现转子的故障诊断,单盘转子故障诊断报告(附matlab程序).doc
单盘转子故障诊断报告(附matlab程序).doc 单盘转子故障诊断报告1数据TEST1TXT,数据长度1556486,2组振动数据第一.二列为测点1涡流传感器X.Y振动数据:第三.四列为测点2涡流传 ...
大连理工优化方法matlab,大连理工大学庞丽萍最优化方法matlab程序.doc
大连理工大学庞丽萍最优化方法matlab程序.doc 班级优化1班授课老师庞丽萍姓名学号第二章12(1)用修正单纯形法求解下列LP问题CLEARA121100123010215001M,NSIZEAB ...
反应谱 matlab,冲击响应谱计算的matlab程序.doc
冲击响应谱计算的matlab程序.doc disp( )disp( srs.mver2.0July3,2006 )disp( byTomIrvineEmail:tomirvine@ )disp( )d ...

matlab 全息图,全息图matlab程序.doc

matlab 全息图,全息图matlab程序.doc相关推荐

最新文章

热门文章