Приклад розрахункового тексту в Exel

↑

⇐ ПредыдущаяСтр 8 из 8

Додаток А

Текст програми

10 t = Worksheets(1).Cells(4, 2)

20 nvk = Worksheets(1).Cells(5, 2)

30 nvt = Worksheets(1).Cells(6, 2)

40 m = Worksheets(1).Cells(7, 2)

45 B = Worksheets(1).Cells(8, 2)

46 C = Worksheets(1).Cells(9, 2)

47 R = Worksheets(1).Cells(10, 2)

50 nv = 0: k = 0

60 For E = B To C Step R

70 Nb = (t * nvk * nvt * E ^ -m - 1) / ((t - 1) / (E ^ m - 1) * nvk - 1): k = k + 1

80 If Nb > nv Then nv = Nb Else A = E: Worksheets(1).Cells(2, 4) = E - R: Worksheets(1).Cells(3, 4) = nv: GoTo 111

90 Worksheets(1).Cells(k + 2, 5) = E

100 Worksheets(1).Cells(k + 2, 6) = nv

110 Next E

111 k = k - 1

120 For E = A To C Step R

130 Nb = (t * nvk * nvt * E ^ -m - 1) / ((t - 1) / (E ^ m - 1) * nvk - 1): k = k + 1

140 Worksheets(1).Cells(k + 2, 5) = E

150 Worksheets(1).Cells(k + 2, 6) = Nb

160 Next E

170 t2 = Worksheets(1).Cells(42, 3)

180 t21 = Worksheets(1).Cells(44, 3)

190 Cmp = Worksheets(1).Cells(43, 3)

200 A1 = Worksheets(1).Cells(11, 10)

210 B1 = Worksheets(1).Cells(10, 10)

220 C1 = Worksheets(1).Cells(9, 10)

230 t11 = Worksheets(1).Cells(22, 12): Ek = Worksheets(1).Cells(41, 3): O = 0

235 O = O + 1

240 If Abs(t21 - t2) < 1 Then tt = t21: GoTo 250 Else t2 = t21: Cpm = A1 + B1 * (t11 + t2 - 273.15) + C1 * (t11 ^ 2 + (t2 - 273.15) ^ 2 + t11 * (t2 - 273.15)): t21 = (t11 + 273.15) * Ek ^ (287.1 / Cpm): Worksheets(1).Cells(O + 50, 6) = Cpm: GoTo 235

250 Worksheets(1).Cells(45, 3) = tt

End Sub

Додаток Б

Розрахунок в Exel

Склад газу, %

Метан

97,35

0,9735

Етан

0,77

0,0077

Пропан

1,17

0,0117

Бутан

0,71

0,0071

Показник адіабати

k=

1,41

Вхідні дані

Темпер. повітря на вході в ОК

t1, С

281,15

Темпер. робоч. тіла на вході в ГТ

t3,С

1267,15

Внутрішн. відносний ККД турбіни

ηвт

0,83

Внутрішній відносний ККД ОК

ηвк

0,82

ККД камери згорання

ηкз

0,98

Механічний ККД ОК

ηмк

0,98

Механічний ККД турбіний

ηмт

0,97

Температура паливного газу

tпг,С

Атмосферний тиск

Pат, кПа

Втрати тиску на вході в ОК

∆Ра,кПа

1,2

Втрати тиску в КЗ

∆Ркз,кПа

1,1

Втрати тиску на виході з ГТ

∆Рs,кПа

0,5

Відношення мас. витрати роб. тіла

в ГТ до мас. витрати повіиря в ОК

δм

Відносна вологість повітря

Ψ,%

41,2

0,412

Ефективна потужність ГТУ

Ne, МВт

19,2

Вологовміст води, г/м³

χ

8,52

 Mпг=

16,7336

Q=

49853,12

Сухе повітря

Водяна пара

кисень

0,2397

1003,57596

0,4441

1859,35788

0,2416

1011,53088

0,4523

1893,68964

0,2456

1028,27808

0,4652

1947,69936

0,2305

965,0574

0,2427

1016,13636

0,2511

1051,30548

С

0,000109904

0,000245975

-4,97182E-05

В

0,0177939

0,1224639

0,1873593

А

1003,57596

1859,35788

921,93336

