14,20
3,794
14,20
3,799
0,071
14,20
3,805
14,20
3,810
14,20
3,816
14,20
3,821
14,20
3,826
0,072
14,20
3,831
14,20
3,837
14,20
3,843
14,20
3,848
14,20
3,852
0,073
14,20
3,858
14,20
3,864
14,20
3,869
14,20
3,875
4 Текст программы в VBA
Private Sub CommandButton1_Click()
Dim VPAR, VPR, VP3, VD, VD1, VP1, VP2, VPA, D, S, L, G, X, VIS As Single
Dim P As Integer
VPAR = Cells(2, 1)
VPR = Cells(2, 2)
VP3 = Cells(2, 3)
VD = Cells(2, 4)
VD1 = Cells(2, 5)
VP1 = Cells(2, 6)
VP2 = Cells(2, 7)
VPA = Cells(2, 8)
L = 1
K = 1
Cells(4, 4) = "Расх.дис"
Cells(4, 2) = "Диаметр"
For G = 0.07 To 0.074 Step 0.001
Cells(4 + L, 4) = G
S = G + 3 * G
For P = 341 To 345 Step 1
D = S * 22.4 * P / 273 * 735: DIAM = (4 * D / 3.14 * VPAR) ^ 0.5
Cells(4 + L, 2) = DIAM
L = L + 1
Next P
Next G
D1 = (4 * VPR / 3.14 * VP3) ^ 0.5
D2 = (4 * VD / 3.14 * VD1) ^ 0.5
D3 = (4 * VP1 / 3.14 * VP2) ^ 0.5
FOT = 1.25 * (3.14 * D3 ^ 2) / 4
N = 4 * FOT / 3.14 * 100
Cells(4, 5) = "ШТУЦ.ВВОД.ПР"
Cells(5, 5) = D1
Cells(4, 6) = "ШТУЦ.ВЫВ.ПР"
Cells(5, 6) = D2
Cells(4, 7) = "ДИАМ.БАРБ"
Cells(5, 7) = D3
Cells(4, 8) = "ПЛОЩ.ОТВ"
Cells(5, 8) = FOT
Cells(4, 9) = "ЧИС.ОТВ"
Cells(5, 9) = N
For K = 1 To 19
VIS = 0.5 * (25 - 1) + 1.5 + 0.7
Cells(4 + K, 10) = VIS
Cells(4, 10) = "ВЫС"
Next K
End Sub
Заключение
В данной работе был осуществлен расчет бражной колонны, в данной работе четко просматривается зависимость геометрических размеров бражной колонны, от количества-дистиллята продукта, и абсолютной температуры пара.
Список литературы
1. Кретов И. Т., Антипов С. Т., Шахов С. В. Инженерные расчёты технологического оборудования предприятий бродильной промышленности. – М. : КолосС, 2004. – 391 с.
2. СТП ИрГТУ 05-04
Страницы: 1, 2
