Поиск по сайту
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ реферат на тему: Создание экспертной системы для анализа опасностейвведите сопротивление заземлителя ,Ом > ');
read(r0);
end;
{___________________________________________________________________}
procedure u_u ;
{ ввод фазного напряжения }
begin
clrscr;
gotoxy(10,5);write(' введите фазное напряжение, В > ');
read(u_faz);
end;
{___________________________________________________________________}
procedure opred_porog(ii:integer);
{ выдача сообщения о характере воздействия тока,
протекающего через человека,в зависимости от
значения тока }
begin
if ii=1 then tok_hum:=modul(i_hum);
textbackground(red);
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(' остановка сердца.');
end;
if (tok_hum>50e-3)and(tok_hum<=90e-3) then
begin
writeln(' Остановка дыхания. Начало фибриляции сердца.');
end;
if (tok_hum>20e-3)and(tok_hum<=50e-3) then
begin
writeln(' Паралич рук, оторвать их от электродов невозможно.');
writeln(' Очень сильные боли. Дыхание затруднено.');
end;
if (tok_hum>10e-3)and(tok_hum<=20e-3) then
begin
writeln('Руки трудно, но еще можно оторвать от электродов. ');
writeln('Cильные боли в пальцах,кистях рук и предплечьях.');
end;
if (tok_hum>5E-3)and(tok_hum<=10e-3) then
begin
writeln('Лёгкие судороги в руках. Болевые ощущения в руках.');
end;
if (tok_hum>2E-3)and(tok_hum<=5e-3) then
begin
write('Сильное дрожание пальцев рук.');
writeln('Ощущение доходит до запястья');
end;
if (tok_hum>0.5E-3)and(tok_hum<=2e-3) then
begin
writeln('Начало ошущения, легкое дрожание пальцев руки.');
end;
if tok_hum<=0.5e-3 then writeln(' НЕ ОЩУЩАЕТСЯ ');
repeat c:=readkey until c<>#27;
end;
{___________________________________________________________________}
procedure a_opred_znach ;
{ сообщение о допустимости тока через человека
в зависимости от условий поражения}
begin
clrscr;
if tok_hum<=i_srav then
begin
gotoxy(10,5);writeln(' меньше предельно допустимого тока ');
end
else
begin
gotoxy(10,5);writeln(' больше предельно допустимого токa ');
end;
opred_porog(0);
end;
{___________________________________________________________________}
procedure bytov_sety;
{ выбор максимально допустимого тока в зависимости от }
{ времени срабатывания техн. устройства в бытовых сетях }
begin
if (t_srab<=0.08) then i_srav:=0.22 ;
if (t_srab>0.08)and(t_srab<=0.1) then i_srav:=0.2 ;
if (t_srab>0.1)and(t_srab<=0.2) then i_srav:=0.1 ;
if (t_srab>0.2)and(t_srab<=0.3) then i_srav:=0.07 ;
if (t_srab>0.3)and(t_srab<=0.4) then i_srav:=0.055 ;
if (t_srab>0.4)and(t_srab<=0.5) then i_srav:=0.05 ;
if (t_srab>0.5)and(t_srab<=0.6) then i_srav:=0.04 ;
if (t_srab>0.6)and(t_srab<=0.7) then i_srav:=0.035 ;
if (t_srab>0.7)and(t_srab<=0.8) then i_srav:=0.03 ;
if (t_srab>0.8)and(t_srab<=0.9) then i_srav:=0.027 ;
if (t_srab>0.9)and(t_srab<=1) then i_srav:=0.025 ;
if i_srav>1 then i_srav:=0.002;
end;
{___________________________________________________________________}
procedure dvux_faz;
{ вычисление тока через человека при двухфазном
прикосновении в трехфазных сетях
}
begin
u_u; clrscr;
tok_hum:=u_faz*sqrt(3)/r_hum; a_opred_znach;
end;
{___________________________________________________________________}
procedure prom_sety;
{ выбор максимально допустимого тока в зависимости от }
{ времени срабатывания техн. устройства в промышленных сетях }
begin
if t_srab<=0.08 then i_srav:=0.65
первая ... 14 15 16 17 Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ Внимание! Студенческий отдых и мегатусовка после сессии!
Рефераты и/или содержимое рефератов предназначено исключительно для ознакомления, без целей коммерческого использования. Все права в отношении рефератов и/или содержимого рефератов принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие или полученные в связи с использованием рефератов и/или содержимого рефератов.
|
Обратная связь. |