可选性曲线绘制自动化的实现

文章编号:

1001-3571(2006)04-0042-03

可选性曲线绘制自动化的实现

代敬龙,谢广元,李国洲

(中国矿业大学化工学院,江苏徐州 221008)

摘要:以可选性曲线绘制为例,介绍了应用Exce l 的宏录制功能编制VB A 程序和对Excel 进行选矿专业功能扩展的方法,以真正实现选煤试验数据处理自动化。关键词:VB A;宏;可选性曲线

中图分类号:TD913 文献标识码:B 为了掌握原煤的质量状况,选煤厂煤质分析人员和选煤研究人员经常需要采取煤样进行各种试验。大型选煤厂应用现成的软件来处理各种试验数据,实现了数据处理的自动化。但对中小型选煤厂来说,此类软件因价格昂贵或需要高级编程而没有得到有效的应用。如今,Exce l 已成为办公必备软件,虽然它没有为选矿专业提供专门的功能支持,但是利用其内嵌的VBA 语言进行简单的二次开发,把工作中常进行的数据处理操作录制成VB A 程序对Exel 进行功能扩展,这样,不需要很高的编程基础也能够编制出符合特殊目的的程序,只需像双击或单击Ex cel 菜单一样简单就可运行这些程序。这种方法既简单又实用,很适合无力购买专门软件的中小型选煤厂采用,实现真正意义上的办公自动化。

1 VBA 与宏简介

V isual Basic for A pplica ti o n (VBA)是新一代标

准宏语言,也是支持面向对象的程序设计语言。宏

其实是由V isual B asic 写成的一个可执行程序,建立宏的过程实际上是将所做的工作一一记录下来,由系统自动转换为VB A 代码的过程。因此,利用宏录制再结合Exce l 的强大数据处理与图表绘制功能,可以很容易地编制出实现特殊目的的程序,实现工作自动化。

2 可选性曲线的绘制及宏录制

211 制表宏的录制

用鼠标选择/工具0菜单中的/宏0,单击/录制新宏0选项,在宏名编辑框中键入宏的名称/浮沉试验综合及延伸表绘制0,在快捷键对应的框内输入自定义的快捷键字母,例如/P 0,将宏保存在当前的工作表中,点/确定0即返回到原工作表。此后的操作都将被宏记录。浮沉试验综合表可以按照实际需要来编制,也可以按照国标GBT /478-1987来编制。为使Ex cel 绘图方便,本文对该表稍作改进,将绘制五条曲线的数据列在该表中,具体如图1

。

图1 浮沉试验综合及延伸表

收稿日期:2006-05-26

作者简介:代敬龙(1981-),男,河北省保定市人,中国矿业大学在读硕士研究生,主要从事煤炭深加工和细粒煤分选及脱水的研究。联系电话:(0516)83995486。

按照表1绘制浮沉试验综合及延伸表。绘制结

束后,按照相同的步骤选择/停止录制0,该宏便保存在工作表中。因为操作中的每一步都被宏录制,所以绘制过程中应尽量保证准确,以方便修改。

第4期2006年8月 选 煤 技 术

COA L PREPARAT I ON TEC HNOLOGY

N o 14

A ug 12006

212 浮沉表计算宏的录制

为了判断输入计算是否准确,在B 、C 两栏中先填入国标GBT /478-1987中表A 5《50~015mm 粒级原煤浮沉试验综合表》中前两栏的数据,作为试验数据。然后开始录制,录制方法同上,不同的是要把宏名改为/浮沉试验综合及延伸表计算0,并在快捷键填入自定义的快捷键字母/F 0。

具体操作方法如下:(1)按照《选矿学》介绍的方法,将D -I 栏数据计算公式输入相应的单元格中。

(2)J6中输入计算公式=B6,在J6~J12中,通过J6单元格的填充柄向下填充输入。用相同的方法填充K 栏使其与E 栏对应相等。

(3)在L6中输入计算公式=B6/2,在L7中输入计算公式=SUM (J6:J7)/2,L8~L13用L7的填充柄向下填充输入。在M 6输入计算公式=C6,M 8~M 13用M 6的填充柄向下填充输入。

(4)Exce l 中的坐标系不能混用,即X1Y2或

X2Y1不能直接用来生成曲线,可根据沉物累计曲

线、分选密度?011曲线纵坐标的特点,通过坐标变换将它们的坐标轴分别转化为:沉物累计曲线X1Y1,分选密度?011含量曲线X2Y2,因此第N 栏数据为100-F 栏;O 栏数据与G 栏对应相等;P 与R 栏数据都与H 栏相等;Q 栏为100-J 栏;S 栏为100-I 栏。具体方法参考前几项。

(5)为使绘制的图像符合可选性曲线的标准,使基元灰分曲线和浮物累计曲线、沉物累计曲线分别交于上X2轴和下X1轴,在L5中输入0100,通过对M 栏数据的观察,在M 5中输入一个概值,本例输入1150,该值仅作为图线的一个调整值,当绘制的线在端点处不平滑时可通过调整此数据的大小使其变平滑,通过单元格引用使J5=L5,K5=M 5;同理在L14输入100100,M 14输入概值90100,使N14=L14,O14=N14。选择数据区域,然后点右键选择/设置单元格格式0,设置小数位数为两位。如图2

。

图2 输入数据后的浮沉试验综合表

(6)结束宏录制。

213 可选性曲线绘制宏录制

启动宏录制。选择/工具栏0-/图表向导0-/标准类型0-/XY 散点图0中的/无数据点平滑曲线0线形,点/下一步0选择/系列0,通过/添加0的方法将五条可选性曲线的名称和数据输入到数据源中,单击/下一步0,在图表标题项中输入/可选性曲

线0,点击/下一步0,选择/将图表插入工作表0,出现单一坐标轴下的五条可选性曲线图(图3)

。

图1 单坐标系下的五条可选性曲线

由图3可见图中坐标和图线显然都不符合要求,需要对其做进一步处理。单击X 轴,点右键选择坐标轴格式,在刻度选项卡中将X 轴的最小值设为0,最大值设为100,将主要刻度单位改为10,次要刻度单位改为1,然后点/确定0。用同样的办法选取设置Y 轴,与前面不同的是要选择数值次序反转和数值(X)交于最大值项。选取密度曲线,点右键选择数据系列格式,坐标轴系列绘制在次坐标轴,出现次Y 轴。在图表空白处点右键选择图表选项,选中次坐标中的数值X 轴,然后点/确定0。选择/次Y 轴在刻度中数值(X)轴交于最大值0,此时出现次X 轴,选中次X 轴,点右键选取坐标轴格式设置,最小值为112,最大值为212,主要刻度为011,次要刻度要设置得更小,选中数值次序反转。而分选密度?011含量曲线只需点右键选坐标系列格式坐标轴的次坐标即可,此时要按照前面的方法设置次Y 轴,五条可选性曲

线即初具形状(图5),结束宏录制。

第4期 代敬龙等:可选性曲线绘制自动化的实现 2006年8月25日