基于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