【導(dǎo)讀】計(jì)算機(jī)技術(shù)是人類智慧的結(jié)晶，它正在以十分迅猛的速度進(jìn)步中。畫(huà)等豐富多彩的表現(xiàn)形式，使物理實(shí)驗(yàn)教學(xué)內(nèi)容豐富多彩，形象易懂。光學(xué)實(shí)驗(yàn)教學(xué)引進(jìn)計(jì)算機(jī)仿真技術(shù)，使其不受實(shí)驗(yàn)儀器和實(shí)驗(yàn)場(chǎng)所的限制，象的實(shí)驗(yàn)現(xiàn)象更加深刻理解光學(xué)理論。開(kāi)發(fā)光學(xué)實(shí)驗(yàn)的仿真模擬系統(tǒng)，并將其運(yùn)。術(shù)的應(yīng)用和發(fā)展。成，操作方法，還有衡量參數(shù)等。出光學(xué)衍射仿真實(shí)驗(yàn)系統(tǒng)設(shè)計(jì)的理念和方法?？说碾y題，還有系統(tǒng)的應(yīng)用前景和意義。簡(jiǎn)單，方便應(yīng)用于光學(xué)實(shí)驗(yàn)教學(xué)之中。

　　

【正文】 s String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib user32 Alias PostMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 28 Private Sub Command1_Click() Dim a(0 To 3), e, X Dim winHwnd As Long, RetVal As Long a(0) = Val() a(1) = Val() a(2) = Val() a(3) = Val() e = ys02(a) Call keybd_event(vbKeySnapshot, 1, 100, 100) DoEvents = (vbCFBitmap) winHwnd = FindWindow(vbNullString, Figure 1) If winHwnd 0 Then RetVal = PostMessage(winHwnd, amp。H10, 0amp。, 0amp。) End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 29 End Sub Private Sub Command6_Click() End End Sub Private Sub Command7_Click() = = = = End Sub Private Sub Command8_Click() = 500 = 2 = = 5 End Sub 光柵衍射三級(jí)窗體代碼： Private Sub Command1_Click() End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Image1_Click() End Sub Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 30 Private Sub Image2_Click() End Sub Private Sub Image3_Click() End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub 夫瑯禾費(fèi)圓孔衍射二級(jí)窗體代碼： Option Explicit Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlag As Long, ByVal dwExtraInfo As Long) Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib suer32 Alias PostMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click() Dim a(0 To 2), e, X Dim winHwnd As Long, RetVal As Long a(0) = Val() a(1) = Val() a(2) = Val() e = ys03(a) Call keybd_event(vbKeySnapshot, 1, 100, 100) DoEvents = (vbCFBitmap) Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 31 winHwnd = FindWindow(vbNullString, Figure 1) If winHwnd 0 Then RetVal = PostMessage(winHwnd, amp。H10, 0amp。, 0amp。) End If End Sub Private Sub Command2_Click() = = = End Sub Private Sub Command3_Click() = 500 = 1 = 1 End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 32 End Sub Private Sub Command8_Click() End End Sub 夫瑯禾費(fèi)圓孔衍射三級(jí)窗體代碼： Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() End Sub Private Sub Image1_Click() End Sub Private Sub Image2_Click() End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Matlab M 文件函數(shù)代碼： function y=ys01(lambda,a,D)%lanbda 為波長(zhǎng)， a 為縫寬， D 為衍射物到觀察屏的距離 lambda=lambda*1e9。a=*a。 ym=3*lambda*D/a。%屏幕上 y 的范圍 Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 33 n=60。%屏幕上的點(diǎn)數(shù) ys=linspace(ym,ym,n)。 n=60。%屏幕上的點(diǎn)數(shù) yp=linspace(0,a,n)。 for i=1:n sinphi=ys(i)/D。 alpha=pi*yp*sinphi/lambda。 sumcos=sum(cos(alpha))。 sumsin=sum(sin(alpha))。 B(i,:) =(sumcos^2+sumsin^2)/n^2。 end N=256。%確 定灰度的等級(jí) Br=(B/max(B))*N。 subplot(1,2,1) Brt=Br*ones(1,2)。 image(ym,100*ys,Brt)。xlabel(39。單縫衍射圖樣 39。) colormap(gray(N))。%色調(diào)處理 subplot(1,2,2) plot(B,100*ys,39。k39。)。xlabel(39。光強(qiáng)分布圖 39。) function y=ys02(lambda,N,a,D) lambda=lambda*1e9。 %波長(zhǎng) %N=2。 %縫數(shù)，可以隨意更改變換 a=a*1e3。d=5*a。 ym=2*lambda*D/a。xs=ym。 n=1000。 ys=linspace(ym,ym,n)。 for i=1:n sinphi=ys(i)/D。 alpha=pi*a*sinphi/lambda。 beta=pi*d*sinphi/lambda。 B(i,:) =(sin(alpha)./alpha).^2.*(sin(N*beta)./sin(beta)).^2。 B1=B/max(B)。 end NC=255。 %確定灰度的等級(jí) Br=(B/max(B))*NC。 Brt=Br*ones(1,2)。 Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 34 subplot(1,2,1) image(xs,ys,Brt)。xlabel(39。光柵衍射圖樣 39。) colormap(gray(NC))。 %色調(diào)處理 subplot(1,2,2) plot(B1,ys,39。k39。)。set(gca,39。xlim39。,[0,1])。 xlabel(39。光強(qiáng)分布圖 39。) function y=ys03(lambda,a,f) lambda=lambda*1e9 a=a*1e3 m=200。 ym=2020*lambda*f。 ys=linspace(ym,ym,m)。 xs=ys。 n=255。 for i=1:m r=xs(i)^2+ys.^2。 sinth=sqrt(r./(r+f^2))。 x=2*pi*a*sinth./lambda hh=(2*besselj(1,x)).^2./x.^2。 b(:,i)=(hh)39。.*5000。 end subplot(1,2,1) image(xs,100*ys,b) xlabel(39。夫瑯禾費(fèi)圓孔衍射圖樣 cm39。) colormap(gray(n)) subplot(1,2,2) b(:,m/2) plot(100*ys,b(:,m/2)) xlabel(39。光強(qiáng)分布 39。) Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 35 謝 辭 本論文在黃振永老師的悉心指導(dǎo)下和幫助下完成的。在此，我謹(jǐn)致以最誠(chéng)摯和衷心的感謝?；厥姿哪甑臅r(shí)光，很多老師對(duì)我的學(xué)習(xí)和生活給予很大的幫助。感謝黃振永老師，辛旺輔導(dǎo)員，陳瑋老師，安玉磊老師，謝海軍老師，還有薛竣文老師。他們不僅學(xué)識(shí)淵博，而且 學(xué)術(shù)思想活躍，富有責(zé)任感。在他們的引導(dǎo)下，我的專業(yè)知識(shí)與技能得到了很大的豐富和提高，而且還教會(huì)了我思考解決問(wèn)題的方法和技巧，這都將激勵(lì)我在今后 的學(xué)習(xí)和工作中不斷地去追求和探索。 感謝北京理工大學(xué)珠海學(xué)院。在這里，我感受到了大學(xué)濃厚的學(xué)術(shù)氛圍和無(wú)限的想象空間，還有不怕苦不怕累的奮斗精神。 感謝中山舜宇 光學(xué)給我們提供實(shí)習(xí)的機(jī)會(huì)。在那里，我們近距離地接觸光學(xué)鏡片的加工制造過(guò)程和工藝，這對(duì)鞏固我們所學(xué)的光學(xué)理論知識(shí)有著很大的幫助。 感謝中山唯美適精密公司給我實(shí)習(xí)的機(jī)會(huì)。四個(gè)月的實(shí)習(xí)，使我在機(jī)械制造，品質(zhì)管控方面的知識(shí)豐富起來(lái)。 最后感謝 陪伴我四年的同學(xué)們，特別要感謝我的室友李波，沈陽(yáng)和吳捷彪同學(xué)。他們給我的生活增添了很多喜怒哀樂(lè)，衷心地祝福他們找到理想的 工作，并過(guò)著美好的生活。