基于VB的外压圆筒计算厚度的计算

齐恩伍

(中国原子能科学研究院，北京 102413)

基于VB的外压圆筒计算厚度的计算

齐恩伍

(中国原子能科学研究院，北京 102413)

介绍了圆筒在外压作用下计算厚度的相关计算内容。

外压；圆筒；计算厚度

从事压力容器设计工作的人员经常碰到设计压力为负压的工况，GB150-2011《压力容器》[1]用图算法的方式给出了计算特定厚度下承受外压时临界压力的计算方法，计算完成后只要临界压力大于设计压力(外压)即满足设计要求。但是此种方法只给出了一定厚度下临界压力的计算方法，并未给出一定压力下临界厚度(即计算厚度)的计算方法。本文利用VB强大的编程能力，使用相关的数值计算方法，谈论了一定外压作用下计算厚度的计算方法，从而有效指导了实际设计工作的有效进行。

1 程序设计

1.1 程序流程设计

程序流程设计如图1所示。

图1 程序流程图

1.2 程序相关算法

(1)程序界面。程序界面如图2所示。

图2 程序界面图

(2)GB150在计算一定厚度下的临界压力时，分为大于等于20与小于20两种，为了计算方便，易于编程，本文未按GB150的分法，将计算情况统一分为三种，分别计算，程序代码为： if then

…………

ElseIf then

……………

Else

……………

End if

(3)VB与EXCEL表的通信。由于计算过程中用到大量的数据，所以数据的搜索与确认、EXCEL表数据的插值等就成为了程序的重点之一，程序代码为：

Jishu = 0

For i

If 搜索条件 Then

Jishu = Jishu + 1

xlsheet.Cells(Jishu + 1, 5) = Y2 + (Y1 - Y2) * (Z1 - X2) / (X1 - X2)

End If

Next i

(4)数值迭代方法与终止条件。本文采用二分法进行迭代，迭代终止条件为[p]与pc间的差值与pc的比值不大于5%，当然也可以选用其它迭代方法与终止条件。

2 程序调试

假设计算长度L为500 mm，设计温度为90℃，设计压力为1.1MPa(外压)，外径为412 mm，分别代入不同的有效厚度进行调试，结果如表1所示。

表1 调试结果

3 结果分析

(1)由表中数据对比可知，当设计压力一定时，各个区间内得到的数值基本上是稳定的，与实际情况相符。

(2)与传统GB150给出的图算法相比，本方法操作简单，运算速度快，可以大大的提高设计速度，减少重复劳动。

[1] GB 150-2011 压力容器[S].北京：中国标准出版社，2012.

(本文文献格式：齐恩伍.基于VB的外压圆筒计算厚度的计算[J].山东化工,2017,46(13):80.)

2017-04-13

齐恩伍(1983—)，男，河北大城人，学历硕士，研究方向：压力容器的设计。

TQ015

B

1008-021X(2017)13-0080-01