Азот

Вуглекислий газ

Водяна пара

0,2524

1056,74832

0,2357

986,82876

0,4652

1947,69936

0,2622

1097,77896

0,2602

1089,40536

0,4957

2075,39676

0,2715

1136,7162

0,2767

1158,48756

0,5279

2210,21172

-6,54187E-06

-0,00010467

2,22424E-05

0,11042685

0,3820455

0,29255265

1013,62428

850,75776

1827,11952

 E опт.=

12,25

E=

Nb=

Nb max.=

0,285535

12,1

0,285524519

t=

4,50702472

T3=

1267,15

12,11

0,285525869

Nvk=

0,82

T1=

281,15

12,12

0,285527125

Nvt=

0,83

K=

1,41

12,13

0,285528286

m=

0,290780142

12,14

0,285529352

E1=

12,1

12,15

0,285530325

E2=

12,3

12,16

0,285531203

Точність

0,01

12,17

0,285531988

12,18

0,285532679

12,19

0,285533276

12,2

0,28553378

12,21

0,285534191

12,22

0,285534508

12,23

0,285534733

12,24

0,285534864

12,25

0,285534904

12,26

0,28553485

12,27

0,285534705

12,28

0,285534467

12,29

0,285534137

12,3

0,285533715

Ek=

12,39729459

T2=

584,5960076

311,446

Cpm(t1-t2)=

1020,201504

 -сухе повітря

T21=

570,9744526

297,8245

T2ост. =

571,4376754

298,2877

T2"=

635,1593603

362,0094

Cpm(t1-t2"")=

1024,888131

Hk=

362819,9917

rcп=

1,251267295

gсп=

0,9972025

gвп=

0,002804424

gсп+gвп=

1,000006925

Mвп=

28,91086548

Rвп=

287,5735424

Сpm c.п.(t1-t21)=

1019,074032

Сpm в. в п.(t1-t21)=

1919,355488

Сpm в. п.(t1-t21)=

1021,60586

T2=

571,0846825

297,9347

Сpm c.п.(t1-t21)=

1019,04431

Сpm в. в п.(t1-t21)=

1919,259796

Сpm в. п.(t1-t21)=

1021,575953

T2=

570,4304754

297,2805

T2-T2

-0,65420705

T2"=

633,9310676

360,7811

Сpm c.п.(t1-t21)=

1024,767623

Сpm в. в п.(t1-t21)=

1937,262707

Сpm в. п.(t1-t21)=

1027,333743

Hk=

362423,8945

Vo2=

2,0786

Vco2=

1,0524

VH2o=

2,0524

Mo2=

3,974948606

Mco2=

2,767914639

MH2o=

2,209688196

L0=

17,17040435

Визначаємо теплоємність вологого повітряз реального ОК

Наближення

1.a

3,647548388

3,631591716

3,63076797

Δε

0,000824

Визначаємо теплоємність вологого повітряз реального ОК

