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

UptoLike

ВУЗ: 

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

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

Рубрика: 

begin writeln ('Требуется уменьшить диаметр
водоохлаждаемого канала.');
writeln (' Старое значение:', d:6:3);
write (' Введите новое значение диаметра
водоохлаждаемого канала [м]:');
readln (d);
goto di
end;
v:=4*q1*1e-6/(pi*d*d);
t5:=p/(1350*exp(0.8*ln(l))*exp(0.4*ln(22+t4))*exp(0.8*ln(v)))
;
t6:=t2+t5; t7:=sqr(k*i)/(8*r*g*exp((2*m)*ln(f)));
t8:=t2+t5+t7;
writeln ('-=* Результаты расчетов *=-'); writeln;
writeln ('Расход охлаждающей воды
[л/ч].................', q2:6:2);
writeln ('Скорость движения воды в канале
[м/с].........', v:6:2);
writeln ('Температура охлаждаемого контакта
[град.С]....', t6:6:2);
writeln ('Температура контактной площадки
[град.С]......', t8:6:2);
writeln ('Перепад температур
между охлаждаемым');
writeln (' контактом и водой
[град.С]...............', t5:6:2);
writeln ('Перегрев контактной площадки по отношению');
writeln (' к температуре контакта
[град.С]..........', t7:6:2);
writeln; writeln ('Печатать результаты [Y/N]?');
yynn:=readkey;
if (yynn <> 'Y') and (yynn <> 'y') then goto notprn;
AssignDefPrn (prin); rewrite (prin);
writeln (prin,' -=* Ввод исходных параметров *=-
');
writeln (prin,'');
writeln (prin,' Тепловые потери аппарата
[Вт]:',p:6:2);
writeln (prin,' Температура воды на входе
[град.С]:',t1:6:2);
writeln (prin,' Температура воды на выходе
[град.С]:',t2:6:2);
writeln (prin,' Диаметр водоохлаждаемого
канала
[м]:',d:6:2);
writeln (prin,' Длина водоохлаждаемого канала
[м]:',l:6:2);
writeln (prin,' Коэффициент материала контактов
[Ом/Н^m]:',k:6:4);
case j1 of

Страницы