Эскизное проектирование паровой турбины малой мощности для привода питательного насоса энергоблока



Тогда, используя полученный коэффициент линейного моделирования, пересчитаем параметры атласного профиля.

Таблица 3 - Геометрические характеристики подобранного профиля (Р-16017А)

	f, см^2	x0, мм	y0, мм	Ix1, см^4	Wx1сп, см^3	Wx1кр, см^3	Iy1, см^4	Wy1вх, см^3	Wy1вых, см^3
старые	1,75	17,15	5,7	0,0807	0,197	0,141	1,99	1,16	0,711
новые	0,8575	12,0050	3,9900	0,0194	0,0676	0,0484	0,4778	0,3979	0,2439

3.7 Обобщение результатов профилирования

Таблица 4 - Геометрические характеристики профилирования на трех радиусах

	f, см^2	x0, мм	y0, мм	Ix1, см^4	Wx1сп, см^3	Wx1кр, см^3	Iy1, см^4	Wy1вх, см^3	Wy1вых, см^3	b(расч.), мм
Dпер.	0,2583	17,3250	1,0989	0,0009	0,0098	0,0081	0,0420	0,2429	0,1761	41
Dср.	1,6209	17,0335	7,2960	0,1246	0,2418	0,1706	1,9711	1,1575	0,7656	40,32
D корн.	2,3205	16,7580	8,6184	0,2303	0,3846	0,2671	2,1995	1,3050	0,9066	39,9

Рис. 7.3.1 Распределение площадей сечений по длине лопатки



Рис. 7.3.2 Закон изменения хорды профиля

Рис 7.3.3 Изменение момента сопротивления спинки



Рис 7.3.4 Изменения момента сопротивления корытца

Рис 7.3.5 Изменение момента сопротивления выходной кромки

Рис 7.3.6 Изменения момента инерции лопатки



3.7 Оценка рабочих лопаток на прочность и вибрацию

Напряжения растяжения:

Изгибные напряжения:

,

проверка вибронадежности рабочей лопатки:

используя полученные данные, построим Кэмпбелл диаграмму:



Из расчета прочности видно, что лопатка выдержит нагрузки, вызываемые ЦБС и изгибом лопатки от потока. Лопатка вибронадежна

3.8 Расчетное исследование: “Влияние на параметры всего агрегата”

частота вращ	3000	5000	7000	FAO(част. колеб)	269,18	307,90	363,71
N [Мват]	3030,30	5050,50	7070,70	KPEZ	0,64	0,67	0,67
C2 [м/с]	112,10	182,20	246,75	QC2Z1	6,28	16,60	30,44
U2 [м/с]	160,10	260,23	352,42	Кол-во однот. ст	22,00	8,00	4,00
W2 [м/с]	195,74	318,27	430,61	Осевая длина	2,6323	0,9492	0,4686
ZL1	126,00	132,00	144,00	HAПPЯЖ РОТ	76,90	191,71	336,77
BHУTP. (QBH)	3,77	9,88	18,60	ДИAMETP Т/А	2,12	1,78	1,72
SIGR	62,84	166,01	304,48	BHУTPEHHЙ KПД	0,7620	0,7742	0,7249
SIGH	2,70	6,86	10,97	ЭФФEKT KПД	0,7544	0,7665	0,7177
SIGIR	24,56	63,82	113,81



Заключение

В настоящей работе был создан эскизный проект паровой турбины для транспортного судна. Методика создания базировалась на большом числе принятых величин, которые в свою очередь были взяты с источников [1,2], что дает право считать их верными, а также на одномерных методиках расчета, применяемых в турбостроении на первых этапах проектирования. В процессе проектирования я стремился остановится на наиболее подходящих величинах, которые обеспечили полученному эскизному проекту высокие характеристики эффективности, значительные коэффициенты запаса прочности ротора, лопаток и других узлов турбоагрегата, приемлемые массогабаритные показатели и простое конструктивное строение турбоагрегата. Поэтому полученный турбоагрегат в полной мере обеспечивает предъявляемые требования технического задания. Итак, основную задачу проектирования можно считать выполненной. Далее остановимся на некоторых конкретных сильных и слабых сторонах проекта.

В результате расчета удалось спроектировать лопатки последних ступеней приемлемой длины и обеспечить им требуемые вибрационные и прочностные качества без использования титановых сплавов, что гарантирует надежность установки на длительных режимах эксплуатации с меньшими затратами на технологический процесс производства.

Обдуманный выбор параметров последней ступени обеспечил малое число ступеней, что облегчает процесс создания и сборки деталей, а также удешевляет установку и обеспечивает ей приемлемые габариты.

Однако ряд вариационных исследований показал, что не все выбранные параметры обеспечили максимальную эффективность турбоагрегата, даже не смотря на ее полученные достойные показатели. Кроме того слабой стороной проекта является использование плохих профилей для формирования пера рабочей лопатки последней ступени, что объясняет отсутствие подходящих профилей, вследствие чего на среднем радиусе был использован профиль с значительно большим входными и выходными кромками, чем это необходимо. Также переферийный профиль имеет значительные углы атаки, что приведет к снижению кпд как последней ступени так и агрегата в целом.

В связи с недостатками полученного эскизного проекта можно выделить следующие задачи на дальнейшее проектирования.

- Детальное профилирование рабочих лопаток последней ступени и использование лучших профилей.

- Расчет полученного агрегата на переменных режимах.

- Оптимизация входных параметров, для получения высоких показателей эффективности на эксплуатационных режимах.



Список использованной литературы

1. Зайцев Ю.И. Основы проектирования судовых паровых турбоагрегатов.

2. Л.: Судостроение 1974.

3. Погодин Ю. М., Пшеничная К.В Математическое обеспечение эскизного проектирования судового парового турбоагрегата.: Учебное пособие. Л.: ЛКИ, 1985.

4. Дейч М.Е, Филлипов Г.А, Лазарев Л.Я - Атлас профилей решеток осевых турбин ,1965г

5. Погодин Ю. М., Кукин Н.А.-Конспект лекций Введение в теорию турбомашин, 2011г

6. ГОСТ 7.32-2001. Отчет по научно исследовательской работе. Структура и правила оформления.



Приложение 1

Меридианное сечение проточной части п/с.

Треугольники скоростей на 3-х радиусах п/с

Треугольники скоростей первой и средней ступени из группы однотипных ступеней

Мередианное сечение п/ч



Эскиз лопатки построенный по трем профилированным сечениям



Приложение 2

ЭCKИЗHЫЙ ПPOEKT CУДOBOГO ПAPOBOГO TУPБOAГPEГATA.

И C X O Д H Ы E Д A H H Ы E.

I MACCИB ПOCЛEДOBATEЛЬHOCTИ ИCПOЛЬЗOBAHИЯ БЛOKOB. IBL(7) I

I 0-KOHEЦ CЧETA, 1,2,3,4,5,6-CЧET, 95-ПPOПУCK БЛOKA. I

I IBL(1) , IBL(2) , IBL(3) , IBL(4) , IBL(5) , IBL(6) , IBL(7) I

1 , 2 , 3 , 4 , 5 , 6 , 0

I MACCИB ПOPЯДKA BЫBOДA HA ПEЧATЬ ИHФOPMAЦИИ O PAБOTE БЛOKOB I

I IPRT(7) I

I 0-HET ПEЧATИ,1-COKPAЩEHHAЯ ПEЧATЬ,2-ПOЛHAЯ ПEЧATЬ. I

IIPRT(1) , IPRT(2) , IRPT(3) , IPRT(4) , IPRT(5) , IPRT(6) , IPRT(7)I

2 , 2 , 2 , 2 , 2 , 2 , 0

* 1.B ЦEЛOM HA TУPБOAГPEГAT. *

I ЭФФEKTИB.IЭФФEKTИBHЫЙIHAЧAЛЬHOE I HAЧAЛЬHAЯ I ДABЛEHИE B IKOЛИЧECTBOI

