Рейтинг@Mail.ru
Rambler's Top100




Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

реферат на тему: Создание экспертной системы для анализа опасностей

 скачать реферат



form[3,2]:=1; { через "ИЛИ"} alt[3,2]:=4; {число альтернативных событий} s[3,2,0]:='АВАРИЯ'; s[3,2,1]:='УДАРИЛО ТОКОМ'; s[3,2,2]:='ПЫЛЬ ПОПАЛА В ГЛАЗА'; s[3,2,3]:='ПОТЕРЯ СОЗНАНИЯ'; s[3,2,4]:='БЫЛ В НЕТРЕЗВОМ СОСТОЯНИИ'; cc[3,2]:=7000;

vybor(ki,kk); end; {------------------------------------} end. // OT.PAS

program ot(input,output); {********************************************************************} {* *} {* T U R B O P A S C A L *} {* *} {* VERSION 5.0 *} {* *} {********************************************************************} {* *} {* Э К С П Е Р Т Н А Я С И С Т Е М А *} {* *} {* " ОЦЕНКА ОПАСНОСТИ ПОРАЖЕНИЯ ЧЕЛОВЕКА ЭЛЕКТРИЧЕСКИМ ТОКОМ *} {* ПРИ РАБОТЕ С ЭЛЕКТРОПРИЁМНИКОМ В ОДНОФАЗНЫХ И *} {* ТРЁХФАЗНЫХ СЕТЯХ ПЕРЕМЕННОГО ТОКА ЧАСТОТОЙ 50 Гц " *} {* *} {********************************************************************} {* *} {* ПРОГРАММУ СОСТАВИЛИ : *} {* МАЛИБАШЕВ А. В. *} {* КЛИМЕНКО В. В. *} {* *} {* РУКОВОДИТЕЛЬ : *} {* НОВИКОВ СЕРГЕЙ ИВАНОВИЧ *} {* *} {********************************************************************} {* *} {* КАФЕДРА ПРОМЫШЛЕННОЙ АЭРОЛОГИИ И ОХРАНЫ ТРУДА *} {* *} {********************************************************************} uses crt; const pi=3.1415926; label 1,2,3; type com=array[1..2] of real; var y1:com; { проводимость 1 фазы, комплекс } y2:com; { проводимость 2 фазы, комплекс } y3:com; { проводимость 3 фазы, комплекс } yn:com; { проводимость нейтрали, комплекс } y0:com; { проводимость заземлителя, комплекс } y_hum:com; { проводимость человекa, комплекс } i_hum:com; { ток через человека, комплекс } y_prom:com; { промежуточная переменная, комплекс } prom1:com; { промежуточная переменная, комплекс } prom:com; { промежуточная переменная, комплекс } a:com; { вектор сдвига фаз, комплекс } aab,aac:com; { промежуточные переменные, комплекс } aad,aae:com; { промежуточные переменные, комплекс } rr1,rr2:com; { компл. сопр. изоляции 1,2 проводов для odnofaz } uu_faz:com; { комплекс напряжения фазы для odnofaz } rr_hum:com; { комплекс сопротивления человека } tok_hum:real; { действительное значение тока через человека } r1:real; { сопротивление изоляции 1 провода } r2:real; { сопротивление изоляции 2 провода } r3:real; { сопротивление изоляции 3 провода } r0:real; { сопротивление изоляции заземлителя } c1:real; { ёмкость 1 провода } c2:real; { ёмкость 2 провода } c3:real; { ёмкость 3 провода } cc1:real; { промежуточная переменная } cc2:real; { промежуточная переменная } t_srab:real; { время срабатывания техн. устройства } i_srav:real; { максимально допустимый ток } L0:real; { индуктивность заземлителя } rper:real; { переходное сопротивление } rzk:real; { сопротивление замыкания } r_hum:real; { сопротивление человека } omega:real; { частота сети } U_faz:real; { напряжение фазы } rzaz:real; rzaz_soprotivlenie:real; ij,ii,ii8:integer; i2,i3:integer; r_neitr,c_neitr:real; bbb:real; {____________________________________________________________________} procedure muzik; begin sound(587); delay(500); nosound; sound(659); delay(250); nosound; sound(698); delay(500); nosound; sound(587); delay(250); nosound; sound(698); delay(250); nosound; sound(698); delay(250); nosound; sound(659); delay(250); nosound; sound(587); delay(250); nosound; sound(659); delay(500); nosound; sound(440); delay(500); nosound; end; {___________________________________________________________________} procedure error1; begin sound(400);
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ




delay(1000); nosound; end; {___________________________________________________________________} procedure continue; label 1; var i:integer; begin 1:; gotoxy(10,22);writeln('ДЛЯ ПРОДОЛЖЕНИЯ ВВЕДИТЕ 0'); readln(i); if i<>0 then begin error1; goto 1 ; end; end; {___________________________________________________________________} procedure summa(c1,c2:com;ic:integer); begin if ic=1 then cc1:=c1[1]+c2[1] else cc1:=c1[1]-c2[1]; if ic=1 then cc2:=c1[2]+c2[2] else cc2:=c1[2]-c2[2]; end; {___________________________________________________________________} procedure umnog(c1,c2:com); begin cc1:=c1[1]*c2[1]-c1[2]*c2[2]; cc2:=c1[1]*c2[2]+c1[2]*c2[1]; end; {___________________________________________________________________} procedure delit(c1,c2:com); var a:real; begin a:=c2[1]*c2[1]+c2[2]*c2[2]; cc1:=(c1[1]*c2[1]+c1[2]*c2[2])/a; cc2:=(c1[2]*c2[1]-c1[1]*c2[2])/a; end; {___________________________________________________________________} function modul(c1:com):real; begin modul:=sqrt(c1[1]*c1[1]+c1[2]*c1[2]); end; {___________________________________________________________________} function ud_sopr_gr:real ; var x:real; begin gotoxy(10,5);writeln(' введите удельное сопротивление грунта ,Ом*м'); read(x); ud_sopr_gr:=x; end; {___________________________________________________________________} procedure r_perehod ; begin clrscr; gotoxy(10,5);writeln(' введите переходное сопротивление ,Ом'); read(rper); end; {___________________________________________________________________} procedure r_zazeml ; begin clrscr; gotoxy(10,5);writeln(' введите сопротивление заземлителя ,Ом '); read(r0); end; {___________________________________________________________________} procedure u_u ; begin clrscr; gotoxy(10,5);writeln(' введите фазное напряжение, В '); read(u_faz); end; {___________________________________________________________________} procedure opred_porog(i:integer); label 1; begin if i=1 then tok_hum:=modul(i_hum); textbackground(5); gotoxy(30,7); writeln(' '); gotoxy(30,7); writeln(' ТОК ЧЕРЕЗ ЧЕЛОВЕКА = ',tok_hum:10:5,' A '); gotoxy(5,10); if tok_hum>90e-3 then begin writeln(' Остановка дыхания. При длительности 3 с и более'); gotoxy(5,11); writeln(' остановка сердца.'); goto 1; end; if tok_hum>50e-3 then begin writeln(' Остановка дыхания. Начало фибриляции сердца.');goto 1; end; if tok_hum>20e-3 then begin writeln(' Паралич рук, оторвать их от электродов невозможно.'); writeln(' Очень сильные боли. Дыхание затруднено.'); goto 1; end; if tok_hum>10e-3 then begin writeln('Руки трудно, но еще можно оторвать от электродов. '); writeln('Cильные боли в пальцах,кистях рук и предплечьях.'); goto 1; end; if tok_hum>5E-3 then begin writeln('Лёгкие судороги в руках. Болевые ощущения в руках.'); goto 1; end; if tok_hum>2E-3 then begin writeln('Сильное дрожание пальцев рук. Ощущение доходит до запястья'); goto 1; end; if tok_hum>0.5E-3 then begin writeln('Начало ошущения, легкое дрожание пальцев руки.'); goto 1; end; writeln(' НЕ ОЩУЩАЕТСЯ '); 1:; end; {___________________________________________________________________} procedure a_opred_znach ; begin error1; clrscr; if tok_hum<=i_srav then begin gotoxy(10,5);writeln(' меньше предельно допустимого тока '); end else begin gotoxy(10,5);writeln(' больше предельно допустимого токa '); end; opred_porog(0); continue; end; {_____________________________________________________

скачать реферат
первая   ... 2 3 4 5 6 7 8 ...    последняя

Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

Внимание! Студенческий отдых и мегатусовка после сессии!


Обратная связь.
IsraLux отзывы Израиль отзывы