看看我这个程序那里错了（熟悉计算全息的高手请进）

qdmagi · 发表于 2006-4-4 18:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

close all;clc;clear; A=zeros(64); A(15:20,10:50)=1; A(20:50,30:35)=1; figure;imshow(A); B=fft2(fftshift(A)); C=fftshift(B); Am=abs(C); Ph=angle(C); th=max(max(Am)); Am=Am/th; Ph=Ph/(pi*2); cgh=zeros(64*13); hol=zeros(13); for m=1:64; for n=1:64; if abs(Ph(m,n))<=1/4; h=round(Am(m,n)*12); p=round(abs(Ph(m,n))*12); k=ones(h+1,7); hol(round(7-h/2):round(7+h/2),4+p:10+p)=k; else hol(round(7-h/2):round(7+h/2),4+p:13)=ones(h+1,10-p); hol(round(7-h/2):round(7+h/2),1:p-2)=ones(h+1,p-2); end; cgh((m-1)*13+1:m*13,(n-1)*13+1:n*13)=hol; end; end; figure;imshow(cgh,[]); Re=ifft2(cgh); Re=fftshift(Re); figure;imshow(abs(Re),[]);

happy · 发表于 2006-4-4 22:28

请说明你想问什么问题？不要这么笼统 没时间一句句看

cdwxg · 发表于 2006-4-4 23:33

运行后没什么错误啊 Warning: Image is too big to fit on screen; displaying at 67% > In imuitools\private\initSize at 86 In imshow at 179 Warning: Image is too big to fit on screen; displaying at 67% > In imuitools\private\initSize at 86 In imshow at 179 不过有警告，你是说的警告么？

qdmagi · 发表于 2006-4-5 09:33

谢谢你。 我想问的问题是：利用这个编码出来的计算全息图，最后再现的是一幅全黑的图。这明显是错误的。应该再现出T的像才对。 所以，这个程序在内容上可能有问题，不是在语法上，所以我想问问计算全息的高手，哪里错了？

qdmagi · 发表于 2006-4-5 17:55

各位哥哥姐姐帮帮忙啊！[em02]

happy · 发表于 2006-4-6 09:43

上次不是给你发过一个全息方面的程序吗？

qdmagi · 发表于 2006-4-6 13:32

他那个我看不明白 我自己写了一个

qdmagi · 发表于 2006-4-7 10:08

自己顶上去！

cdwxg · 发表于 2006-4-7 10:29

Image is too big to fit on screen所以才最后再现的是一幅全黑的图吧 计算全息偶不明白 帮你顶哈：）

qdmagi · 发表于 2006-4-7 18:14

谢谢啊！

qdmagi · 发表于 2006-4-8 14:45

再次顶上去！ 大家不会烦吧？

qdmagi · 发表于 2006-4-9 18:59

waiting!

qdmagi · 发表于 2006-4-10 14:49

up!!![em06]

qdmagi · 发表于 2006-4-11 09:06

顶上去吧？ 不好意思了？[em08]

happy · 发表于 2006-4-11 22:02

把imshow换成image看看

账号		自动登录	找回密码
密码			我要加入

看看我这个程序那里错了（熟悉计算全息的高手请进）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

回复：（qdmagi）看看我这个程序那里错了（熟悉计算全...

回复：（qdmagi）看看我这个程序那里错了（熟悉计算全...

回复：（qdmagi）看看我这个程序那里错了（熟悉计算全...