m1.m

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

clear
figure;
N=180;
y=linspace(-10.8,10.8,N);
Ts=y(2)-y(1);
Ws=2*pi/Ts;
f=(1:N)*Ws/N;
fy=0.5*(1+cos(11.8372*y));
h=stem(y,fy,'fill');
set(h,'MarkerFaceColor','r');
hold;
plot(y,fy);
axis('equal');
axis off;
a=fftshift(fft(fy));
figure;
plot(f,a);
figure;
imshow(a);
axis('equal');
axis off;