服务热线:
您的位置: 主页 > 新闻中心 > 行业动态 >

卧式容器及球罐体积标定计算

发布日期:2021-12-04 12:08   浏览量:

卧式容器及球罐体积标定计算

卧式容器及球罐体积标定计算

卧式容器及球罐体积标定计算

摘要:介绍了利用VB6编程软件,快速准确地计算出具有任意椭圆形封头的卧式容器及球罐不同标高液位所对应体积的方法,该方法不受容器规格限制。

关键词:容器;球罐;体积;标定

在化工、医药、石油等行业的生产过程中,使用着大量球形储罐和如图1所示的卧式容器,用以储存各种液体物料。随时了解和控制容器中物料储量的变化,对于合理安排生产,保证容器安全运行十分重要。文献[1]第36条明确规定了各种常见介质的充装量,根据容器中液位的变化了解和控制物料储量的变化十分简便。文献[2]给出了卧式容器直径为 600~ 6000mm 的计算系数,根据液位高度h 与容器内直径D 的比值标准椭圆封头卧式容器液体体积计算软件 注册码,可以查表得到系数K t 和K f ,然后这2个将系数代入公式计算出标定体积。在实际应用中往往需要知道标高与标定体积的对应值,按照文献[2],标高每变化1次就需计算1次

h/D ,然后查表计算,工作量大,而且难免在查表和

计算时产生错误。笔者根据标高与对应体积的数学

关系,利用VB6编制了程序,可得到标高与体积的对应值,现介绍如下

卧式容器及球罐体积标定计算

图1卧式容器示图

1程序设计

计算程序流程框图见图2。利用现在普遍使用的Micro soft Visual Basic 610编程软件[3],

卧式容器及球罐体积标定计算

可以快

图2计算程序流程框图

速、准确地计算并打印出每增加一定高度的不同标高的对应标定体积,这种方法没有容器直径范围的限定。使用时只需输入筒体内直径D 、筒体长度L 、封头直边高度H 和封头曲面高度B 这4个参数。它可以计算具有任意椭圆形封头的卧式容器和球罐不同标高对应的标定体积。对球罐进行计算时,将筒体长度L 和封头直边高度H 值输入“0”,筒体内直径D ,封头曲面高度B 为球罐的内半径。

程序设计时在窗体上用TextBox 控件建立D 、L 、H 和B 这4个数据输入文本框,其名称属性分别定义为Txtinp ut1、Txtinp ut2、Txtinp ut3和Txtin 2p ut4,其Text 属性均为空格。用Label 控件在窗体上建立4个标签,其Caption 属性分别定义为D 、L 、

H 和B ,4个参数的长度单位均为mm 。再用Com 2

mand Button 控件在窗体上建立2个命令按钮,其

名称属性分别定义为Cmd Calculate 和Cmd Can 2cel ,其Caption 属性分别定义为计算、打印和清除。

程序代码如下:

Private Sub CmdCalculate_Click ()Const PI =31141592654

Dim D As Single ,L As Single ,H As Single ,B As Single

Dim I As Integer ,X As Single ,V F As Sin 2gle ,S As Single

Dim V T As Single ,V As Double ,S1As Sin 2gle ,S2As Single

D =Val (Txtinp ut11Text ) ′将筒体内

直径赋值给D

L =Val (Txtinp ut21Text )′将筒体长度赋值给L

H =Val (Txtinp ut31Text ) ′将封头直

边高度赋值给H

B =Val (Txtinp ut41Text ) ′将封头曲面高度赋值给B

Printer 1Print ″筒体内直径D (mm )=″;D ,″筒体长度L (mm )=″;L

Printer 1Print ″封头直边高度H (mm )=″;H ,″封头曲面高度B (mm )=″;B h =10

Do Until h >D

X =h -D/2

V F =23((PI 3(B ∧2/(D/2)∧2)3((D/2)∧2

3X -X ∧3/3))-((-23PI/3)3(D/2)

3B ∧2))′封头标定容积

S1=(-PI/2)3(D/2)∧2

S2=X 3Sqr ((D/2)∧2-X ∧2)+(D/2)∧23

Arcsin (X/(D/2))S =S2-S1

V T =S 3(L +23H ) ′筒体标定容积V =(V F +V T )/1000000000′容器标定容积Printer 1Print ″标高h (mm )=″;h ,″标定体积V (m 3)=″;Round (V ,5)h =h +10Loop End Sub

Private Sub CmdCancel_Click ()Txtinp ut11Text =″″Txtinp ut21Text =″″Txtinp ut31Text =″″Txtinp ut41Text =″″End Sub

Private Function Arcsin (X As Single )As Single Dim K !,I !,N !

Dim T As Single ,P As Single ,R As Single K =1:I =2T =1:N =1R =0Do

Do U ntil K >23N -1Do U ntil I >23N T =T 3(K/I )K =K +2I =I +2Loop Loop

卧式容器及球罐体积标定计算

P =T 3(X ∧(23N +1))/(

R =R +P N =N +1

Loop U ntil Abs (P )

2实例对照

有1台两端为标准椭圆形封头的液体卧式储罐,其D =600mm ,L =1500mm ,H =25mm ,B =150mm ,若液位间隔为10mm ,求其罐内对应的液体体积。

运行程序,输入D 、L 、H 和B 值,单击“计算及打印”按钮,其打印结果如下:筒体内直径D (mm )=600筒体长度L (mm )=1500封头直边高度H (mm )=25

封头曲面高度B (mm )=150

标高h (mm )=10 标定体积V (m 3)=100164标高h (mm )=20 标定体积V (m 3)=100467标高h (mm )=30 标定体积V (m 3)=10086………………… …………………………标高h (mm )=430 标定体积V (m 3)=138163标高h (mm )=440 标定体积V (m 3)=139106标高h (mm )=450 标定体积V (m 3)=140029………………… …………………………标高h (mm )=580 标定体积V (m 3)=149013标高h (mm )=590 标定体积V (m 3)=149316标高h (mm )=600 标定体积V (m 3)=14948

对照文献[2],取标高h =450mm ,经过查表、计算得到标定体积为01400286329m 3,文中计算标定体积V (m 3)=140029,误差在小数点后第5位。假如将语句Printer 1Print ″标高h (mm )=″;h ,″标定容积V (m 3)=″;Round (V ,5)中的5改为6或者7,计算结果的一致性将更好。本例中设计高度变化

量按10mm 增加,视工程需要,可以改变高度变化量标准椭圆封头卧式容器液体体积计算软件 注册码,只需将语句“h =h +10”中的10改为相应的变化量值即可。3结语

通过以上对比可以看出,文中介绍的计算方法更为快捷,其结果准确,免去了查表、计算的麻烦,同时没有容器直径 600~ 6000mm 的限定。

在线咨询 联系方式 二维码

服务热线

扫一扫,关注我们