I MOЩHOCTЬ I K.П.Д. I ДABЛEHИE ITEMПEPATУPAIKOHДEHCATOPEI OTБOPOB I

I NE(KBT) I KPE(-) I P00(MПA) I T00(K) I PK(MПA) I ZOTB I

5000.0, 0.75 , 1.7 , 633.0 , 0.006 , 0

I KOЭФФИЦИEHT KAЧECTBA OTБOPA - PSIOTB(J),J=1,ZOTB I

0.296825, 0.422858 , 0.70958, 0.0 , 0.00 , 0.0

I KOЭФФИЦИEHT KOЛИЧECTBA OTБOPA - FIOTB(J),J=1,ZOTB I

0.117108, 0.021422 , 0.071407, 0.0 , 0.00 , 0.0

* Б Л O K N1. *

I ЧИCЛO KOPПУCOB I OTHOШEHИE BHУTPEHHИX I PAЗHOCTЬ BHУTP. KПД I

I TУPБOAГPEГATA I ПEPEПAДOB TBД/THД I ПPOTOЧHЫX ЧACTEЙ TBД И THДI

I ZK I HIBHIH(-) I DKPI(-) I

1 , 0.0000 , 0.0000

* Б Л O K N2. *

I TИП I ЧИCЛO I ЧИCЛO OБOPOTOB THД I OTHOШEHИE CP.ДИAMETPAI

I T.H.Д. I ПPOTOKOB I ИЛИ OДHOKOPПУC.AГPEГATA I K ДЛИHE ЛOПATKИ I

I TU I MP I NH(OБ/MИH) I LZ(-) I

1 , 1 , 5000.00 , 4.30

I УГOЛ HA BЫXOДE I УГOЛ HA BЫXOДE I CT.PEAKTИBHOCTИ I УГOЛ MEPИДИAH. I

I ИЗ P.A. П.C. I ИЗ P.A. П.C. I У KOPHЯ I PACKPЫTИЯ I

I B2SZ(PAД) I A2SZ(PAД) I ROTKZ(-) I TEPZ(PAД) I

2.530500 , 1.57000 , 0.100 , 0.52350

* Б Л O K N3. *

I TИП I ЧИCЛO ICT.ПOHИЖEHИЯI PACЧETHAЯ ICT.BПУCKAIУГOЛ BЫXOДAI

ICTУПEHИI OБOPOTOB TBД I ДABЛEHИЯ I CKOP.X-KA I B P.C. IИЗ CA P.C.I

I IRS I NB(OБ/MИH) I A I NURS I EP I A1RS(PAД) I

1 , 7000.0 , 2.0000 , 0.38 , 0.400 , 0.1632

* Б Л O K N4. *

I OTHOШ.KOPH.ДИAMETPOB I OTHOCИT.ДИAMETP IУГOЛ BЫXOДAIOTHOCИT.CKOP.I

IПEPBOЙ И ПOCЛ.CTУПEHEЙIУПЛOTHEHИЯ ДИAФPAГMЫIИЗ CA CT.N1IX-KA CTУП.N1.I

I DOK(-) I DO(-) I A1S1(PAД) I NUO1(-) I

1.000000 , 0.46 , 0.1920 , 0.840

I C T E П E H Ь P E A K T И B H O C T И I OTHOCИT.CKOP.X-KA I

IУ KOPHЯ CTУПEHЬ N1. ИЛИ HA CP.PAДИУCE CTУП. N1.I CPEДHEЙ CTУПEHИ I

I (A.T.) ROT1 (P.T.) I NUOS(-) I

0.0700 , 0.9

* Б Л O K N5. *

I ПPИЗHAK TУPБИHЫ I KOЭФ.ЗAПACA ПO KPИTИЧ. IOTHOШEHИE Д-PA KOHЦEBOГO I

I 1-TBД , 2-THД I ЧACTOTE BPAЩEHИЯ IУПЛOT. K KOPHEBOMУ П.C. I

I PRISN I KKR(-) I DKYZ(-) I

2 , 0.80 , 0.44

ЭCKИЗHЫЙ ПPOEKT CУДOBOГO ПAPOBOГO TУPБOAГPEГATA.

Б A З A Д A H H Ы X.

Б Л O K N1.

I MEXAHИЧECKИЙ I KПД ЗУБЧATOЙ I KOЭФ.УЧETA ПOTEPЬ HA BEHTИЛЯЦИЮ I

I K.П.Д. TУPБИH I ПEPEДAЧИ. I B TЗX HA PEЖИME ПEPEДHEГO XOДA I

I KPMT I KPR I KPTZX I

0.990 , 1.000 , 1.00

I ПOTEPИ ДABЛEHИЯ I ПOTEPИ ДABЛEHИЯ IKOЭФ.ПOTEPЬ ЭHEPГИИ I

I B MAH.УCT-BE. I M/Д TBД И THД. IB BЫXЛOПHOЙ TPACCE. I

I KSIMY I KSIBH I KSIK I

0.03 , 0.000 , 0.900

I OTH.ПOTEPЯ C BЫX.CKOPOCTЬЮIOTHOC.ПOTEPЯ HA УTEЧKИI OTHOC.ПOTEPЯ HA I

I ИЗ ПOCЛEДHEЙ CTУПEHИ. I ПAPA B TУPБOAГPEГATE.I УTEЧKИ B M.У. I

I OQC2Z I OQYT I OQMY I

0.0158 , 0.02 , 0.005

I Э Ф Ф E K T И B H O C T Ь C E П A P A Ц И И B Л A Г И. I

I B T.B.Д. I B T.H.Д. I BO BHEШHEM CEПAPATOPE I

I KPSEB I KPSEH I KPSEBH I

0.0 , 0.00 , 0.00

IDOП.CTEПEHЬ BЛAЖHOCTИ ПAPA ЗA П.C.IMAKC. BHУTP. K.П.Д. ПPOTOЧ.ЧACTEЙ I

I T.B.Д. I T.H.Д. I T.B.Д. I T.H.Д. I

I DOXZB I DOHZH I DOKPIB I DOKPIH I

0.16 , 0.16 , 1.00 , 1.00

* Б Л O K N2. *

* П A P A M E T P Ы M A T E P И A Л A Л O П A T O K *

I CПOCOБ ЗAKPУTKИ ПOTOKA I ПЛOTHOCTЬ MATEPИAЛA I

IЗA COПЛOBЫM И PAБOЧИM BEHЦOM. I PAБOЧИX ЛOПATOK. I

I SPZAK I YM(KГ/M3) I

2 , 8000.0

* П P E Д E Л Ь H O-Д O П У C T И M Ы E З H A Ч E H И Я.(ПДЗ) *

I П.Д.З. HAПPЯЖEHИЙ IПДЗ KPИTEPИЯIПДЗ KPATHOCTИIПДЗ MAXA HA BЫXOДE

II ЭPOЗИOHHOЙ IKOЛEБAHИЙ PЛ I

IPACTЯЖEHИЯ I ИЗГИБA I HAДEЖHOCTИ I I ИЗ PA I ИЗ CA I

ISIGRP(MПA) I SIGHP(MПA) I EIRP I KFAP I MW2P I MT1P I

210.0 , 25.0 , 50.00 , 3.00 , 1.00 , 1.00

I ПДЗ OKPУЖHOЙ I ПДЗ ДИAMETPA I ПДЗ ДИAMETPA I ПДЗ BTУЛOЧ.I ПДЗ УГЛA I

I CKOPOCTИZ I У ПEPИФEPИИ. I У KOPHЯ. I OTHOШEHИЯ I BЫXOДA I

I У ПEPИФEPИИ. I I I I ИЗ P.A. I

I UPP(M/C) I DPP(M) I DKP(M) I LZP(-) I B2P(PAД) I

350.0 , 2.20 , 1.100 , 10.000 , 3.140

* Б Л O K N3. *

IMAKCИMAЛЬHO. I MИHИMAЛЬHO I MИHИMAЛЬHO ДOП. I

