Сравнение различных методов расчета ПДВ для реального предприятия

· Решена практическая задача по расчету ПДВ для одного из крупных предприятий г. Кемерово как встроенными в ПК ЭРА-ВОЗДУХ методами (МРН-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;

//вывод ограничений

//==============================================================================

Экологические заметки

Техника улучшения качества природных вод
Курсовой проект выполнен на основании задания на проектирование, в котором приведены исходные данные и вопросы, требующие разработки при проектировании. Исходные данные: – кр ...

Влияние мусоросжигательных заводов на окружающую среду
Такое опасное производство, как мусоросжигательный завод (далее МСЗ), не может, по чисто техническим причинам, быть безотходным. Выбросы МСЗ охватывают все обычные для промпредприя ...

Флуометрия в анализе объектов окружающей среды
Люминесцентный анализ обладает рядом особенностей, которые отличают его от всех других видов анализа. Люминесцентный анализ необычайно чувствителен. С его помощью можно обнаружить ...