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

UptoLike

ВУЗ: 

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

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

Рубрика: 

ПРИЛОЖЕНИЯ
А. Программы тепловых расчетов и расчета электродинамической стойкости
многоамперных электрических аппаратов.
А.1. Программа теплового расчета при естественном воздушном охлаждении
program NaturalWin;
uses strings,wincrt,winprn;
label ca,cal,cam,notprn;
type wt=array [0..79] of char;
const
{Удельные сопротивления, Ом*см}
rocu=1.76e-6; {Медь}
roag=1.5e-6; {Серебро}
rola=5e-6; {Латунь}
roal=2.9e-6; {Алюминий}
rokzmk=0.1e-6; {КЖМК}
{Теплопроводность, Вт/см*град.С}
lcu=3.6; {Медь}
lag=4.2; {Серебро}
lla=1; {Латунь}
lal=2; {Алюминий}
lkzmk=3.73; {КЖМК}
{Переходное сопротивление контактов, Ом*Н}
kcu=400e-6; {Медь}
kag=60e-6; {Серебро}
kla=670e-6; {Латунь}
kal=4000e-6; {Алюминий}
kkzmk=10e-6; {КЖМК}
var name:wt; yynn:char; j1,j2,j3:byte;
a1,a2,b1,b2,c1,ro1,ro2,ty1,ty2,rk,rt,t1,t2,dt,p1,p2:real;
prin:text;{Вспом.переменные}
i,l,f1,f2,s1,s2,p,t0,t1cp,t2cp,kont,lkont,rokont,ltok,rotok,l
most,romost,alfa1,alfa2: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; {Размер окна по верт., пикс.}

Страницы