IДOП.ДИAMETP IДOП.ДИAMETP I УГOЛ I

IPEГ.CTУПEHИ IPEГ.CTУПEHИ I BЫXOДA ИЗ C.A. I

I DMAXRS(M) I DMINRS(M) I A1RSM(PAD) I

2.500 , 0.500 , 0.1400

* Б Л O K N5. *

I ПPEДEЛЬHO-ДOПУCTИMOE ЗHAЧEHИE I ПPEДEЛЬHO-ДOПУCTИMOE ЗHAЧEHИE I

I HAПPЯЖEHИЙ B PACTOЧKE POTOPA I HAПPЯЖEHИЙ B PACTOЧKE POTOPA I

I ПOД PEГУЛИP.CTУПEHЬЮ I ПOД ПOCЛEД.CTУПEHЬЮ(THД) I

I SIGDRS(MПA) I SIGDZ(MПA) I

410.00 , 410.00 1.0

Б Л O K N1.

OПPEДEЛEHИE PACXOДOB И TEPMOДИHAMИЧECKИX ПAPAMETPOB

TУPБOAГPEГATOB И KOPПУCOB.

OCHOBHЫE PEЗУЛЬTATЫ PACЧETA П/П *BL1*.

KOЭФ-TЫ ЗAПACA ПO ДOПУCTИMOЙ BЛ-TИ KXB= 1.0000 KXH= 5.8160

OCHOBHЫE XAPAKTEPИCTИKИ AГPEГATA И KOPПУCOB

I ХАР-КИ I AГPEГAT I ТВД I ТНД I

I--I-I-I-I

I ИЗOЭHTP-НЫЙ I I I I

I ПEPEПAД I 986.7 I 0.0 I 969.8 I

I--I-I-I-I

I KOЭФФИЦИEHT I I I I

I BOЗBP.TEПЛA I I 1.0000 I 1.0645 I

I--I-I-I-I

I BHУTPEHHИЙ I I I I

I ПEPEПAД I 762.8 I 0.0 I 762.8 I

I--I-I-I-I

I BHУTPEHHИЙ I I I I

I КПД I 0.7730 I 0.0000 I 0.7865 I

I--I-I-I-I

I IGT= 6.7566 IG0B= 6.7228 IG0H= 6.7228 I

I PACXOД IGE= 6.7566 IGZB= 0.0000 IGZH= 6.7228 I

I--I-I-I-I

I OTHOC.PACXOД I I I I

I ОТСЕП. BЛАГИ I 0.0000 I 0.0000 I 0.0000 I

I--I-I-I-I

I BHУTPEHHЯЯ I I I I

I МОЩНОСТЬ I 5050.5 I 0.0 I 5050.5 I

I--I-I-I-I

ПAPAMETPЫ ПAPA HA BXOДE И BЫXOДE ИЗ ПPOTOЧHЫX ЧACTEЙ

! ПAPAMETPЫ ! TBД BXOД ! TBД BЫXOД ! THД BXOД ! THД BЫXOД !

!-!

! ДABЛEHИE ! 1.64900 ! 1.64900 ! 1.64900 ! 0.00667 !

!-!

! ЭHTAЛЬПИЯ ! 3165.5 ! 3165.5 ! 3165.5 ! 2402.8 !

KOЭФ-TЫ KAЧ-BA И KOЛ-BA OTBOДA CPEДЫ ИЗ ПP.ЧACTEЙ

KOЛИЧECTBO OTBOДOB B TBД: 0; B AГPEГATE: 16

I PSI I FI I PSI I FI I

I--I--I--I--I

I 0.06250 I 0.00000 I 0.12500 I 0.00000 I

I 0.18750 I 0.00000 I 0.25000 I 0.00000 I

I 0.31250 I 0.00000 I 0.37500 I 0.00000 I

I 0.43750 I 0.00000 I 0.50000 I 0.00000 I

I 0.56250 I 0.00000 I 0.62500 I 0.00000 I

I 0.68750 I 0.00000 I 0.75000 I 0.00000 I

I 0.81250 I 0.00000 I 0.87500 I 0.00000 I

I 0.93750 I 0.00000 I 1.00000 I 0.00000 I

I--I--I--I--I

ПOTEPЯ C BЫX.CKOP-Ю ИЗ ПOCЛEДHEЙ CT-НИ [kDж/кг] : 15.590

Б Л O K N2.

ПPOEKTИPOBAHИE ПOCЛEДHEЙ CTУПEHИ TУPБOAГPEГATA.

OCHOBHЫE PEЗУЛЬTATЫ PACЧETA П/П *BL2*.

XAPAKTEPИCTИKИ ПOCЛEДHEЙ CTУПEHИ ПO PAДИУCAM

I РАБОЧИЙ АППАРАТ I

II

I ХАР-КИ I R ПЕРИФ. I R СРЕДНИЙ I R КОРНЯ I

II

I C2 [м/с] I 200.85 I 182.20 I 162.40 I

II

I U2 [м/с] I 320.75 I 260.23 I 199.71 I

II

I W2 [м/с] I 343.15 I 318.27 I 278.65 I

II

I A2 [рад] I 1.3718 I 1.5700 I 1.7473 I

II

I B2 [рад] I 2.5305 I 2.5305 I 2.5305 I

II

I D2 [м] I 1.2258 I 0.9945 I 0.7632 I

II

I TLO [-] I 0.9212 I 0.7474 I 0.5000 I

II

I Psi [-] I 0.9359 I 0.9606 I 0.9404 I

II

I ROT [-] I 0.5477 I 0.3776 I 0.1000 I

II

I P2 [мПa] I 0.0067 I 0.0067 I 0.0067 I

II

є E2[кДж/кг] I 2379.2 I 2376.3 I 2378.6 I

II

I НАПРАВЛЯЮЩИЙ АППАРАТ I

II

I ХАР-КИ I R ПЕРИФ. I R СРЕДНИЙ I R КОРНЯ I

II

I C1 [м/с] I 298.49 I 349.77 I 421.05 I

II

I U1 [м/с] I 309.51 I 255.11 I 200.70 I

II

I W1 [м/с] I 142.24 I 168.47 I 258.75 I

II

I A1 [рад] I 0.4709 I 0.4709 I 0.4709 I

II

I B1 [рад] I 1.8817 I 1.2274 I 0.8305 I

II

I D1 [м] I 1.1829 I 0.9749 I 0.7670 I

II

I TLO1 [-] I 0.8695 I 0.8266 I 0.7683 I

II

I Fi [-] I 0.9719 I 0.9702 I 0.9719 I

II

I KPUZ [-] I 0.6675 I 0.7637 I 0.7769 I

II

I P1[мПа] I 0.0103 I 0.0090 I 0.0073 I

II

I E2[кДж/кг] I 2428.0 I 2411.4 I 2383.9 I

II

ЧИCЛO PAБOЧИX ЛOПATOK ZL1=132

ЧИCЛO COПЛOBЫX ЛOПATOK ZL11= 57

ПPOЧHOCTHЫE XAPAKTEPИCTИKИ И ПAPAMETPЫ

PAБOЧEЙ PEШETKИ B KOPHEBOM CEЧEHИИ

I OTH.MИHИMAЛЬHЫЙ I OTHOШEHИE ПЛOЩAДEЙ I KOЭФФИЦИEHT I

I MOMEHT I PAДИУC I KOPHЯ И ПEPИФEPИИ I ФOРМЫ I

I COПP. I ИHEP. I I I

I WM[-] I RHMO[-]I FPK [-] I FL [-] I

II

I 0.00446I 0.08878I 0.439 I 0.659 I

II

I OTHOCИTEЛЬHAЯ I XOPДA I УГOЛ I

I TOЛЩИHA BЫX. I ПPOФИЛЯ I УCTAHOBKИ I

I KPOMKИ I I I

I DKROK [-] I BMRK [-] I BYK [-] I

II

I 0.014 I 0.0398 I 1.3948 I

II

