Разностные методы решения задач теплопроводности. Кузнецов Г.В - 56 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

56
Writeln(f,'Число промежутков по координате во второй части пластины
N2 = ',N2);
Writeln(f,'Общее число узлов по координате N = ',N);
Writeln(f,'Коэффициент теплопроводности материала первой части
пластины lamda1 = ', lamda1:6:4);
Writeln(f,'Коэффициент теплопроводности материала второй части
пластины lamda2 = ', lamda2:6:4);
Writeln(f,'Плотность материала первой части пластины ro1 = ',ro1:6:4);
Writeln(f,'Плотность материала второй части пластины ro2 = ',ro2:6:4);
Writeln(f,'Теплоемкость материала первой части пластины с1 = ',c1:6:4);
Writeln(f,'Теплоемкость материала второй части пластины с2 = '
,c2:6:4);
Writeln(f,'Начальная температура T0 = ',T0:6:4);
Writeln(f,'Температура на границе х = 0, Tl = ',Tl:6:4);
Writeln(f,'Температура на границе х = L, Tr = ',Tr:6:4);
Writeln(f,'Результат получен с шагом по координате h = ',h:6:4);
Writeln(f,'Результат получен с шагом по времени tau = ',tau:6:4);
Writeln(f,'Температурное поле в момент времени t = ',t_end:6:4);
close(f);
Assign(g,'tempr.txt');
Rewrite(g);
for i:=1 to N do
writeln(g,' ',h*(i-1):10:8,' ',T[i]:8:5);
close(g);
end.

Страницы