Фрагменты текста программы

fisl^readfisCSostOborud');

f!s2=readfisCSo$tOborud4');

fis3=readfisCSostOborud8e); *

fis4=readfis('Ob');

Гls5=гeadfis(,Diag,);

fis6=readfis(,kontror);

fis7=readfis(T>iag3f);

conn = database('OborudDB', ");

curs = ехефопп, 'select Номер, ТекущееПродление048, ГодВЭк, ПодконтЭкспл, Категория, ГруппаОпасиости, Датчики, ТипОборудования, Метры, СкоростьКоррозии, СтоимостьДиагностики, СтоимостьКонтроляПЭ from Рем where ТипОборудования-'Сосуд" ог ТипОборудования-Технологический трубопровод" ORDER BY ТипОборудования ASC); setdbpref^'DataReturnFormatVcellarray'); curs — fetch (curs, 1900); a= curs.Data;

curs = exec(conn, 'select НомерУстановки, Психофизиология, Личностные, Климат, КонтрольРаз, Коллективные, Знания, ЧислоОператоров from ЧсловеческийФактор1); setdbpгefs(T)ataRetuшFormat^,cellarгay,); curs = fetch(curs, 100); c=curs.Data; close(curs);

curs = exec(conn, 'select СоиШ(Год) from АварииСосудыТФ1);

setdbprefs('DataRetornFormatVccllarray');

curs = fetch(curs, 1); %

kast=curs.Data;

close(cufs);

curs = exec(conn, 'select СоиМ(Год) from АварннСосудыЧФ');

setdbprefs(,DataReturnFormatVcellarгay,);

curs » fetch(curs, 1);

kasch=curs.Data;

close(curs);

curs = exec(conn, 'select СоиШ(Год) from АварииТрубопроводыТФг);

setdbprefs(,DataRctuгnFormatVcellaпгay,);

curs = fetch(curs, 1);

katt=curs.Data;

close(curs);

curs - exec(conn, 'select Соит(Год) from АварииТрубопроводыЧФ1);

setdbprefs('DataReturnFormat,,fcellarгay,);

curs = fetch(curs, 1);

katch^curs.Data;

closc(curs);

curs = exec(conn, 'select Соит(Год) from Инциде^пыСосудыТФ');

setdbprefsCDataRcturnFormat'/cellarray');

curs = fetch(curs, 1);

kist=curs.Data;

close(curs);

curs = exec(conn, 'select Соиш(Год) from ИнццдентыСосудыЧФ1);

setdbprefs(,DataRetuгnFoгmat,,,cellaIтay,);

curs = fetchfcurs, I);

kisch==curs.Data;

close(curs); %

curs = exec(conn, 'sclcct Соит(Год) from ИнцидентыТру^проводыТФО;

setdbprefs^ataRetumForn^Vcellan-ay');

curs = fetch(curs, 1);

kitt-curs.Data;

close(curs);

curs = exec(conn, 'select Соит(Год) from Инциде^ггыТрубопроводыЧф1);

setdbprefs('DataRetumFonrat7cellarray');

curs = fetch(curs, 1);

kitch-curs.Data;

close(curs);

kas=kast {1,1} +kasch {1,1}; 1 kis=kist{ 1,1 }+kisch{ 1,1}; kat=katt {1,1}+katch {1,1}; kit-kitt {1,1} +kitch {1,1}; ifkas—0 xas=s{l,12}; %

else

xas=s{l,12}; end

if kat—=0

xat=s{l,13}; else

xat=s{l,13); end

pa~s{l,5}*kist{l>l}/s{l,9}+s{l>6}^kisch{l,l}/s{l>9}}; s{lf5}=s{l,5}4ist{l,l}/s{l19}/s{l>l0}/pa; s{ l,6}=s{ l,6}^kisch{ l,l }/s{ l,9}/s{ l,l0}/pa; end

sml=s{ l,l l};

pr=s{l,l6};

FISFI=fis4;

z=0;

sost=K);

И0};

maxr^O; nl=size(c,l);

curs = excc(conn, 'select НомерУстановки^Ко^ггрольПерсРаз FROM РесурсЧ1);

setdbprefs^ataRetomFornratycellairay');

curs = fetch(curs, 1);

nul=curs.data;

close(curs);

setdbprefsCDataReturnFormat'/cellarray');

c{U0}=x2;

end

end

exdata={0}; n=size(a>l); gruppa=0;

curs = exec(conn, 'select НомерОбъеюга FROM PecypcT'); setdbprefs('DataReturnFormatVcellarray'); curs » fetch(curs, 1); nul=curs.data; close(curs); for i=l:l:n switch a{i,ll} 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{l,l}],fis5); exdata{l,3}=l; exdata{l,4}=a{i,23};, else

d=evalfis([a{i,14},a{i,6},a{it5},a{i,15}],fis5); exdata{l,3}=0; exdata{l,4}=0; end

case 'Технологический трубопровод' fl=fisl; f2=fis2; f3=fis3;

if str2num(a{ i,22} (1,1: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{l,3}-0; exdata{l,4}=0; end

end

b{U7)=d; switch a{i,4} case "true'

xl-1;

switch a{i,ll} case 'Сосуд'

exdata{l,7}=org{l,9};

»

exdata{ l,8}=org{ 1,9} *a{i,24}; case Технол отчески и трубопровод' exdata{l,7}=org{l,ll}; exdata{ 1,8}=org{ 1,11} *a{i,24} *а{ i, 12};

end case 'false' xl=0;

exdata{l,7}=0; exdata{l,8}=0;

end

switch a{i,ll) »

case 'Сосуд' k=evalfis([xl,org{l,5},org{l,9}],fis6); exdata{ l,5}=org{ 1,5};

exdata{l,6}=org{l,5}*org{l,6};

case Технологический трубопровод1 k^valfisflxl.orgf l,7},org{ 1,11 }],fis6); exdata{l,5}=org{l,7}; exdata{l,6}=org{l,7}*org{l,8}*a{i,12};

end

ifa{i,2}=0

sost=evalfis([a{i,3},a{i,6},a{i,5},a{i,13},d,a{i,7},k],n); 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{U3},d,a{i,7},k],D); end

r=[Riskl Risk2]; zl=0; 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('DataReturnFormatVcellarray'); 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 Ho 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{Ul};

z=b{i,8); for jl=l:l:nl

ifslO'jl)==l t=a{il,21}; end

end end I