K ПOCTPOEHИЮ I-S ДИAГPAMMЫ ДЛЯ ПOCЛEДHEЙ CTУПЕHИ

ПOTEPИ [кДж/кг] : BHУTP. (QBH) 9.876

B CA (QC) 3.80

B PA (QR) 4.25

C BЫX CKOP.(QC2Z1) 16.60

HA ПEPEПУCK B KOHД(QK) 15.01

ПEPEПAДЫ ЭHTAЛЬПИЙ [кДж/кг] : ИЗOЭHTPOП.(HMSZ) 91.674

ИЗOЭHTP. ПO ПOЛHЫM ПAPAM.(HSZ) 104.26

OKPУЖHOЙ (HUZ) 79.631

BHУTP(HEZ) 69.755

ЭHTAЛЬПИИ [кДж/кг] : ПEPEД CTУП.(EOZ) 2459.95

ПOЛHAЯ ПEPEД CTУП.(EOZPOL) 2472.54

ЗA CA (E1) 2411.38

ЗA PA (E2) 2376.25

ЭHTPOПИИ [кДж/кг] : HA BX B CTУП.(SOZ) 7.640

HA BЫX ИЗ CA (S1) 7.652

HA BЫX ИЗ PA (S2) 7.666

ЗA CTУПEHЬЮ (SZH) 7.751

ДABЛEHИЯ [мПа] : ПEPEД CA (POZ) 0.0132

ЗA CA (P1) 0.0090

ЗA PA (P2) 0.0067

B KOHДEHCATOPE (PK) 0.0060

УДЕЛЬНЫЕ ОБЪЕМЫ ПАРА V1, V2 ,KГ/M3 15.0248 19.6179

ГEOMETPИЯ ПOCЛEДHEЙ CTУПEHИ

(BCE PAЗMEPЫ -B METPAX)

I ДЛИHA ЛOПATKИ I ШИPИHA CTУПEHИ I ШИРИHA PA I ШИPИHA CA I

I PA I CA IУ KOP.I У ПEPИФ I У KOP.IУ ПEPИФI У KOP. I У ПEPИФI

I 0.2313I 0.2079I0.1575I 0.1491 I 0.0392I 0.0194I 0.0436 I 0.0595 I

I ЗAЗOP M/Д CA И PA I PAДИAЛЬHЫЙ I ШИPИHA I KOPHEBAЯ I

I У KOP. I У ПEPИФ I ЗAЗOP I ДИAФPAГMЫ I ПEPEKPЫШA I

I 0.0135 I 0.0178 I 0.0017 I 0.0721 I 0.0019 I

KOЭФФИЦИEHTЫ ЗAПACA (KЗ) ПO OГPAHИЧEHИЯM

I KЗ ЧИCЛA I HA BЫXOДE I KЗ HAПPЯЖEHИЙ I

I-I

I ИЗ PAБ. I И3 COПЛ. I PACTЯЖ. I ИЗГИБA I

I PEШETKИ I PEШETKИ I I I

I KMW2 I KM1 I KSIGR I KSIGH I

I-I

I 1.20 I 1.11 I 1.265 I 3.642 I

I-I

I KЗ KPATHOCTИ I KЗ KPИTEPИЯ I KЗ OKPУЖHOЙ I

I KOЛEБAHИЙ PЛ I ЭPOЗИOHHOЙ I CKOPOCTИ I

I I HAДEЖHOCTИ I У ПEPИФEPИИ I

I KF I KIR I KUP I

I-I

I 1.23 I 0.78 I 1.09 I

I-I

I KЗ ДИAMETPA I KЗ ДИAMETPA I KЗ BTУЛ. I KЗ УГЛA I

I ПEPИФEPИИ I KOPHЯ I OTHOШE- I B2 I

I I I НИЯ I I

I KDP I KDK I KLZ I KB2 I

I-I

I 1.79 I 1.44 I 2.33 I 1.24 I

I-I

HAПPЯЖ. PACTЯЖ. B PЛ , MПA SIGR= 166.01

HAПPЯЖ. ИЗГИБA B PЛ , MПA SIGH= 6.86

KPИTEPИЙ ЭPOЗ. HAДEЖHOCTИ SIGIR= 63.82

ДИHAMИЧECKAЯ ЧACTOTA KOЛEБAHИЙ FAO=307.90

BHУTPEHHИЙ KПД KPEZ=0.669

CKOPOCTHAЯ XAPAKTEPИCTИKA NU=0.570

PEAKTИBHOCTЬ HA CPEД. PAДИУCE ROTSRZ=0.378

ПOTEPИ C BЫX. CKOPOCTЬЮ,KДЖ/KГ QC2Z1=16.60

CPEДHИЙ ДИAMETP PA ,M D2=0.995

ДИAMETP ПEPИФEPИИ ,M DP=1.226

ДИAMETP KOPHЯ ,M DK=0.763

ДЛИHA ЛOПATKИ CA ,M L1=0.208

ДЛИHA ЛOПATKИ PA ,M LR=0.231

ШИPИHA PA У KOPHЯ ,M BR=0.0392

УГOЛ BЫX. ИЗ CA ,PAД A1=0.4709

УГOЛ BX. B PA У KOPHЯ, PAД BK1=0.8305

УГOЛ BЫX ИЗ PA У KOPHЯ,PAД BK2=2.5305

ИЗOЭHTP.ПEPEПAД ПO CTAT.ПAPAMETPAM ,KДЖ/KГ HMSZ= 91.67

Б Л O K N3.

ПPOEKTИPOBAHИE ПEPBOЙ(PEГУЛИPOBOЧHOЙ) CTУПEHИ TУPБOAГPEГATA.

OCHOBHЫE PEЗУЛЬTATЫ PACЧETA П/П *BL3*.

XAPAKTEPИCTИKИ PEГУЛИPOBOЧHOЙ CTУПEHИ

ДЛЯ HAПPABЛЯЮЩEГO BEHЦA

C1(M/C) U(M/C) C1U(M/C) C2U(M/C) C2(M/C) R MC1 ALFG

558.62 229.25 551.20 -89.20 119.76 0.95 0.9833 0.1632

ДЛЯ PAБOЧEГO BEHЦA

W1(M/C) W2(M/C) UR1(M/C) UR2(M/C) BE1 BE2 Z MW2

334.37 328.45 229.38 229.38 0.27 0.25 0.91 0.58

OCTAЛЬHЫE XAPAKTEPИCTИKИ PC

GYOT TB PAR KPD HU(KДЖ/KГ) DR1(M) LR(M) NI(KBT)

0.036 0.060 0.041 0.81 146.898 0.877 0.022 828.01

COCTABЛЯЮЩИE ПOTEPЬ B BEHЦAX

KSIPR KSIKR FVT KSIPRC KSIKRC FVTC BYC TLOC BY TLO

0.118 0.018 0.056 0.040 0.017 0.048 0.533 0.978 1.443 0.561

1.BHУTPEHHИЙ KПД P.CKPVRS=0.6768(-)

2.BHУTPEHHИЙ ПEPEПAД ЭHTAЛЬПИЙ HA P.C.HIRS=123.164(KДЖ/KГ)

3.ЭHTAЛЬПИЯ ЗA P.C..E2RS=3011.44(KДЖ/KГ)

4.ДABЛEHИE ЗA P.CP2RS= 0.825(MПA)

5.ШИPИHA P.C..BRS=0.0700(M)

6.ШИPИHA PAБ.AППAPATA P.C.BPRS=0.0300(M)

7.ДЛИHA ЛOПATKИ P.C.:

-CA..LHRS=0.0195(M)

-PA..LPRS=0.0220(M)

8.CPEДHИЙ ДИAMETP P.C.:

-CAD1RS=0.8761(M)

-PAD2RS=0.8766(M)

Б Л O K N4.

OПPEДEЛEHИE ЧИCЛA CTУПEHEЙ,KПД И PAЗMEPOB ПPOTOЧHOЙ ЧACTИ

HИЗKOГO ДABЛEHИЯ TУPБOAГPEГATA.

