Составители:
Рубрика:
write ('Приведенный радиус прямоугольной шины [мм]: ');
readln (r);
write ('Расстояние между мостиковыми контактами [мм]: ');
readln (h);
write ('Кажущаяся площадь сечения контакта [кв.мм]: ');
readln (Sk);
write ('Число контактных площадок (при плоскостном
контакте): '); readln (n);
write ('Предел прочности материла контактов сжатию
[Н/кв.мм]: '); readln (s);
write ('Вес подвижного контакта мостика [Н]: '); readln
(P);
write ('Номинальный ток выключателя [кА]: '); readln
(I_n); I_n:=I_n*1000;
writeln ('Контактное нажатие на одну контактную
площадку');
write (' в первый момент после включения [Н]: '); readln
(Fkp);
if Fkp <> 0 then goto v;
write ('Усилие предварительного поджатия [Н]: '); readln
(Fpp);
write ('Усилие поджатия в первый момент после включения:
'); readln (Ffp);
v:writeln; writeln ('-=* Вычисление... *=-'); writeln;
I1:=I_n/4; Fdk1:=Fdk(I1,a,l1,r); Fdk2:=Fdk(I1,a,l2,r);
Fd:=2e-7*I1*I1*a/h; if Fkp = 0 then begin Fkp:=Fpp+Ffp
end;
Fk:=2*Fkp; Fdo:=1e-7/(2*n)*I1*I1*ln(Sk*s/Fkp); z:=Fd*(-1);
F1:=Fi(Fkp,Fdk1,Fd,Fdo,P); F2:=Fi(Fkp,Fdk2,z,Fdo,P);
writeln ('-=* Результаты расчетов *=-'); writeln;
writeln ('Ток, протекающий через один мостиковый контакт
[А]....',I1:6:2);
writeln ('Усилия П-образного контура [Н]:');
writeln (' - для верхнего контактного
мостика.................',Fdk1:6:2);
writeln (' - для нижнего контактного
мостика..................',Fdk2:6:2);
writeln ('Сила взаимодействия между верхним и нижним');
writeln (' мостиковыми контактами в результате
прохождения');
writeln (' по ним параллельных токов
[Н]........................',Fd:6:2);
writeln ('Контактное нажатие на одну контактную
площадку');
writeln (' в первый момент после включения
[Н]..................',Fkp:6:2);
writeln ('Суммарное усилие двух пружин, действующих');
writeln (' на контактный мостик
[Н].............................',Fk:6:2);
Страницы
- « первая
- ‹ предыдущая
- …
- 268
- 269
- 270
- 271
- 272
- …
- следующая ›
- последняя »