Дипломная работа: Рассчитать основные размеры бражной колонны

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