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

UptoLike

ВУЗ: 

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

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

Рубрика: 

autotracking:=true; {Разреш.исп.полосы прокрутки при
работе программы}
StrCopy (WindowTitle,name); {Заголовок}
initwincrt {Открытие окна}
end;
function a(var aa,sa,la,fa:real):real;
begin a:=sqrt(aa*sa/(la*fa)) end;
function b(var ab,sb,lb,fb:real):real;
begin b:=sqrt(ab*sb*lb*fb) end;
function c(var ac,lc:real):real;
begin c:=(1-exp(-ac*lc))/(1+exp(-ac*lc)) end;
function rocup(var tro:real):real;
begin rocup:=1.76e-6*(1+0.004*(tro-20)) end;
function ty(var ity,roty,aty,sty,fty,tty:real):real;
begin ty:=ity*ity*roty/(aty*sty*fty)+tty end;
begin strcopy (name,'Тепловой расчет аппарата с естественным
охлаждением');
wininit (name);
writeln ('-=* Ввод исходных параметров *=-'); writeln;
write ('Ток нагрузки [А]: '); readln (i);
write ('Длина контактного мостика [см]: '); readln (l);
write ('Площадь сечения мостика [кв.см]: '); readln (f1);
write ('Периметр сечения мостика [см]: '); readln (s1);
write ('Площадь сечения токоподводов [кв.см]: '); readln
(f2);
write ('Периметр сечения токоподводов [см]: '); readln
(s2);
write ('Давление на каждый контакт [Н]: '); readln (p);
write ('Температура окружающего воздуха [град.С]: ');
readln (t0);
write ('Средняя температура мостика [град.С]: '); readln
(t1cp);
write ('
Средняя температура токоподводов [град.С]: ');
readln (t2cp);
write ('Материал контактов:');
writeln (' 1 - медь...');
writeln (' 2 - серебро...');
writeln (' 3 - латунь...');
writeln (' 4 - алюминий...');
writeln (' 5 - КЖМК...');
writeln (' 6 - ДРУГОЙ...');
ca: j1:=0; readln (j1);
case j1 of
1: begin kont:=kcu; lkont:=lcu; rokont:=rocu end;

Страницы