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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

166
Readln(ro);
Writeln('Введите теплоемкость материала пластины, c');
Readln(c);
Writeln('Введите коэффициент теплообмена, kapa');
Readln(kapa);
Writeln('Введите приведенную степень черноты, eps1');
Readln(eps1);
Writeln('Введите температуру окружающей среды, Te');
Readln(Te);
Writeln('Введите температуру на границе x = 0, Th');
Readln(Th);
Writeln('Введите температуру на границе x = Lx, Tc');
Readln(Tc);
Writeln('Введите начальную температуру, T0');
Readln(T0);
{определяем расчетные шаги сетки по пространственным
координатам}
hx:=Lx/(Nx-1);
hy:=Ly/(Ny-1);
{определяем расчетный шаг сетки по времени}
tau:=t_end/100.0;
{записываем в файл входные параметры для проверки}
Assign(f,'
res.txt');
Rewrite(f);
Writeln(f,'Длина пластины Lx = ',Lx:6:4);
Writeln(f,'Ширина пластины Ly = ',Ly:6:4);
Writeln(f,'Толщина пластины h = ',h:6:4);
Writeln(f,'Число узлов по пространственной координате x в пластине
Nx = ',Nx);
Writeln(f,'Число узлов по пространственной координате y в пластине
Ny = ',Ny);
Writeln(f,'Коэффициент теплопроводности материала пластины lamda =
',lamda:6:4);
Writeln(f,'Плотность материала пластины ro = ',ro:6:4);
Writeln(f,'Теплоемкость материала пластины с = ',c:6:4);
Writeln(f,'Коэффициент теплообмена kapa = ',kapa:6:4);
Writeln(f,'Приведенная степень черноты eps1 = ',eps1:6:4);
Writeln(f,'Начальная температура T0 = ',T0:6:4);
Writeln(f,'Температура окружающей ср
еды Te = ',Te:6:4);
Writeln(f,'Температура на границе x = 0 Th = ',Th:6:4);
Writeln(f,'Температура на границе x = Lx Tc = ',Tc:6:4);

Страницы