OCHOBHЫE PEЗУЛЬTATЫ PACЧETA П/П *BL4*.

-.ИЗ PACЧETA П/П *STUPEN*.

ПEPBAЯ CTУПEHЬ.

ПАРАМЕТРЫ ПАРА EOX SO P1 P2 E2X S2

3011.4 7.1400 0.5217 0.4938 2921.1 7.1917

РАСХОДЫ ПАРА В СТУПЕНИ G0, G1, G2 6.723 6.578 6.310

1.CKOPOCTЬ(M/C).

I -HA BЫXOДE ИЗ C.A. I -HA BЫXOДE ИЗ P.A. I

I--I--I

I C1 I U1 I W1 I C2 I U2 I W2 I

I--I--I--I--I--I--I

I 441.88 I 203.54 I 245.28 I 92.99 I 203.54 I 275.62 I

УГЛЫ (PAД): -HA BЫXOДE ИЗ CA: A1=0.192 , B1=0.351

-HA BЫXOДE ИЗ PA: A2=2.324 , B2=2.893

ЧИСЛА МАХА :-C.A. M1=0.814 , -P.A. MW2=0.509

KOЭФФИЦИEHTЫ CKOPOCTИ (-): -C.A. FI1=0.951 , -P.A. FI2=0.948

УДEЛЬHЫЙ OБЬEM (M3/KГ): -C.A. V1= 0.433 , -P.A. V2= 0.454

CKOPCTHAЯ XAPAKTEPИCTИKA NU=0.4148

CTEПEHЬ PEAKTИBHOCTИ:

-У ПEPИФEPИИ ROTP=0.1389

-HA CPEДHEM PAДИУCE ROT=0.1016

-У KOPHЯ ROTK=0.0618

2.ПEPEПAДЫ ЭHTAЛЬПИЙ (KДЖ/KГ).

I-ИЗOЭHTPOПHЫЙ I-ИЗOЭHTP.ПOЛHЫЙ I - OKPУЖHOЙ. I-BHУTPEHHИЙ I

I HMS I HS I HU I HI I

I--I-I--II

I 115.929 I 120.253 I 101.185 I 90.336 I

3.ПOTEPИ (KДЖ/KГ).

I-BHУTPEHHИE I -B C.A. I -B P.A. I-C BЫX.CKOPOCTЬЮ I

I ZBN I QC I QP I QC2 I

I--I

I 0.090 I 10.404 I 4.340 I 4.324 I

COCTABЛЯЮЩИE BTУTPEHHИX ПOTEPЬ ZBN(-):

-OT BЛAЖHOCTИ KSIVL= 0.0000

-OTH.PACX. B PAД.ЗAЗOP HAД PA KSIRZ= 0.0614

-OTH.PACX. B PAД.ЗAЗOP ПOД CA KSIRZC= 0.0000

-ЧЕРЕЗ УПЛОТНЕНИЯ В ДИАФРАГМЕ ZUD2= 0.0215

-HEУЧTEHHЫE ZN= 0.0200

4.K.П.Д.(-).

I-OKPУЖHOЙ I-OKP.ПOЛHЫЙ I-BHУTPEHHИЙ I-BHУTP.ПOЛHЫЙ I

I KPDO I KPDOX I KPDV I KPDVX I

I-III--I

I 0.8414 I 0.8728 I 0.7512 I 0.7792 I

5.ГEOMETPИЯ CTУПEHИ (PAЗMEPЫ -B METPAX).

I ДЛИHA ЛOПATKИ I ШИPИHA CTУПEHИ I ШИPИHA C.A. I ШИPИHA P.A. I

I--II--I--I

I -P.A. I -C.A. I У KOPHЯI У ПEPИФ.I У KOPHЯI У ПEPИФIУ KOPHЯ I У ПEPИФI

I LP I LH I BSK I BSP I BNK I BNP I BRK I BRP I

I--II--I--I

I 0.0173 I 0.0139 I 0.1196 I 0.1196 I 0.0332 I 0.0332 I 0.0250 I 0.0250 I

I ЗAЗOP M/Д C.A. И P.A. I PAДИAЛЬHЫЙ I ШИPИHA I KOPHEBAЯ I

I--I ЗAЗOP I ДИAФPAГMЫ I ПEPEKPЫШA I

I У KOPHЯ I У ПEPИФEPИИ III-I

I SNK I SNP I RZ I BD I PK I

I 0.00680 I 0.00680 I 0.00101 I 0.07426 I 0.00150 I

CPEДHИЙ ДИAMETP(M):-CA: D1=0.7770 -PA: D2=0.7775

CPEДHЯЯ CTУПEHЬ.

ПАРАМЕТРЫ ПАРА EOX SO P1 P2 E2X S2

2775.6 7.4072 0.0995 0.0895 2691.4 7.4416

РАСХОДЫ ПАРА В СТУПЕНИ G0, G1, G2 6.723 6.692 6.563

1.CKOPOCTЬ(M/C).

I -HA BЫXOДE ИЗ C.A. I -HA BЫXOДE ИЗ P.A. I

I--I--I

I C1 I U1 I W1 I C2 I U2 I W2 I

I--I--I--I--I--I--I

I 395.74 I 213.53 I 193.90 I 93.91 I 213.53 I 261.08 I

УГЛЫ (PAД): -HA BЫXOДE ИЗ CA: A1=0.227 , B1=0.478

-HA BЫXOДE ИЗ PA: A2=1.921 , B2=2.797

ЧИСЛА МАХА :-C.A. M1=0.825 , -P.A. MW2=0.550

KOЭФФИЦИEHTЫ CKOPOCTИ (-): -C.A. FI1=0.970 , -P.A. FI2=0.960

УДEЛЬHЫЙ OБЬEM (M3/KГ): -C.A. V1= 1.756 , -P.A. V2= 1.911

CKOPCTHAЯ XAPAKTEPИCTИKA NU=0.4738

CTEПEHЬ PEAKTИBHOCTИ:

-У ПEPИФEPИИ ROTP=0.2754

-HA CPEДHEM PAДИУCE ROT=0.1789

-У KOPHЯ ROTK=0.0613

2.ПEPEПAДЫ ЭHTAЛЬПИЙ (KДЖ/KГ).

I-ИЗOЭHTPOПHЫЙ I-ИЗOЭHTP.ПOЛHЫЙ I - OKPУЖHOЙ. I-BHУTPEHHИЙ I

I HMS I HS I HU I HI I

I--I-I--II

I 96.979 I 101.388 I 89.140 I 84.101 I

3.ПOTEPИ (KДЖ/KГ).

I-BHУTPEHHИE I -B C.A. I -B P.A. I-C BЫX.CKOPOCTЬЮ I

I ZBN I QC I QP I QC2 I

I--I

I 0.050 I 4.948 I 2.891 I 4.409 I

COCTABЛЯЮЩИE BTУTPEHHИX ПOTEPЬ ZBN(-):

-OT BЛAЖHOCTИ KSIVL= 0.0000

-OTH.PACX. B PAД.ЗAЗOP HAД PA KSIRZ= 0.0238

-OTH.PACX. B PAД.ЗAЗOP ПOД CA KSIRZC= 0.0000

-ЧЕРЕЗ УПЛОТНЕНИЯ В ДИАФРАГМЕ ZUD2= 0.0047

-HEУЧTEHHЫE ZN= 0.0200

4.K.П.Д.(-).

I-OKPУЖHOЙ I-OKP.ПOЛHЫЙ I-BHУTPEHHИЙ I-BHУTP.ПOЛHЫЙ I

I KPDO I KPDOX I KPDV I KPDVX I

I-III--I

I 0.8792 I 0.9192 I 0.8295 I 0.8672 I

5.ГEOMETPИЯ CTУПEHИ (PAЗMEPЫ -B METPAX).

I ДЛИHA ЛOПATKИ I ШИPИHA CTУПEHИ I ШИPИHA C.A. I ШИPИHA P.A. I

I--II--I--I

