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））;
%先設(shè)參考波為平面波
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