 |
Показатели экономической эффективности инвестиционного проекта
|
|
|
|
Динамические методы расчета предполагают учет фактора времени и
расчет денежных потоков в различные периоды реализации проекта.
К обобщающим показателям динамических методов расчета относятся:
– интегральный экономический эффект (NPV);
– индекс доходности;
– внутренний коэффициент эффективности;
– максимальный денежный отток;
– период возврата капитальных вложений и срок окупаемости.
NPV (чистая текущая стоимость проекта) определяется путем вычисления разности совокупного дохода за весь период функционирования проекта и всех видов расходов, суммированных за тот же период с учетом дисконтирования.
Результаты расчета NPV представлены в таблице 5.12.
Таблица 5.12.
Денежные потоки
| Денежные потоки | годы | ||
| 1. Денежный поток от инвестиционной деятельности: | |||
| 1.1. Затраты на НИР (КНИР), руб. | 50804,2 | ||
| 1.2. Затраты на комплектующие и оборудование (Кнов), руб. | 142860,0 | ||
| 1.3. Итого: денежный поток от инвестиционной деятельности, руб. | 193664,2 | ||
| 2. Денежный поток от операционной деятельности: | |||
| 2.1. Увеличение дохода за счет внедрения АСУ, руб. | 2159980,2 | 2159980,2 | |
| 2.1.1. Увеличение объема выручки, руб. | |||
| 2.1.2. Экономия на себестоимости, руб. | 1194680,2 | 1194680,2 | |
| 2.2. Изменение затрат, руб. в т.ч. | |||
| 2.2.1. Амортизация оборудования, руб. | |||
| 2.3 Прирост валовой прибыли, руб. | 865005,2 | 865005,2 | |
| 2.4. Налог на прибыль (24 %), руб. | 207601,25 | 207601,25 | |
| 2.5. Прирост чистой прибыли, руб. | 657403,95 | 657403,95 | |
| 2.6. Итого: сальдо операционной деятельности, руб. | 681213,95 | 681213,95 | |
| 3. Чистый денежный поток (ЧДП), руб. | -193664,2 | 681213,95 | 681213,95 |
| 4. ЧДП нарастающим итогом, руб. | -193664,2 | 487549,75 | 1168763,7 |
| 5. Коэффициент дисконтирования 15% | 0,87 | 0,756 | |
| 6. Дисконтированный денежный поток, руб. | -193664,2 | 592656,14 | 514997,75 |
| 7. Дисконтированный денежный поток нарастающим итогом (NPV), руб. | -193664,2 | 398991,94 | 913989,69 |
|
|
|
Расчет интегрального экономического эффекта NPV можно представить в виде формулы (5.27):
NPV= 
(Дt–Зt+At) · at– Kt·at= (Пч+Аt) · at– Kt·at=913989,69 руб. (5.27)
где Дt – доходы от реализации проекта по годам; Зt – текущие затраты без амортизации; At – амортизационные отчисления; Kt – капитальные вложения в основные и оборотные фонды; ПЧ – прибыль чистая.
Индекс доходности SRR определяется как отношение суммарного дисконтированного дохода к суммарным дисконтированным капитальным вложениям по формуле (5.28):
(5.28)
где 
- сальдо операционной деятельности в t-м годе, 
- денежный поток от инвестиционной деятельности в t-м годе.
Индекс доходности составляет:
(5.29)
Как видно, полученный индекс доходности больше 1, что говорит об эффективности инвестиционного проекта.
Внутренний коэффициент эффективности проекта IRR определяется как пороговое значение рентабельности, при котором NPV равно нулю:
Таблица 5.13.
| 1. Чистый денежный поток (ЧДП), руб. | -193664,2 | 681213,95 | 681213,95 |
| 2. ЧДП нарастающим итогом, руб. | -193664,2 | 487549,75 | 1168763,7 |
| 3. Коэффициент дисконтирования 15% | 0,2309 | 0,0533 | |
| 4. Дисконтированный денежный поток, руб. | -193664,2 | 157324,24 | 36333,54 |
| 5. Дисконтированный денежный поток нарастающим итогом (NPV), руб. | -193664,2 | -36339,96 | -6,42 |
. (5.30)
При r1 = 15 % NPVr1 = 913989,69 руб.;
При r2 = 333 % NPVr2 = -6,42 руб.
% (5.31)
Как видно, полученный внутренний коэффициент эффективности проекта намного больше ставки дисконтирования rпор > r1, что говорит об эффективности инвестиционного проекта.
Срок окупаемости капитальных вложений, формула (5.32):
, (5.32)
где 
- величина NPV в t-м периоде, = 193664,2 руб.
- величина ДДП в t+1-м периоде, =1435487,8 руб.
Срок окупаемости капитальных вложений составляет
= 193664,2 / 592656,14= 0,33 года или 3,96 месяца.
|
|
|
Срок возврата инвестиций (5.33):
(5.33)
где tx - количество периодов, при которых NPV<0, tx= 1 год.
Срок возврата инвестиций составляет
= 1 + 193664,2 / 592656,14= 1,33 года или 15,96 месяцев.
Финансовый профиль инвестиционного проекта представляет собой график чистой текущей стоимости во времени нарастающим итогом
(рис. 5.1).
Рис. 5.1. Финансовый профиль инвестиционного проекта
Результаты всех технико-экономических расчетов представлены в таблице 5.14.
Цена 1 тонны сахара 16 тысяч рублей.
Таблица 5.14.
Технико-экономические показатели инвестиционного проекта
| Показатель | Величина | Отклонение +/- | |
| До внедрения | После внедрения | ||
| Выпуск продукции: | |||
| а) в натуральном выражении, т. | |||
| б) в стоимостном выражении, тыс. руб. | |||
| Себестоимость товарной продукции: | |||
| 1 ед., руб. | 9104,88 | 9079,75 | -25,13 |
| На весь объем, тыс. руб. | |||
| Основные фонды, тыс. руб. | 150140,05 | 140,05 | |
| Фондоотдача | 5,056 | 5,066 | 0,01 |
| Чистая прибыль, тыс. руб. | 248393,84 | 250028,6 | 1634,76 |
| Капитальные вложения, руб. | 193664,2 | ||
| Индекс доходности | 5,72 | ||
| Внутренний коэффициент эффективности проекта, % | |||
| Срок окупаемости, лет | 0,33 | ||
| Срок возврата инвестиций, лет | 1,33 | ||
| Интегральный экономический эффект, руб. | 913989,69 |
Выводы: необходимыми условиями принятия инвестиционного проекта являются:
§ Сальдо накопленных денег в любом временном интервале, где осуществляются затраты или получаются доходы, положительно (2007 г. – 0 руб.; 2008, 2009 г. – 681213,95 руб.);
§ Интегральный экономический эффект (NPV) больше нуля и составляет 913989,69 руб.;
§ Внутренний коэффициент эффективности (IRR) rпор, равный 332,99%, больше ставки дисконтирования r1, равной 15 %;
§ Индекс доходности (SRR) больше 1 и составляет 5,72.
Заключение
В ходе выполнения дипломного проекта был рассмотрен метод очистки диффузионного сока, включающий обработку сока известью (дефекация) и осаждение ее избытка диоксидом углерода (сатурация). Также были рассмотрены три основные схемы очистки диффузионного сока, основанные на методе дефекосатурации. При анализе этих схем была выбрана, схема с холодной прогрессивной преддефекацией и холодно-горячей основной дефекацией, являющаяся наиболее рациональной. На основании выбранной схемы процесса, была построена структурная схема. Для построения функциональной схемы были рассмотрены принципы управления отдельными аппаратами и технологическим процессом в целом. Для технической реализации системы был осуществлен обзор типов датчиков и исполнительных механизмов, применяемых в сахарной промышленности, а также их последующий выбор. Также были рассмотрены системы комплексной автоматизации, применяемые на сахарных заводах, на основании которых был выбран контроллер для процесса дефекосатурации. При помощи выбранных средств реализации программ по разработанным алгоритмам была написана программа нижнего уровня для выбранного контроллера. При помощи SCADA системы RSView32 была написана программа визуализации представляющая собой две подсистемы информационную и управляющую.
|
|
|
Таким образом, в ходе выполнения дипломного проекта были последовательно реализованы задачи определенные в постановке задачи на дипломное проектирование.
Список литературы
1. Безопасность жизнедеятельности: Лабораторный практикум.- Белгород: Изд-во БелГТАСМ, 2001- 88 с.
2. Белостоцкий Л.Г. Интенсификация технологических процессов свеклосахарного производства. – М.: Агропромиздат, 1989 – 135с.
3. Белик В.Г. Справочник по технологическому оборудованию сахарных заводов. – Киев: Техника, 1984 – 56 с.
4. Волошин З.С. и д.р. Автоматизация свеклосахарного производства. –М.: Легкая и пищевая промышленность, 2001 – 235 с.
5. Волошин З.С. Справочник специалиста КИПиА сахарной промышленности. – М.: Агропромиздат, 1985 – 87 с.
6. Востоков А.И. Свеклосахарное производство. – М.: Пищевая
промышленность, 1986 – 226 с.
7. Добжицкий Я.В. Химический анализ в сахарном производстве. – М.: Агропромиздат, 1994 – 188 с.
8. Загродский С. Н. Тепловое хозяйство сахарных заводов. –М.: Легкая и пищевая промышленность, 1969 – 396 с.
9. Колесников В.А. и д.р. Теплосиловое хозяйство сахарных заводов. –М.: Пищевая промышленность, 1980.
10. Курдюмов В.И., Зотов Б.И. Проектирование и расчет средств обеспечения безопасности. – М.: КолосС, 2005. – 216с.
|
|
|
11. Лепешкин И.П. Справочник сахарника. – М.: Пищепромиздат, 1983 – 78с.
12. Методические указания по экономическому обоснованию квалификационных работ для студентов специальности 210200 –Автоматизация технологических процессов и производств.- Белгород: Изд-во БелГТАСМ, 2002 – 23 с.
13. Пчелинцев В.А. Охрана труда в строительстве. – М.: Высшая школа, 1991.
14. Руководство пользователя RSView32. Новый облик функциональных возможностей человеко-машинного интерфейса. 1997 – 557 с.
15. Руководство пользователя TSX/PMX/PCX 57 PL, шасси, процессоры, источники питания и др. 1998 – 384 с.
16. Сапронов А.Р. Сахар. – М.: Легкая и пищевая промышленность, 1990 – 254 c.
17. Сапронов А.Р. и д.р. Технология сахара. – М.: Колос, 1993– 220 с.
18. Сапронов А.Р. Общая технология сахара и сахаристых веществ. – М.: Агропромиздат, 1990 – 109 c.
19. Сапронов А.Р. Технология сахарного производства. – М.: Агропромиздат, 1986.
20. Соколов В.А. Автоматизация технологических процессов пищевой промышленности - М.: Агропромиздат, 1991
21. Силин П.М. Технология сахара. – М.: Пищевая промышленность,
1987–293 с.
22. Сусиденко В.Т. Автоматизация и оптимизация сложных систем свеклосахарного производства. – Киев: урожай, 1990.
23. Табунщиков Н.П. Производство извести и сатурационного газа на сахарных заводах. – М.: Легкая и пищевая промышленность, 1981 – 110c.
24. Теплоэнергоиспользование и теплоэнергосбережение на сахарных заводах/Группа компаний ЛОЭС, материалы семинара. - Тула, ГУИПП «Тульский полиграфист», 2001
Приложение 1
Приложение 2
Приложение 3
Текст программы
Mast main
SR1;
SR3;
SR2;
SR4;
SR13;
SR16;
Sr1
!
Time1:=BCD_TO_INT(%SW51);(*%S51-потеря времени часов реального времени*)
Time2:=Time1/10;
IF Time2_m<>Time2 THEN
SET %M10;
Time2_m:=Time2;
END_IF;
IF %M10 AND NOT %MW544:X0 THEN
READ_VAR(ADR#{1.1}SYS,'%mw',128,1,Ldc_dif:1,%MW544:4);
RESET %M10;
END_IF;
IF %MW62=0 THEN
%MW62:=101;
END_IF;
WHILE %MW62<%KW300+101 DO (*%KW300=40*)
Mw0[%MW62]:=5000+%MW62;(*(%MW101):=5000+%MW62*)
INC %MW62;(*inc(%MW62=101 до 141*)
END_WHILE;
Lcc_l1fc:=(Lcc+L1fc)/2;
Fdc:=REAL_TO_INT(INT_TO_REAL(Input_fdc)*%MF900);(*коэффициент = 1 сохраняется программой*)
Tsiropa:=Input_tsir;
F1dc:=REAL_TO_INT(INT_TO_REAL(Input_f1dc)*%MF902);
Lxd:=Input_lxd;
Lizm_m:=Input_lizm_m;
Cco2:=Input_cco2-20;
Lgd:=Input_lgd;
L1nap:=Input_l1nap;
L2nap:=Input_l2nap;
L3nap:=Input_l3nap;
F1izm:=Input_f1izm;
F2izm:=REAL_TO_INT(INT_TO_REAL(Input_f2izm)*1.0);
L1hc:=Input_l1hc;
L2hc:=Input_l2hc;
Lcc:=Input_lcc;
F2susp:=Input_lns_pa;
L1susp:=Input_l1susp;
L2susp:=%IW3.13;
L2susp2:=Input_l2susp;
L3susp:=Input_l3susp;
Fvzv:=Input_fvzr;
F1fc:=Input_f1fc;
L1fc:=Input_l1fc;
Pvf:=Input_pvf-500;
Pco2:=Input_pco2;
Tscir2:=%IW4.6;
Pca:=Input_pca;
F1susp:=Input_f1susp_co2;
IF Phpd_in<>0 THEN
Phpd_kor:=Phpd_kor+(Phpd_in-Phpd);
Phpd_in:=0;
END_IF;
IF Ph1ca_in<>0 THEN
Ph1ca_kor:=Ph1ca_kor+(Ph1ca_in-Ph1ca);
Ph1ca_in:=0;
END_IF;
IF Ph2ca_in<>0 THEN
Ph2ca_kor:=Ph2ca_kor+(Ph2ca_in-Ph2ca);
Ph2ca_in:=0;
END_IF;
Ph1ca:=Input_ph1ca+Ph1ca_kor;
Ph2ca:=Input_ph2ca+Ph2ca_kor;
Phpd:=Input_phpd+Phpd_kor;
IF Fdc<0 THEN Fdc:=0;
END_IF;
IF F1susp<0 THEN F1susp:=0;
END_IF;
!
M_d323:=M_d_323;
|
|
|
M_d1izm:=M_1izm;
M_pd300_e356:=M_pd300;
M_gd304_gd304:=M_gd304;
Ur_ca1:=Ur_1ca;
%M901:=Ur_2ca;
!
INC Tm_f1ds;
!
Sum_f1ds:=Sum_f1ds+INT_TO_REAL(F1dc);(* усреднение F1DC *)
F1ds_sr:=Sum_f1ds/INT_TO_REAL(Tm_f1ds);
Sr_f1ds:=REAL_TO_INT(F1ds_sr);
%MF310:=%MF310+INT_TO_REAL(Fdc);(* усреднение FDC *)
%MF312:=%MF310/INT_TO_REAL(Tm_f1ds);
%MW314:=REAL_TO_INT(%MF312);
%MF316:=%MF316+INT_TO_REAL(F1fc);(* усреднение F1fc *)
%MF318:=%MF316/INT_TO_REAL(Tm_f1ds);
%MW320:=REAL_TO_INT(%MF318);
IF Tm_f1ds>=240 THEN (*через час счетчик обнуляется!*)
Tm_f1ds:=0;
Sum_f1ds:=0.0;
%MF310:=0.0;
%MF316:=0.0;
END_IF;
SR2
!
INC %MW243;
IF %MW243>40 THEN
READ_VAR(ADR#{1.6}SYS,'%mw',808,1,Tco2:1,%MW239:4);
N_n:4:=0;
%MW243:=0;
END_IF;
IF Slezhenie_p1co2 THEN
Pco2_sp:=REAL_TO_INT(INT_TO_REAL((P1co2_min+P1co2_max)/2));
INC Taimer_p1co2;
IF Taimer_p1co2>Porog_taimer_p1co2 THEN
Taimer_p1co2:=0;
END_IF;
IF(Tco2<Tco2_min)AND(P1co2_sp<P1co2_max)AND(Taimer_p1co2=Porog_taimer_p1co2)THEN
P1co2_sp:=P1co2_sp+Delta_max_p1co2;
END_IF;
IF(Tco2>Tco2_max)AND(P1co2_sp>P1co2_min)AND(Taimer_p1co2=Porog_taimer_p1co2)THEN
P1co2_sp:=P1co2_sp-Delta_min_p1co2;
END_IF;
END_IF;
Sr3
!
N_p:=2;
WHILE N_p<8 DO
SR5;
SR9;
SR6;
INC N_p;
END_WHILE;
N_p:=9;
WHILE N_p<11 DO
SR5;
SR9;
SR6;
INC N_p;
END_WHILE;
Nc_p:=11;
WHILE Nc_p<=18 DO
SR7;
SR11;
SR8;
INC Nc_p;
END_WHILE;
IF F1fc_c>6000 THEN F1fc_c:=6000;END_IF;
IF F1fc_c<0 THEN F1fc_c:=0;END_IF;
IF %M125 THEN
INC Timer_f1fc;
IF Timer_f1fc>Porog_timer_f1fc THEN
Timer_f1fc:=0;
END_IF;
IF(L1fc<L1fc_min)AND(F1fc_sp>F1fc_min)
AND(Timer_f1fc=Porog_timer_f1fc)THEN
F1fc_c:=F1fc_c-D_f1fc_min;
END_IF;
IF(L1fc>L1fc_max)AND(F1fc_sp<F1fc_max)
AND(Timer_f1fc=Porog_timer_f1fc)THEN
F1fc_c:=F1fc_c+D_f1fc_max;
END_IF;
END_IF;
Sr4
!
Output_lgd:=%MW1194/4;
Output_fvzr:=%MW1744;
Output_pco2:=%MW1444/4;
Output_p1co2:=%MW1494;
Output_f2izm:=%MW2044;
Output_f1izm:=%MW1644/4;
Output_tsiropa:=%MW1294;
Output_ph1ca:=%MW1344;
Output_f2susp:=%MW1844;
Output_f1susp:=%MW2244;
(* Переброс на частотники в выпарку*)
Fdc_ch:=%MW1544;
F1dc_ch:=%MW2144;
F1fc_ch:=%MW1944;
(* Разгрузка сатуратора при 2 кг *)
IF Pca>=2000 THEN SET Output_pca;Pca_hist:=85;
ELSE RESET Output_pca;Pca_hist:=5;
END_IF;
%M285:=Output_pca;
Sr5
N_in:=%KW0[N_p];(*N_in:=%KW2при N_p=2*)
N_quit:=1000+44+(50*(N_p-1));(*N_quit:=1144*)
N_sp_r:=N_quit-44;(*1100*)
N_man_r:=N_sp_r+1;(*1101*)
N_sp_t:=%KW300+99+(N_p*2);(*%KW300=40 ->40+99+(2*2)*)
N_man_t:=%KW300+100+(N_p*2);(*N_man_t:=144*)
Sr6
!
(*Безударность*)
IF Y_es[N_p] THEN
Mw0[N_sp_r]:=Mw0[N_sp_t];
Mw0[N_man_t]:=Mw0[N_quit];
END_IF;
IF NOT Y_es[N_p] THEN
Mw0[N_sp_t]:=Mw0[N_in];
Mw0[N_man_r]:=Mw0[N_man_t];
END_IF;
PID('','',Mw0[N_in],Mw0[N_quit],Y_es[N_p],Mw0[N_sp_r]:43);
Sr8
!
(*Безударность*)
%MF0[Nf_in]:=INT_TO_REAL(Mw0[Nc_in]);
%MF0[Nf_f1]:=INT_TO_REAL(Mw0[Nc_f1]);
%MF0[Nf_f2]:=INT_TO_REAL(Mw0[Nc_f2]);
%MF0[Nfs_in]:=%KF400[Nc_pc];
%MF0[Nfs_f1]:=%KF400[Nskala_f1];
%MF0[Nfs_f2]:=%KF400[Nskala_f2];
IF NOT Y_es[Mc_pc_m] THEN
%MF0[Nf_in_f1]:=(%MF0[Nf_in]*%MF0[Nfs_in])/(%MF0[Nf_f1]*%MF0[Nfs_f1]);
END_IF;
IF NOT Y_es[Mc_pk_m] THEN
%MF0[N64]:=((%MF0[Nf_in]*%MF0[Nfs_in]/10000.0)*
((%MF0[Nf_f2]*%MF0[Nfs_f2]/10000.0)+1.0))/((%MF0[Nf_f1]*%MF0[Nfs_f1])/10000.0);
END_IF;
(*КАСКАД*)
IF Y_es[Mc_pk_m] THEN
%MF0[N68]:=INT_TO_REAL(Mw0[Nc_k_t]);
%MF0[N68]:=%MF0[N68]/%KF400[Nskala_f2_i];
%MF0[N66]:=(%MF0[N68]*%MF0[Nf_f1]*%MF0[Nfs_f1])/
(((%MF0[Nf_f2]*%MF0[Nfs_f2]/10000.0)+1.0)*%MF0[Nfs_in]);
Mw0[Nc_sp_t]:=REAL_TO_INT(%MF0[N66]);
END_IF;
!
(*РУЧНОЙ*)
PID('','',Mw0[Nc_in],Mw0[Nc_quit],Y_es[Nc_p],Mw0[Nc_sp_r]:43);
(*PID('','',%MW103,%MW2744,%M132,%MW2700:43);*)
%MW400[Nc_p]:=Mw0[Nc_quit];
Sr9
!
N_n:=72(*%KW300+%KW301*2+%KW302*4+101*);
N_sp_r_2:=N_sp_r+2;
N_pwm:=N_sp_r+45;
M_k:=N_p*3-2;
IF Mw0[N_n]=0 AND N_n_m=0 THEN
RESET Y_es;
Count1:=0;
END_IF;
IF Mw0[N_n]>0 AND N_n_m=0 THEN
N_n_m:=Mw0[N_n];
END_IF;
IF N_n_m<>Mw0[N_n] AND N_n_m>0 THEN
Mw0[N_n]:=N_n_m:=0;
Count1:=0;
END_IF;
IF N_n_m=Mw0[N_n] AND N_n_m>0 THEN
IF Mw0[N_n]=N_p THEN
N_n_1:=N_n+1;
N_n_1_r:=N_n+4;
IF Y_es THEN
Mw0[N_sp_r_2]:3:=Mw0[N_n_1]:3;
Mw0[N_n]:=N_n_m:=Count1:=0;
RESET Y_es;
END_IF;
INC Count1;
IF Count1>300 THEN
Mw0[N_n]:=N_n_m:=Count1:=0;
END_IF;
IF Count1=2 THEN
Mw0[N_n_1]:3:=Mw0[N_sp_r_2]:3;
END_IF;
Mw0[N_n_1_r]:3:=Mw0[N_sp_r_2]:3;
END_IF;
END_IF;
IF Mw0[N_sp_r_2]=0 THEN
Mw0[N_sp_r_2]:3:=%KW500[M_k]:3;
END_IF;
N_sp_r_2:=N_sp_r_2+1;
IF Mw0[N_sp_r_2]=0 THEN
N_sp_r_2:=N_sp_r_2-1;
Mw0[N_sp_r_2]:3:=%KW500[M_k]:3;
END_IF;
IF Mw0[N_pwm]<3 THEN
Mw0[N_pwm]:=15;
END_IF;
Sr11
!
N_n:=72(*%KW300+%KW301*2+%KW302*4+101*);
N_sp_r_2:=Nc_sp_r+2;
N_pwm:=Nc_sp_r+45;
M_k:=Nc_p*3-2;
IF Mw0[N_n]=0 AND N_n_m=0 THEN
RESET Y_es;
Count1:=0;
END_IF;
IF Mw0[N_n]>0 AND N_n_m=0 THEN
N_n_m:=Mw0[N_n];
END_IF;
IF N_n_m<>Mw0[N_n] AND N_n_m>0 THEN
Mw0[N_n]:=N_n_m:=0;
Count1:=0;
END_IF;
IF N_n_m=Mw0[N_n] AND N_n_m>0 THEN
IF Mw0[N_n]=Nc_p THEN
N_n_1:=N_n+1;
N_n_1_r:=N_n+4;
IF Y_es THEN
Mw0[N_sp_r_2]:3:=Mw0[N_n_1]:3;
Mw0[N_n]:=N_n_m:=Count1:=0;
RESET Y_es;
END_IF;
INC Count1;
IF Count1>300 THEN
Mw0[N_n]:=N_n_m:=Count1:=0;
END_IF;
IF Count1=2 THEN
Mw0[N_n_1]:3:=Mw0[N_sp_r_2]:3;
END_IF;
Mw0[N_n_1_r]:3:=Mw0[N_sp_r_2]:3;
END_IF;
END_IF;
IF Mw0[N_sp_r_2]=0 THEN
Mw0[N_sp_r_2]:3:=%KW500[M_k]:3;
END_IF;
N_sp_r_2:=N_sp_r_2+1;
IF Mw0[N_sp_r_2]=0 THEN
N_sp_r_2:=N_sp_r_2-1;
Mw0[N_sp_r_2]:3:=%KW500[M_k]:3;
END_IF;
IF Mw0[N_pwm]<3 THEN
Mw0[N_pwm]:=15;
END_IF;
Sr15
!
(* Программа для расхода суспензии*)
IF NOT Rejim THEN (* работа по уровню*)
Output_f2susp:=%MW1144;
IF Start_susp THEN
SET %M103;
RESET Predypregdenie;
INC Timer_susp;
Taimer_v_min:=Timer_susp/240;
IF Timer_susp<Vremya AND L2susp2_sp>0 THEN
L2susp2_sp_real:=L2susp2_sp_real-Pr_yr;
L2susp2_sp:=REAL_TO_INT(L2susp2_sp_real);
ELSE
RESET Start_susp;
END_IF;
ELSE
RESET %M103;
Vremya:=Vrem*240;
L2susp2_real:=INT_TO_REAL(L2susp2);
Vremya_real:=INT_TO_REAL(Vremya);
Pr_yr:=L2susp2_real/Vremya_real;
L2susp2_sp_real:=INT_TO_REAL(L2susp2_sp);
END_IF;
IF Fdc<312 AND Start_susp THEN
RESET %M103;
RESET Start_susp;
SET Predypregdenie;
L2susp2_man:=0;
END_IF;
IF Fdc>312 THEN
RESET Predypregdenie;
END_IF;
IF Timer_susp<Vremya AND Timer_susp<>0 AND NOT %M103 THEN
Timer_susp:=Vremya;
END_IF;
IF Timer_susp<(Vremya+5)AND Timer_susp>=Vremya AND NOT %M103 THEN
L2susp2_man:=0;
Timer_susp:=Timer_susp+1;
END_IF;
IF Timer_susp>(Vremya+4)THEN
Timer_susp:=0;
Taimer_v_min:=0;
END_IF;
ELSE (* работа по расходу*)
Output_f2susp:=%MW1844;
IF %M124 THEN
INC Timer_susp1;
IF Timer_susp1>Porog_timer_susp1 THEN
Timer_susp1:=0;
END_IF;
IF(L2susp2<L2susp2_min)AND(Timer_susp1=Porog_timer_susp1)THEN
F2susp_c:=F2susp_c-Delta_min_susp;
END_IF;
IF(L2susp2>L2susp2_max)AND(Timer_susp1=Porog_timer_susp1)THEN
F2susp_c:=F2susp_c+Delta_max_susp;
END_IF;
IF F2susp_sp>10000 THEN F2susp_sp:=10000;END_IF;
IF F2susp_sp<0 THEN F2susp_sp:=0;END_IF;
END_IF;
END_IF;
Sr16
!
IF %M108 THEN
INC Tm_ph2;
IF Tm_ph2>16 THEN
IF Ph2ca>Ph2_m THEN
Ph2ca_man:=Ph2ca_man+REAL_TO_INT(INT_TO_REAL(ABS(Ph2ca_sp-Ph2ca))*0.05);
END_IF;
IF Ph2ca>Ph2ca_sp THEN
Ph2ca_man:=Ph2ca_man+REAL_TO_INT(INT_TO_REAL(ABS(Ph2ca_sp-Ph2ca))*0.01);
END_IF;
IF Ph2ca<Ph2_m THEN
Ph2ca_man:=Ph2ca_man-REAL_TO_INT(INT_TO_REAL(ABS(Ph2ca_sp-Ph2ca))*0.05);
END_IF;
IF Ph2ca<Ph2ca_sp THEN
Ph2ca_man:=Ph2ca_man-REAL_TO_INT(INT_TO_REAL(ABS(Ph2ca_sp-Ph2ca))*0.01);
END_IF;
%MW257:=REAL_TO_INT(INT_TO_REAL(ABS(Ph2ca_sp-Ph2ca))*0.06);
%MW258:=REAL_TO_INT(INT_TO_REAL(ABS(Ph2ca_sp-Ph2ca))*0.02);
Ph2_m:=Ph2ca;
Tm_ph2:=0;
END_IF;
IF Ph2ca_man>10000 THEN Ph2ca_man:=10000;END_IF;
IF Ph2ca_man<500 THEN Ph2ca_man:=500;END_IF;
END_IF;
IF NOT %M108 THEN
Ph2ca_sp:=Ph2ca;
END_IF;
Output_ph2ca:=Ph2ca_man;
Mast Sr0
%M2:=%S5;
IF NOT %M3 THEN
IF RE %M2 THEN
%MW99:=%MW99+50;
END_IF;
END_IF;
IF %M3 THEN
IF RE %M2 THEN
%MW99:=%MW99-50;
END_IF;
END_IF;
IF %MW99>8000 THEN
SET %M3;
END_IF;
IF %MW99<2000 THEN
RESET %M3;
END_IF;
%MW98:=%MW98+1;
IF %MW98>=163 THEN
%MW98:=101;
END_IF;
Mw0[%MW98]:=%MW99;
Sr1
PWM(%MW1094,Output_f1susp_lgd,%MW1095:5);
|
|
|