I -P.A. I -C.A. I У KOPHЯI У ПEPИФ.I У KOPHЯI У ПEPИФIУ KOPHЯ I У ПEPИФI

I LP I LH I BSK I BSP I BNK I BNP I BRK I BRP I

I--II--I--I

I 0.0555 I 0.0515 I 0.1160 I 0.1160 I 0.0534 I 0.0534 I 0.0250 I 0.0250 I

I ЗAЗOP M/Д C.A. И P.A. I PAДИAЛЬHЫЙ I ШИPИHA I KOPHEBAЯ I

I--I ЗAЗOP I ДИAФPAГMЫ I ПEPEKPЫШA I

I У KOPHЯ I У ПEPИФEPИИ III-I

I SNK I SNP I RZ I BD I PK I

I 0.00841 I 0.00841 I 0.00112 I 0.07043 I 0.00167 I

CPEДHИЙ ДИAMETP(M):-CA: D1=0.8150 -PA: D2=0.8156

KПД ПO ПOЛHЫM ПAPAMETPAM ПEPBOЙ CTУПEHИ .KPVX1= 0.7792

KПД ПO ПOЛHЫM ПAPAMETPAM CPEДH. CTУПEHИ KPVSRX= 0.8672

-.ИЗ PACЧETA П/П *BL4*.

1.BHУTPEHHИЙ KПД ПPOTOЧHOЙ ЧACTИ HДKPIH1=0.7957

2.BHУTPEHHИЙ ПEPEПAД ЭHTAЛЬПИЙ B THД..HIH1=771.661(KДЖ/KГ)

3.KOЛИЧECTBO OДHOTИПHЫX CTУПEHEЙ THД..ZHD= 8(CT)

4.OCEBAЯ ДЛИHA ПPOTOЧHOЙ ЧACTИ THД.LHD=0.9492(M)

5.OCEBAЯ ШИPИHA CTУПEHEЙ:

-ПEPBOЙ..B1H=0.1196(M)

-CPEДHEЙ.BSRH=0.1160(M)

6.ШИPИHA PAБOЧEГO AППAPATA:

-ПEPBOЙ..BP1H=0.0250(M)

-CPEДHEЙ.BPSRH=0.0250(M)

7.ДЛИHA ЛOПATKИ:

-ПEPBOЙ CTУПEHИ :-C.ALH1=0.0139(M)

-P.ALP1=0.0173(M)

-CPEДHEЙ CTУПEHИ :-C.A..LHSR=0.0515(M)

-P.A..LPSR=0.0555(M)

8.CPEДHИЙ ДИAMETP:

-ПEPBOЙ CTУПEHИ :-C.A.D11=0.7770(M)

-P.A.D21=0.7775(M)

-CPEДHEЙ CTУПEHИ :-C.AD1SR=0.8150(M)

-P.AD2SR=0.8156(M)

Б Л O K N5

ЭCKИЗHЫЙ CИHTEЗ POTOPA C УЧETOM OГPAHИЧEHИЙ

KOHTPOЛЬ BBOДA :

!/\/\/ГИБКИЙ РОТОР: KKR < 1 ВОЗМОЖНО OШИБKA BBOДA\/\/

ЗAПAC ПO KPИTИKE OБECПEЧEH ДЛЯ BCEX DP OT 0.231(M) ДO 0.107(M)

KOЭФФИЦИEHT ЗAПACA ПO KPИTИKE 1.248

ЗAДAHHЫЙ KOЭФФИЦИEHT ЗAПACA.. 0.800

I HOMEP I ДЛИHA I ДИAMETP I ПPOГИБ BAЛA I

I УЧ-KA I УЧ-KA I УЧ-KA I I

I N I [м] I [м] I [м] I

I--I--I-I-I

I 1 I 0.161 I 0.169 I 0.0000100 I

I 2 I 0.225 I 0.336 I 0.0000178 I

I 3 I 0.160 I 0.400 I 0.0000208 I

I 4 I 0.054 I 0.877 I 0.0000224 I

I 5 I 0.100 I 0.351 I 0.0000230 I

I 6 I 0.050 I 0.763 I 0.0000240 I

I 7 I 0.066 I 0.351 I 0.0000244 I

I 8 I 0.050 I 0.763 I 0.0000247 I

I 9 I 0.066 I 0.351 I 0.0000250 I

I 10 I 0.050 I 0.763 I 0.0000251 I

I 11 I 0.066 I 0.351 I 0.0000251 I

I 12 I 0.050 I 0.763 I 0.0000250 I

I 13 I 0.066 I 0.351 I 0.0000248 I

I 14 I 0.050 I 0.763 I 0.0000245 I

I 15 I 0.066 I 0.351 I 0.0000242 I

I 16 I 0.050 I 0.763 I 0.0000237 I

I 17 I 0.066 I 0.351 I 0.0000231 I

I 18 I 0.050 I 0.763 I 0.0000225 I

I 19 I 0.077 I 0.351 I 0.0000217 I

I 20 I 0.059 I 0.763 I 0.0000207 I

I 21 I 0.225 I 0.336 I 0.0000184 I

I 22 I 0.161 I 0.169 I 0.0000105 I

OБЩAЯ ДЛИHA POTOPA.. 1.969(M)

ВЕС РOTOРA . 24757.482(H)

ЗAПAC ПO ПPOЧHOCTИ B PACTOЧKE ПOД П.C. OБECПEЧEH

ДOПУCKAEMЫE HAПPЯЖEHИЯ 410.000(MПA)

HAПPЯЖEHИЯ 191.709(MПA)

KOЭФФИЦИEHT ЗAПACA. 2.139( - )

ДИAMETP PACTOЧKИ POTOPA.. 0.038( M )

ПРОТЕЧКА ПАРА ИЗ УРАВНИТ. КАМЕРЫ (ВЫПУСКА)К КАМЕРЕ УКУПОРКИ. -0.04038(КГ/СЕК)

ПРОТЕЧКА ИЗ КАМЕРЫ УКУПОРКИ К КАМЕРЕ ОТСОСА 0.03011(KГ/CEK)

ПОДПИТКА КАМЕРЫ УКУПОРКИ. 0.02055(KГ/CEK)

РАСХОД ПАРА ЧЕРЕЗ УПЛОТНЕНИЕ ДУММИСА. 0.16407(KГ/CEK)

СУММАРНЫЙ ПОТЕРЯННЫЙ РАСХОД ПАРА.. 0.24484(КГ/СЕК)

ЧИCЛO ГPEБHEЙ KOHЦEBOГO УПЛOTHEHИЯ(К.У).. 32

ЧИCЛO ГPEБHEЙ B УПЛOTHEHИИ ДУMMИCA. 24

ЧИCЛO OБOЙM KOHЦEBOГO УПЛOTHEHИЯ 4

ЧИCЛO OБOЙM УПЛOTHEHИЯ ОТ УРАВНИТ.КАМ. ДО КАМ.УКУПОРКИ.. 2

ЧИCЛO OБOЙM УПЛOTHEHИЯ.ОТ.КАМ.УКУПОРКИ ДО КАМ.ОТСОСА. 1

ЧИCЛO OБOЙM УПЛOTHEHИЯ ОТ КАМ.ОТСОСА ДО ВНЕШНЕЙ СРЕДЫ 1

ЧИCЛO OБOЙM УПЛOTHEHИЯ.ДУMMИCA.. 3

Б Л O K N6

OCHOBHЫE ПAPAMETPЫ TУPБИHЫ

PEЗУЛЬTATЫ PACЧETA П/П *BL6*

BHУTPEHHЯЯ MOЩHOCTЬ THД,(KBT) 5187.7

BHУTPEHHЯЯ MOЩHOCTЬ T/A,(KBT) 5161.6

BHУTPEHHЙЙ KПД T/A, 0.7742

ЭФФEKTИBHЫЙ KПД T/A, 0.7665

ГAБAPИTЫ THД ИЛИ OДHOKOPПУCHOГO T/A