0-Т2`

Срm cух пов

1,024301029

Срm Н2О

1,93555731

Срm вол пов

1,026863671

кДж/(кг∙℃)

1026,863671

Дж/(кг∙℃)

Cpm

Срm пал газ

С(pm вп)

1,059045083

1,11692496

2,139893121

1,127093259

1,14

1,026863671

O2

N2

h2o

co2

1,143318148

1,026863671

10,52386878

48,1310633

2,209688196

2,767914639

63,63253493

1,143490223

1,026863671

0,165385031

0,75639079

0,034725761

0,043498419

1,143318148

1,1

10,46044182

47,9205078

2,209688196

2,767914639

63,35855241

0,165099129

0,75633843

0,034875926

0,04368652

1,143490223

1143,490223

РОЗРАХУНОК ПРОЦЕСУ РОЗШИРЕННЯ РОБОЧОГО ТІЛА

mrt=

28,63561119

Rvp=

290,3482641

ek=

12,17881773

T4=

671,7034881

398,5535

688,7211803

415,5712

-17,0176922

708,4054813

435,2555

-19,684301

709,5433551

436,3934

-1,13787376

709,609139

436,4591

-0,06578389

T4@=

804,3910854

531,2411

ht=

587,0590575

O2

n2

h2o

co2

a

0,92193336

1,01362428

1,82711952

0,85075776

b

0,000187359

0,00011043

0,000292553

0,000382046

c

-4,97182E-08

-6,542E-09

2,22424E-08

-1,0467E-07

1,106123807

1,15730518

2,268835675

1,221266238

0,182620077

0,87531438

0,079127746

0,053352871

1,190415072

1190,415072

1,264276866

1,17957447

2,274498647

1,55400911

0,208731009

0,8921575

0,079325247

0,067889249

1,248103006

1248,103006

1,269770377

1,18198571

2,281065053

1,565330408

0,209637983

0,89398121

0,079554256

0,068383837

1,251557289

1251,557289

1,270089114

1,18212525

2,281445159

1,565987328

0,209690607

0,89408675

0,079567513

0,068412536

1,251757407

1251,757407

1,270107545

1,18213332

2,281467136

1,566025315

0,20969365

0,89409285

0,079568279

0,068414196

1,251768977

1251,768977

1,297110126

1,19381615

2,313331454

1,621698018

0,214151752

0,90292902

0,080679577

0,070846342

1,268606695

1268,606695

Додаток В

Ek=

=L30*10^3*D2/((L30-L31)*10^3)

T2=

=M22*C41^((K20-1)/K20)

=C42-273,15

Cpm(t1-t2)=

=J11+J10*(L22+D42)+J9*(L22^2+D42^2+L22*D42)

 -сухе повітря

T21=

=M22*C41^(287,1/C43)

=C44-273,15

T2ост. =

571,437675446762

=C45-273,15

T2"=

=M22+(C45-M22)/L25

=C46-273,15

Cpm(t1-t2"")=

=J11+J10*(L22+D46)+J9*(L22^2+D46^2+D46*L22)

Hk=

=C47*(D46-L22)

rcп=

=L30*10^3/(287,1*M22)

gсп=

=C49/(C49+M36*10^-3*L38)

gвп=

=L38*M36*10^-3/(C49+M36*10^-3)

gсп+gвп=

=C50+C51

Mвп=

=1/(C50/28,96+C51/18,06)

Rвп=

=8314/C53

Сpm c.п.(t1-t21)=

=J11+J10*(L22+D45)+J9*(L22^2+D45^2+D45*L22)

Сpm в. в п.(t1-t21)=

=L11+L10*(L22+D45)+L9*(D45^2+L22^2+D45*L22)

Сpm в. п.(t1-t21)=

=C50*C55+C51*C56

O2

n2

=N11*10^-3

=P11*10^-3

=N10*10^-3

=P10*10^-3

=N9*10^-3

=P9*10^-3

=$J$90+$J$91*(D93+$L$23)+$J$92*

(D93^2+D93*$L$23+$L$23^2)

=$K$90+$K$91*(D93+$E$93)+$K$92*

(D93^2+$E$93^2+$E$93*D93)

=J93*$J$85

=K93*$K$85

=$J$90+$J$91*(D94+$L$23)-$J$92*(D94^2+D94*$L$23+$L$23^2)

=$K$90+$K$91*(D94+$E$93)-$K$92*(D94^2+$E$93^2+$E$93*D94)

=J95*$J$85

=K95*$K$85

=$J$90+$J$91*(D96+$L$23)-$J$92*(D96^2+D96*$L$23+$L$23^2)

=$K$90+$K$91*(D96+$E$93)-$K$92*(D96^2+$E$93^2+$E$93*D96)

=J97*$J$85

=K97*$K$85

=$J$90+$J$91*(D98+$L$23)-$J$92*(D98^2+D98*$L$23+$L$23^2)

=$K$90+$K$91*(D98+$E$93)-$K$92*(D98^2+$E$93^2+$E$93*D98)

=J99*$J$85

=K99*$K$85

=$J$90+$J$91*(D100+$L$23)-$J$92*(D100^2+D100*$L$23+$L$23^2)

=$K$90+$K$91*(D100+$E$93)-$K$92*(D100^2+$E$93^2+$E$93*D100)

=J101*$J$85

=K101*$K$85

Познавательные статьи:



Алгоритмические операторы Matlab

Конструирование и порядок расчёта дорожной одежды

Исследования учёных: почему помогают молитвы?

Почему терпят неудачу многие предприниматели?