Сравнение различных методов расчета ПДВ для реального предприятия
· Решена практическая задача по расчету ПДВ для одного из крупных предприятий г. Кемерово как встроенными в ПК ЭРА-ВОЗДУХ методами (МРН-87, равное квотирование), так и с использованием симплекс метода.
· Показано, что использование оптимизационного метода расчета ПДВ позволяет обеспечить нормативное загрязнение атмосферы при больших суммарных выбросах. В случае технологической приемлемости такого решения предприятие может существенно снизить платежи за сверхнормативный выброс в атмосферу.
Приложения
Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, ShlObj, StdCtrls, Buttons, CheckLst,Masks,inifiles,
ComCtrls,simplex, Menus;
const MyDecimalSeparator='.';
type
tsArray = array of string;
tExtArrayx2 = array of tExtArray;
TForm1 = class(TForm)
Edit1: TEdit;
GroupBox1: TGroupBox;
CheckListBox1: TCheckListBox;
Label1: TLabel;
BitBtn1: TBitBtn;
Button3: TButton;
Memo1: TMemo;
SpeedButton1: TSpeedButton;
CheckBox1: TCheckBox;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dir_path:string;
IniFile: TIniFile;
implementation
{$R *.dfm}
//запись в ini файл
procedure SaveIni(s:string);
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+'\sav.ini';
IniFile:=TIniFile.Create(FileName);
Inifile.WriteString('patch','dir',s);
IniFile.Free;
end;
//чтение ini файла
function ReadIni:string;
var
IniPath: string;
FileName: string;
s:string;
begin
GetDir(0,IniPath);
FileName:=IniPath+'\sav.ini';
IniFile:=TIniFile.Create(FileName);
ReadIni:=Inifile.ReadString('patch','dir',s);
IniFile.Free;
end;
//--------- Удаляет пробел или запятую с краёв строки --------------------------
Function DelSpaceAndCap(s:string):string;
begin
while pos(copy(s,1,1),' ')<>0 do delete(s,1,1);
while pos(copy(s,length(s),1),' ')<>0 do delete(s,length(s),1);
result:=s;
end;
//--------- вырезает из строки имя ---------------------------------------------
Function ReturnSubString(Var s:string):string;
var
position,i : integer;
begin
s:=DelSpaceAndCap(s);
position:=0;
for i:=1 to length(s)-1 do
if (pos(copy(s,i,1),' ')<>0) and (position=0) then
position:=i;
if position=0 then begin
result:=s;
s:='';
end else begin
result := DelSpaceAndCap(copy(s,1,position));
Delete(s,1,position);
s:=DelSpaceAndCap(s);
end;
end;
//вывод ограничений
//==============================================================================
Экологические заметки
Экологическая оценка состояния популяции редкого вида Касатика (Ириса) карликового
Постановка проблемы.
В течение ряда лет члены детского
экологического объединения «Родник» участвуют в экологических экспедициях,
изучающих растительность Природного парка «Цимл ...
Современное состояние и изменение биогенных компонентов на территории Дрогичинского района
Тема дипломной работы – «Современное состояние и изменение
биогенных компонентов на территории Дрогичинского района». В настоящее время
тема очень актуальна, так как идет экологиза ...
Транспортировка отходов I-IV класса опасности
Развитие промышленности и сельского хозяйства приводит к образованию все
большего количества отходов. Ежегодно в Чувашии образуется более 0,5 млн. т.
отходов. Отходы I-IV класса оп ...