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

UptoLike

ВУЗ: 

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

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

Рубрика: 

А2. Программа теплового расчета при принудительном жидкостном
охлаждении
program VodaWin;
uses strings,wincrt,winprn;
label ca,cas,di,notprn;
type wt=array [0..79] of char;
const
{Коэффициенты материала контактов k, Ом/Н^m}
AgAg=0.5e-3; {Серебро-серебро}
CuCu=4e-3; {Медь-медь}
SnSn=5e-3; {Олово-олово}
LaLa=6.7e-3; {Латунь-латунь}
AlAl=30e-3; {Алюминий-алюминий}
StSt=76e-3; {Сталь-сталь}
{Коэффициенты контактной поверхности}
Toch=0.5; {Точечный}
Li=0.7; {Линейный}
Pl=1.0; {Плоскостной}
var j1,j2:byte; z,t3,t4,t5,t6,t7,t8,q1,q2,v:real; name:wt;
yynn:char;
prin:text;{Вспом.переменные}
p,t1,t2,d,l,k,f,m,r,g,i: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;
begin strcopy (name,'Тепловой расчет аппарата с водяным
охлаждением');
wininit (name);
writeln ('-=* Ввод исходных параметров *=-'); writeln;
write ('Тепловые потери аппарата [Вт]: '); readln (p);

Страницы