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

UptoLike

ВУЗ: 

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

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

Рубрика: 

5: begin
write (' Введите теплопроводность мостика
[Вт/см*град.С]: '); readln (lmost);
write (' Введите уд.сопротивление мостика
[Ом*см]: '); readln (romost)
end
else begin writeln ('Еще раз...'); goto cam end
end;
write (' Теплоотдача с поверхности мостика
[Вт/см*град.С]: '); readln (alfa1);
writeln; writeln ('-=* Вычисление... *=-'); writeln;
a1:=a(alfa1,s1,lmost,f1); a2:=a(alfa2,s2,ltok,f2);
b1:=b(alfa1,s1,lmost,f1); b2:=b(alfa2,s2,ltok,f2);
c1:=c(alfa1,l);
ro1:=rocup(t1cp); ty1:=ty(i,ro1,alfa1,s1,f1,t0);
ro2:=rocup(t2cp); ty2:=ty(i,ro2,alfa2,s2,f2,t0);
rk:=kont/sqrt(p); rt:=rk/(rokont*lkont);
t1:=(i*i*rk*(rt/2+1/b2)+ty1*(rt+1/b2)*b1*c1+ty2)/(1+b1*(rt+1/
b2)*c1);
t2:=(i*i*rk+b1*c1*ty1)/b2+ty2-b1*c1*t1/b2;
dt:=t1-t2;
p1:=i*i*rk+(ty1-t0)*l*s1*alfa1; p2:=b2*(t2-ty2);
writeln ('-=* Результаты расчетов *=-'); writeln;
writeln ('Тепловые потери в мостике
[Вт].......................................', p1:6:2);
writeln ('Тепловые потери в токоподводах
[Вт]..................................', p2:6:2);
writeln ('Температура мостика, если бы отсутствовали
контакты [град.С].........', ty1:6:2);
writeln ('Температура токоподводов, если бы отсутствовали
контакты [град.С]....', ty2:6:2);
writeln ('Температура контактов мостика
[град.С]...............................', t1:6:2);
writeln ('Температура контактов токоподводов
[град.С]..........................', t2:6:2);
writeln ('Перепад температур между контактами мостика и
токоподводов
[град.С]..', dt:6:2);
writeln; writeln ('Печатать результаты [Y/N]?');
yynn:=readkey;
if (yynn <> 'Y') and (yynn <> 'y') then goto notprn;
AssignDefPrn (prin); rewrite (prin);
writeln (prin,' -=* Ввод исходных параметров *=-
');
write (prin,'Ток нагрузки [см]:', i);
write (prin,'Длина контактного мостика [см]:', l);

Страницы