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

UptoLike

ВУЗ: 

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

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

Рубрика: 

А.3. Программа теплового расчета при автономном жидкостном охлаждении
program AutoWin;
uses strings,wincrt,winprn;
label notprn;
type wt=array [0..79] of char;
const
v=2.5; {Скорость циркуляции воды, см/сек}
{Коэффициенты меди}
lamm=3.9; {теплопроводность}
sigm=3.1e3; {смятие}
var name:wt; yynn:char;
p,pd,pnk,pk,p1,p2,pn,s,dt,dtk,rt,tg,dtau,k,a,e1,t20,t10,dtn,t
d:real; prin:text;{Вспом.переменные}
i,sd,kto,dk,lk,sr,ar,t0,tn,rk0,rk1,rk,rnk,t2,t1,cp,g,lamb
da,f,h: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 (i);
write ('Поверхность контактов (
с одной стороны
разъединителя) [кв.м]: '); readln (sd);
write ('Коэффициенты теплоотдачи с поверхности
неподвижных контактов в воздух [Вт/(кв.м*град.С)]: '); readln
(kto);
write ('Диаметр канала ножа [м]: '); readln (dk);
write ('Длина канала ножа [м]: '); readln (lk);

Страницы