C 计算全息图生成和再现

计算全息图生成和再现，用于数字全息的研究

function [varagout]=C（varagin）
%傅里叶变换全息图

clc;
close all;
%生成图片“中国”
I=zeros（256）;
I=imread（‘guang256.bmp‘）;
subplot（221）;imshow（I）;
title（‘256*256灰度图像‘）
%定义接收屏幕
L=500;
M=256;
[xy]=meshgrid（linspace（-L/2L/2M））;
%先设参考波为平面波
r0=1;b=800000;a=800000;
R=r0.*exp（j.*2.*pi.*（b.*y+a.*x））;
%对I进行傅里叶变换并平移
G=fft

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        749  2010-05-23 09:58  C.m

----------- ---------  ---------- -----  ----

                  749                    1