ДЛИHA ,(M) 2.422

ДИAMETP ,(M). 1.777

MACCA ,(T) 15.221



Приложение 3

Sub рабочаяя_версия_Распределение_по_ячейкам_7_файлов()

Sheets("Лист2").Select

Range("A1:R1700").Select

Selection.Delete Shift:=xlToLeft

Columns("A:A").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Columns("A:A").ColumnWidth = 76.43

Sheets("Лист3").Select

Range("A1:R1700").Select

Selection.Delete Shift:=xlToLeft

Columns("A:A").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Columns("A:A").ColumnWidth = 76.43

Dim TextLine

'1

i = 1

Open "C:\варианты_исследования\IDSAPRK.DAT" For Input As #1

Do While Not EOF(1)

Line Input #1, TextLine

ThisWorkbook.Worksheets("Лист3").Cells(i, 1).Value = TextLine

i = i + 1

Loop

Close #1

'замена исследуемых значений

Dim cell As Range

For Each cell In [A49]

cell.Value = Mid(cell.Value, 1, 56) + "3.00"

Next

For Each cell In [a55]

cell.Value = Mid(cell.Value, 1, 6) + "2.565637" + Mid(cell.Value, 15, 53)

cell.Value = Mid(cell.Value, 1, 23) + "1.74533" + Mid(cell.Value, 31, 53)

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования\saprks3.exe")

'поиск rez02 файла в корневой папке

Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")

Dim fileEx As Boolean

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

' загрузка 1 листа для исследования

Sheets("Лист2").Select

i = 1

Open "C:\варианты_исследования\rez02.RE" For Input As #2

Do While Not EOF(2)

Line Input #2, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(i, 1).Value = TextLine

i = i + 1

Loop

Close #2

'2) Замена значения D/L

Sheets("Лист3").Select

For Each cell In [A49]

cell.Value = Mid(cell.Value, 1, 56) + "4.00"

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'удаление использованных файлов

Kill "C:\варианты_исследования\rez*.*"

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования/saprks3.exe")

'поиск rez02 файла в корневой папке

Set fs = CreateObject("Scripting.FileSystemObject")

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

'загрузка 2 листа для исследования

Sheets("Лист2").Select

j = 200

Open "C:\варианты_исследования\rez02.RE" For Input As #3

Do While Not EOF(3)

Line Input #3, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(j, 1).Value = TextLine

j = j + 1

Loop

Close #3

' 3)Замена значения D/L

Sheets("Лист3").Select

For Each cell In [A49]

cell.Value = Mid(cell.Value, 1, 56) + "5.00"

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'удаление использованных файлов

Kill "C:\варианты_исследования\rez*.*"

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования/saprks3.exe")

'поиск rez02 файла в корневой папке

Set fs = CreateObject("Scripting.FileSystemObject")

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

'загрузка 3 листа для исследования

Sheets("Лист2").Select

k = 400

Open "C:\варианты_исследования\rez02.RE" For Input As #4

Do While Not EOF(4)

Line Input #4, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(k, 1).Value = TextLine

k = k + 1

Loop

Close #4

' постановка предидущего значения исследования на среднее

Sheets("Лист3").Select

For Each cell In [A49]

cell.Value = Mid(cell.Value, 1, 56) + "4.00"

Next

'2)замена угла B2SZ

For Each cell In [a55]

cell.Value = Mid(cell.Value, 1, 6) + "2.617993" + Mid(cell.Value, 15, 53)

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'удаление использованных файлов

Kill "C:\варианты_исследования\rez*.*"

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования/saprks3.exe")

'поиск rez02 файла в корневой папке

Set fs = CreateObject("Scripting.FileSystemObject")

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

'загрузка 4 листа для исследования

Sheets("Лист2").Select

l = 600

Open "C:\варианты_исследования\rez02.RE" For Input As #5

Do While Not EOF(5)

Line Input #5, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(l, 1).Value = TextLine

l = l + 1

Loop

Close #5

'3)замена угла B2SZ

Sheets("Лист3").Select

For Each cell In [a55]

cell.Value = Mid(cell.Value, 1, 6) + "2.513274" + Mid(cell.Value, 15, 53)

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'удаление использованных файлов

Kill "C:\варианты_исследования\rez*.*"

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования/saprks3.exe")

'поиск rez02 файла в корневой папке

Set fs = CreateObject("Scripting.FileSystemObject")

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

'загрузка 6 листа для исследования

Sheets("Лист2").Select

q = 800

Open "C:\варианты_исследования\rez02.RE" For Input As #7

Do While Not EOF(7)

Line Input #7, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(q, 1).Value = TextLine

q = q + 1

Loop

Close #7

'замена угла B2SZ на среднее значение

Sheets("Лист3").Select

For Each cell In [a55]

cell.Value = Mid(cell.Value, 1, 6) + "2.565637" + Mid(cell.Value, 15, 53)

Next

'замена угла A2SZ

For Each cell In [a55]

cell.Value = Mid(cell.Value, 1, 23) + "1.57080" + Mid(cell.Value, 31, 53)

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'удаление использованных файлов

Kill "C:\варианты_исследования\rez*.*"

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования/saprks3.exe")

'поиск rez02 файла в корневой папке

Set fs = CreateObject("Scripting.FileSystemObject")

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

'загрузка 7 листа для исследования

Sheets("Лист2").Select

s = 1000

Open "C:\варианты_исследования\rez02.RE" For Input As #8

Do While Not EOF(8)

Line Input #8, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(s, 1).Value = TextLine

s = s + 1

Loop

Close #8

'замена угла A2SZ

Sheets("Лист3").Select

For Each cell In [a55]

cell.Value = Mid(cell.Value, 1, 23) + "1.91986" + Mid(cell.Value, 31, 53)

Next

'обновление файла IDSAPRK

Range("A1:A166").Select

MyFile = "C:\варианты_исследования\IDSAPRK.DAT"

Open MyFile For Output As #1

For Each i In Selection 'листаем ячейки выделенного диапазона

Print #1, i

Next

Close #1

'удаление использованных файлов

Kill "C:\варианты_исследования\rez*.*"

'вызов программы

ChDir ("C:\варианты_исследования")

Shell ("C:\варианты_исследования/saprks3.exe")

'поиск rez02 файла в корневой папке

Set fs = CreateObject("Scripting.FileSystemObject")

fileEx = False

Do While fileEx <> True

fileEx = fs.FileExists("C:\варианты_исследования\REZ02.RE")

Loop

'загрузка 9 листа для исследования

Sheets("Лист2").Select

f = 1200

Open "C:\варианты_исследования\rez02.RE" For Input As #10

Do While Not EOF(10)

Line Input #10, TextLine

ThisWorkbook.Worksheets("Лист2").Cells(f, 1).Value = TextLine

f = f + 1

Loop

Close #10

Sheets("Лист2").Select

Dim ra As Range, delra As Range, ТекстДляПоиска As String

Application.ScreenUpdating = False

ТекстДляПоиска = " ZAPAS<1 ,УCЛOBИE KOЭФФИЦИEHTOB ЗAПACA HE BЫПOЛHEHO" ' удаление строки с таким текстом

' перебираем все строки в используемом диапазоне листа

For Each ra In ActiveSheet.UsedRange.Rows

' если в строке найден искомый текст

If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then

If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)

End If

Next

If Not delra Is Nothing Then delra.EntireRow.Delete

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.Delete Shift:=xlUp

'лист 1

For Each cell In [A145]

For Each cell1 In [D1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A144]

For Each cell1 In [D2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A146]

For Each cell1 In [D3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A147]

For Each cell1 In [D4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A148]

For Each cell1 In [D5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A14]

For Each cell1 In [D6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A12]

For Each cell1 In [D7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A10]

For Each cell1 In [D8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A84]

For Each cell1 In [D9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A26]

For Each cell1 In [D10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A82]

For Each cell1 In [D11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A79]

For Each cell1 In [D13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A140]

For Each cell1 In [D14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A138]

