《润滑油视密度与标准密度的自动换算.pdf》由会员分享，可在线阅读，更多相关《润滑油视密度与标准密度的自动换算.pdf（3页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、润滑油视密度与标准密度的自动换算润滑油视密度与标准密度的自动换算摘要：GB/T 18851998 标准规定了在非标准温度下获得的玻璃石油密度计读数（视密度）换算为标准温度下的密度（标准密度）和体积修正系数方法。文章对表 59D 润滑油标准密度表进行了程序设计，达到了自动换算的目的。关键词：GB/T 18851998；视密度；标准密度；自动换算1 标准密度换算方法本文延用了 GB/T 18851998 标准用的定义：试验温度（t）；视密度（t）；标准密度（20）；计量温度（t）。已知某种油品在某一试验温度 t的视密度 t，换算标准密度步骤：根据油品类别选择相应油品的标准密度表；确定视密度所在标准
2、密度表中的密度区间；在视密度栏中，查找已知的视密度值；在温度栏中找到已知的试验温度值。该视密度值与试验温度值的交叉数即为该油品的标准密度。如果已知视密度值正好介于视密度栏中两个相邻视密度值之间，则采用内插法确定标准密度，但温度值不内插，用较接近的温度值查表。2 在 Excel 中使用 VBA 对自动换算的设计通常的编制计算机程序的方法进行标准自动计算，除了需要编制软件外，还需要建立标准密度表 59D 数据库，使用起来不直观也不方便。因为表 59D 经常用到的数据量并不是很大，应在 Excel 中建立自己所需的数据库。而计算的过程通过 Excel 中内嵌的 VBA 语言来实现。程序输入试验温度（
3、t），假设 ttt0.25，t 为表 59D 中的纵坐标数；视密度（t），ttt2，t、t2 为表 59D 中的横坐标数，所对应的标准密度为 t20、（t2）20，t和 t分别与表 59D 进行比对，取最接近 t的温度为 t，赋值 Xt；如果 t刚好在密度栏中值时，则 20（X，t）；如果视密度值正好介于视密度栏中两个相邻视密度值之间，则 20t20（tt）（t2）20t20/（t2t）。3VBA 源程序和计算演示VBA 部分源程序如下：Dim x As IntegerDim y As IntegerPrivate Sub CommandButton1_Click()x=(TextBox2-2
4、7)*4 1+2If(TextBox1/2)(Fix(TextBox1/2)Theny=(TextBox1-980)/2 1+2TextBox3=Cells(x,y)+(TextBox1-Cells(1,y)*(Cells(x,y+1)-Cells(x,y)/(Cells(1,y+1)-Cells(1,y)ElseTextBox3=Cells(x,(TextBox1-980)/2 1+2)End IfEnd Sub运行该程序后，随机输入二组数据：数据一：视密度：981.3试验温度：27.2数据二：视密度：998试验温度：29.25分别运行得出正确的结果。4 自动换算程序的特点运行环境为 Excel，一般电脑都能运行；使用简单，即使只会简单使用 Excel，也能使用此程序；免去了查表和运算的工作量，大大提高了工作效率；润滑油产品种类繁多，对有兴趣、有条件对某一种具体的润滑油产品进行更准确的修证系数，只需在公式中直接加上系数即可继续使用此自动换算程序进行研究。参考文献：1国家质量技术监督局.石油计量表（GB/T 18851998）.北京：中国标准出版社，1998.2陈学东，常丹编著.Visual Basic 6.0程序设计教程M.清华大学出版社，2005.01.01.