Приложения
Приложение 1
Фрагменты текста программы
global FISFI
fisl =readfis('Sost Oborud');
fis2=readfis('SostOborud4');
fis3=readfis(’SostOborud8'); »
fis4=readfis('Ob');
fis5=readfis('Diag');
fis6=readfis('kontror);
fis7=readfis('Diag3');
conn « databasefOborudDB*, ”,");
curs = exec(conn, 'select Номер, ТекущееПродление048, ГодВЭк, ПодконтЭкспл, Категория, ГруппаОпасности, Датчики, ТипОборудования, Метры, СкоростьКоррозии, СтокмостьДиагностики, СтоимостьКонтроляПЭ from Рем where ТипОборудования-'Сосуд" or ТипОборудования="Технологический трубопровод" ORDER BY ТипОборудования ASC');
setdbprefs('DataRetumFormat','cellarray'); curs “ fetch(curs, 1900); a= curs.
Data;curs = exec(conn, 'select НомерУстаиовки, Психофизиология, Личностные, Климат, КонтрольРаз, Коллективные, Знания, ЧислоОператоров from ЧсловеческийФактор');
setdbprefsCDataRetumFormat'.'cellarray');
curs = fetch(curs, 100);
c=curs.Data;
close(curs);
curs = exec(conn, 'select Count (Год) from АварииСосудыТФ1);
setdbprefs('DataRetumFormat','ccllarray');
curs = fctch(curs, 1); %
kast=curs.Data;
close(curs);
curs = cxec(conn, 'select СоиШ(Год) from АварниСосудыЧФ');
setdbprefsfDataRetumFormat'.'cellarray');
curs" fetch(curs, 1);
kasch=curs.Data;
close(curs);
curs = exec(conn, 'select СоиШ(Год) from АварннТрубопроводыТФ');
setdbprefs('DataRctumFormat','cellarray’);
curs = fetch(curs, 1);
katt=curs.Data;
close(curs);
curs ■ exec(conn, ’select Count (Год) from АварииТрубопроводыЧФ*);
setdbprefs('DataRetumFormat','cellarray');
curs = fetch(curs, 1);
katch=curs.Data;
closc(curs);
curs = exec(conn, 'select Соиш(Год) from ИнцидентыСосудыТФ');
setdbprefsfDataRctumFormat','cellarray');
curs = fetch(curs, 1);
kist=curs.Data;
close(curs);
curs = exec(conn, 'select Соипі(Год) from ИнцвдентыСосудыЧФ');
setdbprefs('DataRetumFormat','cellarray');
curs = fetch(curs, 1);
kisch=curs.Data;
close(curs); ,
curs = exec(conn, 'select Count (Год) from ИіщидентьіТрубопроводьіТФ');
setdbprefsCDataRetumFormat','cellarray');
curs = fetch(curs, 1);
kitt=curs.Data;
close(curs);
curs = exec(conn, 'select СоиШ(Год) from ИнцидеитыТрубопроводыЧф');
setdbprefs('DataRetumFormat',’cellarray');
curs = fetch(curs, 1);
kitch=curs.Data;
close(curs);
kas=kast{ 1,1 }+kasch( 1,1); ‘
kis=kist{ 1,1 }+kisch{ 1,1};
kat=katt {1,1} +katch {1,1};
kit«kitt {1,1} +kitch (1,1};
ifkas~=O
xas=${l,12}; »
else
xas=s{l,12);
end
if kat~=O xat=s{l,13};
else
xat=s{ 1,13}; end
pa=s{l,5}*kist{l,l}/s{l,9}+s{l,6}*kisch{l,l}/s{l,9}};
s{ 1,5}=${ 1,5} •kistfl.l }/s{ l,9}/s{ l,10}/pa;
s{ 1,6}=s{ 1,6} *kisch< 1,1 }/s( 1.9}/s{ 1,10}/pa;
end
sml=s{ 1,11};
pr=s{l,16};
FISFI=fis4;
z=0;
sost=0;
b={0};
maxr=O;
nl=size(c,l);
curs = cxcc(conn, ’select НомерУстановки,Ко»ггрольПерсРаз FROM РесурсЧ*);
setdbprefsCDataRetumFormat',’cellarray');
curs = fetch(curs, 1);
nul=curs.data;
close(curs);
setdbprefs(’DataReturnFormat','cellarray');
c{i,10}=x2;
end
end
exdata={0};
n=size(a,l);
gruppa=0;
curs - exec(conn, 'select НомерОбъекта FROM PecypcT');
setdbprefs('DataRetumFormat','cellarray');
curs e fctch(curs, 1);
nul=curs.data;
close(curs);
for i=l:l:n switch a{i,l 1}
case 'Сосуд' fl=fisl; f2=fis2;
D=fis3;
if str2num(a{i,22}(l,l :4))=Year(Date) d=evalfis([org{ l,20},a{i,6},a{i,5},org{ 1,1 }],fis5); exdata{l,3}=l;
exdata{l,4}=a{i,23};, else
d=evalfis([a{i,14),a{i,6},a{i,5},a{i,15}],fisS);
exdata{ 1,3 }=0;
exdata{l,4}=0;
end
case 'Технологический трубопровод’ fl=fisl; f2=fis2; f3=fis3;
if str2num(a{i,22}(l,l:4))—Year(Date) d=evalfis([org{l,21},d{i,6},a{i>5},org{l,3}],fis7); exdata{l,3}=l;
exdata { l,4}=a{i,23}*a{i,12}; else
d=evalfis([a{i,14},a{i,6},a{i,5},a{i,15}],fis7);
cxdata{ 1,3} "О;
exdata{l,4}=0;
end
end
b{i,17}=d; Switch a{i,4}
case 'true' xl»l;
switch a{i,l 1} case 'Сосуд'
exdata{l,7}=org{ 1,9}; exdataf 1,8} =org{ 1,9} *a{i,24};
case Технологический трубопровод' exdata{l,7}=org{l,ll}; exdata{ l,8}=org{l,l 1 }*a{i,24}*a{i,12};
end
case 'false* xl=0;
exdata{l,7}=0;
exdata{l,8}=0;
end
switch a{i, 11} *
case 'Сосуд'
k=evalfis([xl,org{l,5},org{l,9}],fis6); exdata{ l,5}=org{ 1,5}; exdata{l,6}=org{l,5}*org{1.6};
case Технологический трубопровод1 k=evalfis((xl,org{ l,7},org{ 1,11 }],fis6); exdata{l,5}=org{l,7};
exdata{l,6}=org{l,7}*otg{l,8}*a{i,12};
end
ifa{i,2}=0
so$t=evalfis([a{i,3},a{i,6},a{i,5},a{i,13},d,a{i,7},k],fl);
end
ifa{i,2}~4
sost=evalfis([a{i,3},xl,a{i,6},a{i,5},a{i,13},d,a{i,7},k],f2);
end
ifa{i,2}=8
sost=evalfis([a{i,3},xl,a{i,6},a{i,5},a{i,13},d,a{i,7},k],f3);
end
r=[Riskl Risk2];
zl=O:
b{i,l}-a{i,l);
b[i,2}=sost;
b{i,3}=c{j,9};
b{i,18}=sost;
end
curs = exec(conn, ['select Номер, Вероятность from Вероятности where Номер= char(a{i,l})"]);
setdbprefs('DataRetumFormat','cellaiTay’); curs = fetch(curs, 10000); p= curs.Data; close(curs);
I
nl=size(p,l); sl=ff2n(nl); k=size(sl,l); switch p{ 1,1}
case 'No Data' b{i,9}=b[i,5}*a[i,21}*pr; b[i,16}=a[i,21}*pr; b{i,l5}=b{i,8};
otherwise
forj»l:l:nl
ji=i;
b{jl,6}=b{jl,6}+b[i,5}*p{j,3);
end
forj=l:l:k pl=l; t=a{i,21}; z=b{i,8}; for jl—l:l:nl
if sl(jjl)==l t=a[il,21};
end
end
end
Приложение 2
Документы о внедрении и регистрации
ООО “Волго-Уральский научно-исследовательский и проектный институт нефти и газа” (ООО “ВолгоУралНИПИгаз”)
"УТВЕРЖДАЮ”
Заместитель директора ООО “ВолгоУралНИПИгаз” по научной работе,
АКТ
£т технических наук Клейменов А.В. «Меля 2006 г.
об использовании результатов кандидатской диссертационной работы Глухова Сергея Владимировича
Комиссия в составе: председатель: Рахман Г.С., члены комиссии: Кривчун С.А., Киселев C.IO.
составили настоящий акт о том, что результаты диссертационной работы “Методы, критерии и алгоритмы управления процессом обеспечения промышленной безопасности нефтегазовых предприятий, основанные на теории нечетких множеств” использованы с разрешения автора Глухова С.В. в операционной, деятельности ООО “ВолгоУралНИПИгаз” в следующем виде: *
1. Метод оценки рисков аварий и инцидентов, используемый при оценивании рисков на Оренбургском газоперерабатывающем заводе (ОГПЗ) ООО “Оренбурггазпром”.
2. Алгоритм распределения денежных средств по статьям соответствующих расходов, связанных с уменьшением рисков аварий и инцидентов.
Использование указанных результатов позволяет повысить качество: предоставляемых услуг по оценке промышленных рисков; планирования мероприятий, повышающих безопасность производственного объекта.
Председатель комиссии: зав. сектором программных средств отдела охраны труда и газовой безопасности
Киселев С.Ю.
Члены комиссии:
инженер 1 категории сектора декларирования безопасности
инженер 1 категории сектора программных средств отдела охраны труда и газовой безопасности
Si
’’УТВЕРЖДАЮ”
Проректор Оренбургского государственного университета (ОГУ) по научной работе и
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«ОРЕНБУРГСКИЙ
ГОСУДАРСТВЕННЫЙ
УНИВЕРСИТЕТ»
АКТ
об использовании результатов кандидатской диссертационной работы Глухова Сергея Владимировича
Комиссия в составе:
председатель Пищухин А.М.,
члены комиссии: Жук М.А., Беляева М.А.
составили настоящий акт о том, что результаты диссертационной работы “Методы, критерии и алгоритмы управления процессом обеспечения промышленной безопасности нефтегазовых предприятий, основанные на теории нечетких множеств”:
- нечеткая экспертная система, позволяющая изучать современные подходы к построению экспертных систем, принципы создания иерархических нечетких баз знаний;
- алгоритм оптимального распределения денежных средств, выделяемых на безопасность предприятия, по статьям расходов, при этом эффективность мероприятий по обеспечению безопасности определяется С ПОМОЩЬЮ нечеткой экспертной системы
используются в учебном процессе ОГУ при преподавании дисциплин “Базы данных и знаний”, “Теория оптимального управления”, что способствует: повышению качества учебного процесса, изучению современных подходов организации нечетких баз знаний, построения нечетких экспертных систем, оптимального управления.
Пищухин А.М.
Жук М.А.
Беляева М.А.
Председатель комиссии: д.т.н., профессор
Члены комиссии: к.э.н., доцент
доцент
$ жжжж$ ж' ж, ж ж ж ж ж ж ж ж ж ж ж ж ж ж
СВИДЕТЕЛЬСТВО
об официальной регистрации программы для ЭВМ
№2006611095
Оценка рисков аварий и инцидентов. Распределение ресурсов на промышленную безопасность нефтегазовых предприятий
Правообладатель(ли): Глухов Сергей Владимирович (RU)
Автор(ы): Глухов Сергей Владимирович (RU)
Заявка № 2006610302
Дата поступления 7 февраля 2006 г. Зарегистрировано в Реестре программ для ЭВМ
24 марта 2006 г.
Руководитель Федеральной службы по интеллектуальной собственности, патентам и товарным знакам
Б.П. Симонов