計算機實現(xiàn)近場和遠場衍射

.z.-戶界面、連接其他編程語言的程序等，主要應(yīng)用于工程計算、控制設(shè)計、信號處理與通訊、圖像處理、信號檢測、金融建模設(shè)計與分析等1.2傅里葉變換函數(shù)2根本思路(1)要對圓孔進展衍射模擬，首先要設(shè)計出圓孔的圖形。 (2)選取單位振幅的平面波垂直照射，一般取值為1，方向垂直*y(3)確定觀察屏距離孔徑的距離。.z.-(4)將上述的所有的量代入到公式中，計算出衍射的光場分布。(5)Matlab模擬。%%圓孔菲涅爾衍射clear;*0=0;%范圍ROWS=256;COLS=256;colormap(gray(255))sigma=1/z0;y0=-*0;y=-12.8;forr=1:COLS,*=-12.8;forc=1:ROWS,fFZP(r,c)=e*p(j*sigma*(*-*0).^2+j*sigma*(y-y0).^2);*=*+0.1;y=y+0.1;ma*1=ma*(fFZP);ma*2=ma*(ma*1);scale=1.0/ma*2;fFZP=fFZP.*scale;R=127*(1+imag(fFZP));figure(1)image(R);a*issquareona*isoff.z.-利用衍射積分或者傅里葉分析可以求得在觀察屏上任意徑向坐標(biāo)r處clearclearall%圓孔的夫瑯禾費衍射lamda=632.8e-9;a=input('請輸入孔徑大小')f=1;Np=2048;%調(diào)色板m;ym=4000*lamda*f;ys=linspace(-ym,ym,n);fori=1:nforj=1:mr=sqrt(*s(i).^2+ys(j).^2);*=2*pi*a*r./(lamda*f);I(i,j)=(2*BESSELJ(1,*)).^2./*.^2;IrINp;subplot(1,2,1)image(Ir)colormap('gray')subplot(1,2,2)meshIr);colormap('gray')利用衍射積分或者傅里葉分析可以求得單色光照明時在觀察屏上的.z.-ffa=input('a=');*ma*=0.008;%觀察屏大小yma*=*ma*;N=1500;*=linspace(-*ma*,*ma*,N);y=linspace(-yma*,yma*,N);forn=1:Nform=1:Nalpha=pi**(n)*a/(lmda*f);beta=pi*y(m)*a/(lmda*f);I(n,m)=((sin(alpha))/(alpha))^2*((sin(beta))/(beta))^2;[*,Y]=meshgrid(*,y);Np=512IrNpIfigurecolormap('gray');a*issquare;holdonfigureimshow(Ir);Np=2048;gridonfigure(1).z.-imshowimshow(a,[])afft=fft2(a);%傅里葉變換aabs=abs(afft);%取模aabss=fftshift(aabs);%取模后的矩陣進展頻譜