【正文】 準(zhǔn)具內(nèi)表面兩塊平行平面玻璃板可能沒(méi)有調(diào)整至嚴(yán)格平行，從而導(dǎo)致干涉圓環(huán)本身自身有偏差或者條紋的不清晰；即便嚴(yán)格平行，其間距可能不一定嚴(yán)格等于2mm。通過(guò)調(diào)查分析考證得到傳統(tǒng)實(shí)驗(yàn)中的數(shù)據(jù)處理結(jié)果和經(jīng)改進(jìn)后的數(shù)據(jù)處理結(jié)果比較的表格5：表 5三種實(shí)驗(yàn)方法數(shù)據(jù)處理結(jié)果統(tǒng)計(jì)表由此統(tǒng)計(jì)表可知，%%左右，%左右，故明顯看出：經(jīng)本實(shí)驗(yàn)改進(jìn)后的實(shí)驗(yàn)數(shù)據(jù)處理的精確度大大提高了。楊老師一絲不茍的作風(fēng)，嚴(yán)謹(jǐn)求實(shí)的態(tài)度，踏踏實(shí)實(shí)的工作精神，不僅授我以文，而且教我做人，雖歷時(shí)不長(zhǎng)，卻給以終生受益無(wú)窮之道。. ：高等教育出版社，：1～223 .[5] 譚浩強(qiáng)等. ：高等教育出版社，1992: 1～387[6] 王健，鄒紅林，韓姝．采用塞曼效應(yīng)儀測(cè)定電子荷質(zhì)比方法研究．計(jì)量與測(cè)試技術(shù)，2005，32（3）：8～10．[7] ,(5)：24～25[8] 蘇瑞，韓中孝. Visual Basic開(kāi)發(fā)實(shí)用編程200例. 北京：中國(guó)鐵道出版社，～460[9] Scott Kelby， CS2數(shù)碼照片專業(yè)處理技法. 北京：人民郵電出版社，～448[10] 趙海英．塞曼效應(yīng)實(shí)驗(yàn)的CCD測(cè)量法．大學(xué)物理實(shí)驗(yàn)，2002，15（3）：33～34．[11] 羅洋城．塞曼效應(yīng)實(shí)驗(yàn)測(cè)電子荷質(zhì)比e/ m 的討論．韶關(guān)學(xué)院學(xué)報(bào)(自然科學(xué)版)，2001，22（3）：62～64．[13] 李興鰲，楊建平，周震．正常塞曼效應(yīng)與反常塞曼效應(yīng)的比較．湖北民族學(xué)院學(xué)報(bào)(自然科學(xué)版)，2004，22（4）：74～76．[14] 仲明禮．塞曼效應(yīng)實(shí)驗(yàn)儀調(diào)整中的幾個(gè)關(guān)鍵問(wèn)題的研究．濰坊學(xué)院學(xué)報(bào)，2005，5（2）：135～136．[15] 朱世坤．塞曼效應(yīng)實(shí)驗(yàn)中應(yīng)注意的幾個(gè)問(wèn)題．大學(xué)物理實(shí)驗(yàn)，2004，17(4):33～34．[16]　蔡秀峰，劉淑珍，張炳恒．塞曼效應(yīng)實(shí)驗(yàn)方法的改進(jìn)．大學(xué)物理，2005，24（2）：49～51．附錄：Zeeman數(shù)據(jù)自動(dòng)處理軟件的部分VB程序：…………………………………………Const PI = , C = 3 * 10 ^ 8 ‘定義常量PI，光速C’…………………………………………Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim A, B, E ‘定義任意變量ABE’ = Abs(Str$(Val() Val())) ‘計(jì)算k級(jí)圓環(huán)直徑D1’ = Abs(Str$(Val() Val())) ‘計(jì)算k級(jí)圓環(huán)直徑D2’ = Abs(Str$(Val() Val())) ‘計(jì)算k級(jí)圓環(huán)直徑Dk’ = Abs(Str$(Val() Val()))‘計(jì)算k1級(jí)圓環(huán)直徑D(k1)’If = Then ‘檢測(cè)空格’MsgBox 請(qǐng)輸入“橫坐標(biāo)X1左”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)X1右”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)X2左”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)X2右”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)Xk左”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)Xk右”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)X(k1)左”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“橫坐標(biāo)X(k1)右”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“M2g2M1g1”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“磁場(chǎng)強(qiáng)度B”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請(qǐng)輸入“FH標(biāo)準(zhǔn)具間距d”的數(shù)值！GoTo enddEnd IfA = (2 * PI * C * (Val() * Val() Val() * Val()))B = (Val() * Val() * Val() * ((Val() * Val() Val() * Val())))If A = 0 ThenMsgBox 輸入數(shù)據(jù)有誤，請(qǐng)核實(shí)各數(shù)據(jù)是否輸入正確！GoTo enddEnd IfIf B = 0 ThenMsgBox 輸入數(shù)據(jù)有誤，請(qǐng)核實(shí)各數(shù)據(jù)是否輸入正確！GoTo enddEnd IfE = Abs(A / B) ‘計(jì)算荷質(zhì)比e/m’ = Format$((E), +00) ‘以科學(xué)計(jì)數(shù)法形式輸出顯示荷質(zhì)比e/m’Const D = * 10 ^ 11 ‘定義常量荷質(zhì)比的標(biāo)準(zhǔn)值’ = Format$(Abs(E D) / D, .%)’進(jìn)行誤差分析計(jì)算并以百分?jǐn)?shù)形式輸出顯示’endd:End Sub…………………………………………Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If MouseDown = vbMouseReturn Then Text1 = ‘’If MouseDown = vbMouseReturn Then Text2 = ‘’If MouseDown = vbMouseReturn Then Text3 = ‘’If MouseDown = vbMouseReturn Then Text4 = ‘’If MouseDown = vbMouseReturn Then Text5 = ‘’If MouseDown = vbMouseReturn Then Text6 = ‘’If MouseDown = vbMouseReturn Then Text7 = ‘’If MouseDown = vbMouseReturn Then Text8 = ‘’If MouseDown = vbMouseReturn Then Text9 = ‘’If MouseDown = vbMouseReturn Then Text10 = ‘’If MouseDown = vbMouseReturn Then Text11 = ‘’If MouseDown = vbMouseReturn Then Text12 = ‘’If MouseDown = vbMouseReturn Then Text13 = ‘’If MouseDown = vbMouseReturn Then Text14 = ‘If MouseDown = vbMouseReturn Then Text15 = 39。定義任意變量ABE = Abs(Str$(Val() Val())) 39。計(jì)算k1級(jí)圓環(huán)直徑D(k1)If = Then 39。定義常量荷質(zhì)比的標(biāo)準(zhǔn)值 = Format$(Abs(E D) / D, .%) 39。 \ For Append As 11Print 11, Print 11, 39。空格Print 11, Label1, , , Label2, , , Label12(0), 39。空格Print 11, Label3(1), , , Label4(1), , , Label12(3), 39?？崭馪rint 11, Label11, , , Label8, , Label10。保存實(shí)驗(yàn)處理結(jié)果Print 11, 39。計(jì)算k級(jí)圓環(huán)直徑D1End Sub…………………………………………Private Sub Text2_Change() = Abs(Str$(Val() Val())) 39。計(jì)算k級(jí)圓環(huán)直徑DkEnd Sub…………………………………………Private Sub Text8_Change() = Abs(Str$(Val() Val())) 39。顯示當(dāng)前系統(tǒng)時(shí)間Text18 = TimeE