文件名称:cgh
介绍说明－－下载内容均来自于网络，请自行研究使用
计算全息close all clc clear
A=zeros(64)
A(15:20,20:40)=1 A(15:50,20:25)=1
A(45:50,20:40)=1 A(30:34,20: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)))
-CGH close all clc clearA = zeros (64) A (15:20,20:40) = 1 A (15:50,20:25) = 1 A (45:50,20:40) = 1 A (30 : 34,20:35) = 1 ppp = exp (rand (64)* pi* 2* i) A = A.* ppp Author s email: zjliu2001@163.comfigure imshow (abs (A), [] ) Fa = fft2 (fftshift (A)) Fs = fftshift (Fa) Am = abs (Fs) amplitudePh = angle (Fs) phases = 11 This means that the length was it? cgh = zeros (64* s) th = max (max (abs (Fs)))
A=zeros(64)
A(15:20,20:40)=1 A(15:50,20:25)=1
A(45:50,20:40)=1 A(30:34,20: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)))
-CGH close all clc clearA = zeros (64) A (15:20,20:40) = 1 A (15:50,20:25) = 1 A (45:50,20:40) = 1 A (30 : 34,20:35) = 1 ppp = exp (rand (64)* pi* 2* i) A = A.* ppp Author s email: zjliu2001@163.comfigure imshow (abs (A), [] ) Fa = fft2 (fftshift (A)) Fs = fftshift (Fa) Am = abs (Fs) amplitudePh = angle (Fs) phases = 11 This means that the length was it? cgh = zeros (64* s) th = max (max (abs (Fs)))
相关搜索： CGH
(系统自动生成,下载前可以参看下载内容)
下载文件列表
cgh.doc