Будь умным!

У вас вопросы?
У нас ответы:) SamZan.net

0.

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 27.11.2024

ДОДАТОК Б

Текст програми розрахунку пропускної здатності газопроводу з лупінгом

мовою 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




1. Лабораторная работа 1 Исследование модели шинной ЛВС со случайным доступом Графики- 1
2. Ростов н-Д- Издательский центр ДГТУ 2011.
3. 1 Ринкова економіка це лад заснований на приватній власності за якого здійснюється вільна гра ринкових си
4. тематики и математического моделирования экономических систем Реферат Параметрические интегралы
5. Государство, право и глобальные проблемы человечества
6. запоры норадреналин ~адреномиметики фенилэфрин ~1 АД нафазолин ~2
7. ЛЕСНОЙ ДОЗОР метод фокусирования зрения
8. Преодоление трудностей в процессе обучения первоклассников- рекомендации родителям
9.  Eduction in Britin Let us tke look t schools s most British children experience them tody
10. партнера с целью создания производственных и маркетинговых мощностей
11. ТЕМА 2. Уголовная ответственность за убийство матерью новорожденного ребенка
12. моряк Никто не знал его имени называли просто моряк
13. по теме Рынок Цель- закрепить знания полученные в ходе изучения данной темы; научиться определять зако
14. I. Титульный лист Наименование лечебного учреждения Дата поступлени.
15. климатических воздействий землетрясение ветровой напор снеговая нагрузка и т.html
16. Понятия о психологии
17. Процесс социализации состоит из нескольких этапов стадий Стадия адаптации рождение подростковый пе
18. Тема- Графический интерфейс пользователя
19. ЗАДАНИЕ 1 Даны вершины треугольника
20. Work of trnsporttion systems lthough we hve now fster nd more modern mens of communiction nd trnsport rilwys re still the sfest nd the most populr mens of trnsporttion

Материалы собраны группой SamZan и находятся в свободном доступе