Особенности работы и конструкций многоамперных электрических аппаратов. Беляев В.Л. - 269 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

А.4. Программа расчета электродинамической стойкости
program DinWin;
uses strings,wincrt,winprn;
label v,notprn;
type wt = array [0..79] of char;
var name:wt; z:real; prin:text; yynn:char; {Вспомогательные
переменные}
F,a,l1,l2,r,h,Sk,n,s,P,I_n,Fpp,Ffp:real; {Исходные
данные}
I1,Fdk1,Fdk2,Fd,Fkp,Fk,Fdo,F1,F2:real; {Расчетные
данные}
procedure WinInit (var name: wt); {Инициализация окна
Windows}
begin screensize.x:=80; {Размер вирт.окна по гориз., симв.}
screensize.y:=50; {Размер вирт.окна по верт., строк}
windoworg.x:=50; {Координата верх.лев.угла окна по
гориз., пикс.}
windoworg.y:=50; {Координата верх.лев.угла окна по
верт., пикс.}
windowsize.x:=600; {Размер окна по гориз., пикс.}
windowsize.y:=300; {Размер
окна по верт., пикс.}
autotracking:=true; {Разреш.исп.полосы прокрутки при
работе программы}
StrCopy(WindowTitle,name); {Заголовок}
initwincrt {Открытие окна}
end;
function Fdk (var i,a,l,r:real):real; {Вычисление Fэдкi}
begin Fdk:=2e-
7*i*i*ln(a/r*sqrt(sqr(l)+r*r)/sqrt(sqr(l)+a*a)) end;
function Fi (var f1,f2,f3,f4,p:real):real; {Вычисление Fi}
begin Fi:=f1+f2/2+f3/2-f4+p/2 end;
begin strcopy (name,'Расчет электродинамической стойкости
контактной системы выключателя');
wininit (name);
writeln ('-=* Ввод исходных параметров *=-'); writeln;
write ('Усилие одной пружины в режиме рабочей деформации
[Н]: '); readln (F);
write ('Длина контактного мостика [мм]: '); readln (a);
write ('Длина токоведущей шины
от ввода тока до верхнего
контакта [мм]: ');
readln (l1);
write ('Длина токоведущей шины от ввода тока до нижнего
контакта [мм]: ');
readln (l2);

Страницы