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

0.

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

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

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

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

от 25%

Подписываем

договор

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

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

ДОДАТОК Б

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

мовою 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. 200 Понятие демографической статистики.
2. Российская правовая академия Министерства Юстиции Российской Федерации казанский ЮРИДИЧЕСКИЙ ИНСТИТУ.1
3. Анализ доходов ООО Спорт-тайм
4. Создание информационной модели
5. Русский общий жаргон к определению понятия
6. тема 6 Исследователи тоталитаризма выделившие пять основных признаков этого режима 2 ответа- одна идеоло
7. Основные производственные (сельскохозяйственного и несельскохозяйственного назначения) и непроизводственные фонды предприятия.html
8. Утверждаю Зав
9. ВовчикВовчик ты что Ты оправдываешься что ли За подарок Перед кем зачем
10. і. Жалпы 'німді б'лу туралы келісім шетелдік 'ндіруші компания мердігер мен келісімге с'йкес аны'тал'ан аум