浅谈Visua lBasic在阿贝折射仪检定结果中的应用

　　1　引言

　　在计量检测过程中,我们通常只能得到一些中间数据,这些数据并不最终所需的,还需要通过较为复杂的计算或者对照查表才能得到所需测量值。例如,在检定平板时,用自准直仪检测所得的数据并不能直接反映平板的平面度,需要根据对角线法则或最小二乘法原理进行一系列运算,才能得到该平板的平面度。

　　在检定阿贝折射仪时,是通过旋转色散棱镜抵消被测试样和折射棱镜产生的色散,使在消色散位置处的明暗分界线清晰可见,此时可测得D谱线的折射率为nD,再根据明暗分界线消色散时色散刻度圈上的读数Z值和测得的折射率nD值,可在仪器所配说明书后的色散表中查出相应的参数值A、B和α,最后计算出被测试样的平均色散(nr-nc)。然而,通过查表得到的平均色散值,在数据众多时很容易引起人为的粗大误差。于是,为了避免此类误差研究一种方法,使得只要输入测得的中间数据,就能直接得到所需的测量结果。应用计算机程序计算平板的平面度已有前例,所以我们设想,能否也用一个计算机程序直接计算阿贝折射仪中的平均色散,这样就能避免人为的粗大误差了。

　　2　理论分析

　　在众多计算机语言程序中,Visual Basic 6·0较其它语言更易掌握,并且能在windows条件下直接进行生成程序,并以对话框的模式与用户进行交流,这样就可以避免用户在使用程序中不经意修改数据的问题,在此,就采用VisualBasic 6·0语言设计阿贝折射仪中计算平均色散nr-nc的程序。

　　先将阿贝折射仪色散表中nD、A、B的数据对应存储在二维数组sheet中,Z值放在一维数组sheetZ中,在对话中输入测量所得值nD以及Z值,程序直接进行查询nD以及Z的下界,调出对应的A、B以及Z值,返回程序计算,输出所需值平均色散nr-nc。整个流程图(如图1)。

　　3　计算与验证

　　表1为阿贝折射仪色散表,设所测得数据:nD=1·316,Z=29·5,则查表可得:

　　式中: 0·02488为nD=1·310时对应的A值; 0·02483为nD=1·320时对应的A值

　　式中: 0·03327为nD=1·310时对应的B值; 0·03311为nD=1·320时对应的B值

　　式中: 0·000为Z=30时对应的α值; 0·052为Z=29时对应的α值。

　　而平均色散

　　将(1)(2)(3)式代入(4),计算可得:

　　对应程序见图2:

　　输入nD=1·316,Z=29·5时

　　运行后,输出nr-nc的值

　　输入值与(5)完全吻合

　　对于Z>30时的情况,再做一次验证。验证过程同上,设测得数据nD=1·427,Z=31·6。查表并计算可得nr-nc=0·022对应程序见图3:

　　对应程序为: