• 大小: 711B
    文件类型: .m
    金币: 1
    下载: 0 次
    发布日期: 2021-06-06
  • 语言: Matlab
  • 标签: 全息  

资源简介

简单地实现数字全息图的制作与再现的matlab程序

资源截图

代码片段和文件信息

close all;clc;clear
A=zeros(64);
A(15:2020:40)=1;A(15:5020:25)=1;
A(45:5020:40)=1;A(30:3420:35)=1;
% ppp=exp(rand(64)*pi*2*i);A=A.*ppp;
% Author‘s email: zjliu2001@163.com
figure;imshow(abs(A)[]);
Fa=fft2(fftshift(A));Fs=fftshift(Fa);
Am=abs(Fs); % amplitude
Ph=angle(Fs); % phase
s=11;
cgh=zeros(64*s);
th=max(max(abs(Fs)));
qq=th

评论

共有 条评论