m2.m

来自「二元傅立叶全息图在matlab上的实现。体现了其五个实现步骤。结果为生成啁啾光纤」· M 代码 · 共 22 行

clear;
N=180;
y=linspace(-10.8,10.8,N);
fy=0.5*(1+cos(11.8372*y));
A=fy;
B=ones(38,1);
C=B*A;
figure;
imshow(C);
a=rand(38,180);
aa=exp(i*2*pi.*a);
c=C.*aa;
figure;
imshow(c);
Afft=fft2(c);
Ashift=fftshift(Afft);
figure;
imshow(Ashift);
d=ifft2(Ashift);
D=fftshift(d);
figure;
imshow(D);