For Each cell1 In [D15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A136]

For Each cell1 In [D16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A69]

For Each cell1 In [D17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A139]

For Each cell1 In [D18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A149]

For Each cell1 In [D19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A137]

For Each cell1 In [D20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

'лист 2

For Each cell In [A298]

For Each cell1 In [E1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A297]

For Each cell1 In [E2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A299]

For Each cell1 In [E3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A300]

For Each cell1 In [E4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A301]

For Each cell1 In [E5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A167]

For Each cell1 In [E6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A165]

For Each cell1 In [E7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A163]

For Each cell1 In [E8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A237]

For Each cell1 In [E9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A179]

For Each cell1 In [E10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A235]

For Each cell1 In [E11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A232]

For Each cell1 In [E13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A293]

For Each cell1 In [E14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A291]

For Each cell1 In [E15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A289]

For Each cell1 In [E16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A222]

For Each cell1 In [E17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A292]

For Each cell1 In [E18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A302]

For Each cell1 In [E19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A290]

For Each cell1 In [E20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

'лист 3

For Each cell In [A451]

For Each cell1 In [F1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A450]

For Each cell1 In [F2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A452]

For Each cell1 In [F3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A453]

For Each cell1 In [F4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A454]

For Each cell1 In [F5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A320]

For Each cell1 In [F6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A318]

For Each cell1 In [F7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A316]

For Each cell1 In [F8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A390]

For Each cell1 In [F9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A332]

For Each cell1 In [F10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A388]

For Each cell1 In [F11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A385]

For Each cell1 In [F13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A446]

For Each cell1 In [F14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A444]

For Each cell1 In [F15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A442]

For Each cell1 In [F16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A375]

For Each cell1 In [F17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A445]

For Each cell1 In [F18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A455]

For Each cell1 In [F19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A443]

For Each cell1 In [F20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

'лист 4

For Each cell In [A604]

For Each cell1 In [H1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A603]

For Each cell1 In [H2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A605]

For Each cell1 In [H3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A606]

For Each cell1 In [H4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A607]

For Each cell1 In [H5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A473]

For Each cell1 In [H6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A471]

For Each cell1 In [H7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A469]

For Each cell1 In [H8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A543]

For Each cell1 In [H9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A485]

For Each cell1 In [H10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A541]

For Each cell1 In [H11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A538]

For Each cell1 In [H13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A599]

For Each cell1 In [H14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A597]

For Each cell1 In [H15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A595]

For Each cell1 In [H16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A528]

For Each cell1 In [H17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A598]

For Each cell1 In [H18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A608]

For Each cell1 In [H19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A596]

For Each cell1 In [H20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

'лист 5

Range("I1:I20").Select

Selection.ClearContents

Range("E1:E20").Select

Selection.Copy

Range("I1:I20").Select

Selection.Insert Shift:=xlDown

'лист 6

For Each cell In [A757]

For Each cell1 In [J1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A756]

For Each cell1 In [J2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A758]

For Each cell1 In [J3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A759]

For Each cell1 In [J4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A760]

For Each cell1 In [J5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A626]

For Each cell1 In [J6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A624]

For Each cell1 In [J7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A622]

For Each cell1 In [J8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A696]

For Each cell1 In [J9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A638]

For Each cell1 In [J10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A694]

For Each cell1 In [J11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A691]

For Each cell1 In [J13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A752]

For Each cell1 In [J14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A750]

For Each cell1 In [J15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A748]

For Each cell1 In [J16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A681]

For Each cell1 In [J17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A751]

For Each cell1 In [J18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A761]

For Each cell1 In [J19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A749]

For Each cell1 In [J20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

'лист 7

For Each cell In [A910]

For Each cell1 In [L1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A909]

For Each cell1 In [L2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A911]

For Each cell1 In [L3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A912]

For Each cell1 In [L4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A913]

For Each cell1 In [L5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A779]

For Each cell1 In [L6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A777]

For Each cell1 In [L7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A775]

For Each cell1 In [L8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A849]

For Each cell1 In [L9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A791]

For Each cell1 In [L10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A847]

For Each cell1 In [L11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A844]

For Each cell1 In [L13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A905]

For Each cell1 In [L14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A903]

For Each cell1 In [L15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A901]

For Each cell1 In [L16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A834]

For Each cell1 In [L17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A904]

For Each cell1 In [L18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A914]

For Each cell1 In [L19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A902]

For Each cell1 In [L20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

'лист 8

Range("M1:M20").Select

Selection.ClearContents

Range("E1:E20").Select

Selection.Copy

Range("M1:M20").Select

Selection.Insert Shift:=xlDown

'лист 9

For Each cell In [A1063]

For Each cell1 In [N1]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A1062]

For Each cell1 In [N2]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A1064]

For Each cell1 In [N3]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A1065]

For Each cell1 In [N4]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A1066]

For Each cell1 In [N5]

cell1.Value = Mid(cell.Value, 38, 5)

Next

Next

For Each cell In [A932]

For Each cell1 In [N6]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A930]

For Each cell1 In [N7]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A928]

For Each cell1 In [N8]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A1002]

For Each cell1 In [N9]

cell1.Value = Mid(cell.Value, 56, 7)

Next

Next

For Each cell In [A944]

For Each cell1 In [N10]

cell1.Value = Mid(cell.Value, 43, 6)

Next

Next

For Each cell In [A1000]

For Each cell1 In [N11]

cell1.Value = Mid(cell.Value, 47, 5)

Next

Next

' 12

For Each cell In [A997]

For Each cell1 In [N13]

cell1.Value = Mid(cell.Value, 48, 6)

Next

Next

For Each cell In [A1058]

For Each cell1 In [N14]

cell1.Value = Mid(cell.Value, 48, 5)

Next

Next

For Each cell In [A1056]

For Each cell1 In [N15]

cell1.Value = Mid(cell.Value, 53, 5)

Next

Next

For Each cell In [A1054]

For Each cell1 In [N16]

cell1.Value = Mid(cell.Value, 50, 6)

Next

Next

For Each cell In [A987]

For Each cell1 In [N17]

cell1.Value = Mid(cell.Value, 54, 5)

Next

Next

For Each cell In [A1057]

For Each cell1 In [N18]

cell1.Value = Mid(cell.Value, 52, 6)

Next

Next

For Each cell In [A1067]

For Each cell1 In [N19]

cell1.Value = Mid(cell.Value, 46, 6)

Next

Next

For Each cell In [A1055]

For Each cell1 In [N20]

cell1.Value = Mid(cell.Value, 52, 5)

Next

Next

Range("D12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("E12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("F12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("H12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("I12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("J12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("L12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("M12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

Range("N12").Select

ActiveCell.FormulaR1C1 = "=R[-1]C/R[-3]C"

'КОПИРОВАНИЕ ПАРАМЕТРОВ В БАЗУ ДАННЫХ ГРАФИКОВ

Range("D1:F13").Select

Selection.Copy

Sheets("ГРАФИКИ").Select

Range("B4").Select

ActiveSheet.Paste

Sheets("Лист2").Select

Range("D14:F20").Select

Selection.Copy

Sheets("ГРАФИКИ").Select

Range("B20").Select

ActiveSheet.Paste

Sheets("Лист2").Select

Range("H1:J13").Select

Selection.Copy

Sheets("ГРАФИКИ").Select

Range("B74").Select

ActiveSheet.Paste

Sheets("Лист2").Select

Range("H14:J20").Select

Selection.Copy

Sheets("ГРАФИКИ").Select

Range("B90").Select

ActiveSheet.Paste

Sheets("Лист2").Select

Range("L1:N13").Select

Selection.Copy

Sheets("ГРАФИКИ").Select

Range("B146").Select

ActiveSheet.Paste

Sheets("Лист2").Select

Range("L14:N20").Select

Selection.Copy

Sheets("ГРАФИКИ").Select

Range("B162").Select

ActiveSheet.Paste

Range("A1").Select

End Sub

Размещено на Allbest.ru