0.
Работа добавлена на сайт samzan.net:
ДОДАТОК Б
Текст програми розрахунку пропускної здатності газопроводу з лупінгом
мовою MicrosoftOfficeWord 2007 з використанням Visual Basic
Перше наблищення
Private Sub CommandButton1_Click()
10 L12 = Worksheets(1).Cells(4, 4)
20 L25 = Worksheets(1).Cells(2, 4)
30 Q1 = Worksheets(1).Cells(9, 4)
40 D = Worksheets(1).Cells(5, 4)
50 P1 = Worksheets(1).Cells(3, 6)
60 PK = Worksheets(1).Cells(4, 6)
70 TG = Worksheets(1).Cells(5, 6)
80 T1 = Worksheets(1).Cells(6, 6)
90 Delta = Worksheets(1).Cells(2, 6)
100 Re12 = 17.75 * Q1 * Delta / (D / 1000) / 1.25 / 10 ^ -5: Worksheets(1).Cells(12, 3) = Re12
110 lambda12 = 0.067 * (158 / Re12 + 2 * 0.03 / D) ^ 0.2
120 a12 = 0.225 * 1.9 * 1420 / (2700 * Q1 * Delta)
130 T2 = TG + (T1 - TG) * Exp(-a12 * L12)
140 Tcr12 = TG + (T1 - T2) / (a12 * L12)
150 P2 = (P1 ^ 2 - Q1 ^ 2 * Tcr12 * Delta * 0.9 * lambda12 * L12 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
160 Pcer12 = 2 / 3 * (P1 + P2 ^ 2 / (P2 + P1)): Zcer12 = 1 - 5.5 * 10 ^ 6 * Pcer12 * Delta ^ 1.3 / Tcr12 ^ 3.3
170 P22 = (P1 ^ 2 - Q1 ^ 2 * Tcr12 * Delta * Zcer12 * lambda12 * L12 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
180 Q23 = Q1 / 2: Re23 = 17.75 * Q23 * Delta / (D / 1000) / 1.25 / 10 ^ -5: Worksheets(1).Cells(12, 6) = Q23: Worksheets(1).Cells(12, 7) = Re23
190 lambda23 = 0.067 * (158 / Re23 + 2 * 0.03 / D) ^ 0.2: Worksheets(1).Cells(13, 6) = lambda23
200 a23 = 0.225 * 1.9 * 1420 / (2700 * Q23 * Delta): Worksheets(1).Cells(14, 6) = a23
210 T3 = TG + (T2 - TG) * Exp(-a23 * L25): Worksheets(1).Cells(15, 6) = T3
220 Tcr23 = TG + (T2 - T3) / (a23 * L25): Worksheets(1).Cells(16, 6) = Tcr23
230 P3 = (P22 ^ 2 - Q23 ^ 2 * Tcr23 * Delta * 0.9 * lambda23 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5: Worksheets(1).Cells(17, 6) = P3
240 Pcer23 = 2 / 3 * (P22 + P3 ^ 2 / (P3 + P22)): Zcer23 = 1 - 5.5 * 10 ^ 6 * Pcer23 * Delta ^ 1.3 / Tcr23 ^ 3.3: Worksheets(1).Cells(18, 6) = Pcer23
250 P33 = (P22 ^ 2 - Q23 ^ 2 * Tcr23 * Delta * Zcer23 * lambda23 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5: Worksheets(1).Cells(19, 6) = P33
260 Q24 = Q1 / 2: Re24 = 17.75 * Q24 * Delta / (D / 1000) / 1.25 / 10 ^ -5: Worksheets(1).Cells(20, 6) = Q24: Worksheets(1).Cells(20, 7) = Re24
270 lambda24 = 0.067 * (158 / Re24 + 2 * 0.03 / D) ^ 0.2: Worksheets(1).Cells(21, 6) = lambda24
280 a24 = 0.225 * 1.9 * 1420 / (2700 * Q24 * Delta): Worksheets(1).Cells(22, 6) = a24
290 T4 = TG + (T2 - TG) * Exp(-a24 * L25): Worksheets(1).Cells(23, 6) = T4
300 Tcr24 = TG + (T2 - T4) / (a24 * L25): Worksheets(1).Cells(24, 6) = Tcr24
310 P4 = (P22 ^ 2 - Q24 ^ 2 * Tcr24 * Delta * 0.9 * lambda24 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5: Worksheets(1).Cells(25, 6) = P4
320 Pcer24 = 2 / 3 * (P22 + P4 ^ 2 / (P4 + P22)): Zcer24 = 1 - 5.5 * 10 ^ 6 * Pcer24 * Delta ^ 1.3 / Tcr24 ^ 3.3: Worksheets(1).Cells(26, 6) = Pcer24
330 P44 = (P22 ^ 2 - Q24 ^ 2 * Tcr24 * Delta * Zcer24 * lambda24 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5: Worksheets(1).Cells(27, 6) = P44
340 T5 = (T3 * Q23 + T4 * Q24) / Q1: Worksheets(1).Cells(28, 6) = T5: Worksheets(1).Cells(26, 6) = Pcer24
350 P5 = (P33 * Q23 + P44 * Q24) / Q1
360 Worksheets(1).Cells(25, 2) = P5: Worksheets(1).Cells(26, 2) = Q1: GoTo 370
370 End Sub
Кінцевий розрахунок
Private Sub CommandButton1_Click()
10 L12 = Worksheets(1).Cells(4, 4)
20 L25 = Worksheets(1).Cells(2, 4)
30 Q1 = Worksheets(1).Cells(9, 4)
40 D = Worksheets(1).Cells(5, 4)
50 P1 = Worksheets(1).Cells(3, 6)
60 PK = Worksheets(1).Cells(4, 6)
70 TG = Worksheets(1).Cells(5, 6)
80 T1 = Worksheets(1).Cells(6, 6)
90 Delta = Worksheets(1).Cells(2, 6)
100 Re12 = 17.75 * Q1 * Delta / (D / 1000) / 1.25 / 10 ^ -5: Worksheets(1).Cells(12, 3) = Re12
110 lambda12 = 0.067 * (158 / Re12 + 2 * 0.03 / D) ^ 0.2
120 a12 = 0.225 * 1.9 * 1420 / (2700 * Q1 * Delta)
130 T2 = TG + (T1 - TG) * Exp(-a12 * L12)
140 Tcr12 = TG + (T1 - T2) / (a12 * L12)
150 P2 = (P1 ^ 2 - Q1 ^ 2 * Tcr12 * Delta * 0.9 * lambda12 * L12 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
160 Pcer12 = 2 / 3 * (P1 + P2 ^ 2 / (P2 + P1)): Zcer12 = 1 - 5.5 * 10 ^ 6 * Pcer12 * Delta ^ 1.3 / Tcr12 ^ 3.3
170 P22 = (P1 ^ 2 - Q1 ^ 2 * Tcr12 * Delta * Zcer12 * lambda12 * L12 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
180 Q23 = Q1 / 2: Re23 = 17.75 * Q23 * Delta / (D / 1000) / 1.25 / 10 ^ -5: Worksheets(1).Cells(12, 6) = Q23
190 lambda23 = 0.067 * (158 / Re23 + 2 * 0.03 / D) ^ 0.2
200 a23 = 0.225 * 1.9 * 1420 / (2700 * Q23 * Delta)
210 T3 = TG + (T2 - TG) * Exp(-a23 * L25)
220 Tcr23 = TG + (T2 - T3) / (a23 * L25)
230 P3 = (P22 ^ 2 - Q23 ^ 2 * Tcr23 * Delta * 0.9 * lambda23 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
240 Pcer23 = 2 / 3 * (P22 + P3 ^ 2 / (P3 + P22)): Zcer23 = 1 - 5.5 * 10 ^ 6 * Pcer23 * Delta ^ 1.3 / Tcr23 ^ 3.3
250 P33 = (P22 ^ 2 - Q23 ^ 2 * Tcr23 * Delta * Zcer23 * lambda23 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
260 Q24 = Q1 / 2: Re24 = 17.75 * Q24 * Delta / (D / 1000) / 1.25 / 10 ^ -5
270 lambda24 = 0.067 * (158 / Re24 + 2 * 0.03 / D) ^ 0.2
280 a24 = 0.225 * 1.9 * 1420 / (2700 * Q24 * Delta)
290 T4 = TG + (T2 - TG) * Exp(-a24 * L25)
300 Tcr24 = TG + (T2 - T4) / (a24 * L25)
310 P4 = (P22 ^ 2 - Q24 ^ 2 * Tcr24 * Delta * 0.9 * lambda24 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
320 Pcer24 = 2 / 3 * (P22 + P4 ^ 2 / (P4 + P22)): Zcer24 = 1 - 5.5 * 10 ^ 6 * Pcer24 * Delta ^ 1.3 / Tcr24 ^ 3.3
330 P44 = (P22 ^ 2 - Q24 ^ 2 * Tcr24 * Delta * Zcer24 * lambda24 * L25 / (105.087 ^ 2 * 0.92 ^ 2 * 1.3778 ^ 5)) ^ 0.5
340 T5 = (T3 * Q23 + T4 * Q24) / Q1: Worksheets(1).Cells(28, 6) = T5
350 P5 = (P33 * Q23 + P44 * Q24) / Q1
360 If Abs(P5 - PK) > 0.05 Then GoTo 370 Else Worksheets(1).Cells(25, 2) = P5: Worksheets(1).Cells(26, 2) = Q1: GoTo 390
370 If P5 - PK > 0 Then Q1 = Q1 + 0.5 Else Q1 = Q1 - 0.5
380 GoTo 100
390 End Sub
2. 2005СПИСОК УСЛОВНЫХ СОКРАЩЕНИЙ Сокращение Расшифро
3. Біохімія 1 Основні закони хімії
4. Газопровод Запад - Восток -- перспективный проект России и Китая
5. Байкальская горная страна
6. Анализ хозяйственной деятельности
7. Петр Первый роман Толстого
8. диагностический опросник ДДО разработанный сотрудниками ВНИИ профтехобразования под руководством Е.html
9. На столе лежат карточки 20 21 22 23 24 25 26 27 28 29 30
10. Країни Африки Південно-Африканська Республіка та Маршалові острови
11. L form impersonl HY L form impersonl HY verbo HBER Безличная форма HY глагол HBER.
12. Литература Смутного времен
13. ТЕМА 4 КОНСУЛЬТАТИВНИЙ КОНТАКТ 1
14. Строительные конструкции
15. Введение Человек живет кaк в мире вещей тaк и в мире понятий
16. Відповідно до цього нормативного документа безпечність виробничого устаткування забезпечується- прави
17. От стволов в оба крыла шахтного поля проводят этажные транспортные штреки на длину определяемую порядком
18. Двигатель внутреннего сгорания Расчёт тягача
19. а Два вида электрических зарядов и ; б Закон сохранения электрических зарядов; в Инвариантность;
20. Радіологія термін навчання- 2010 ~ 2012 рр П-П