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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

85
Readln(ny4);
Writeln('Введите окончание по времени, t_end');
Readln(t_end);
Writeln('Введите коэффициент теплопроводности материала пластины,
lamda1');
Readln(lamda1);
Writeln('Введите плотность материала пластины, ro1');
Readln(ro1);
Writeln('Введите теплоемкость материала пластины, c1');
Readln(c1);
Writeln('Введите коэффициент теплопроводности материала включения
2, lamda2');
Readln(lamda2);
Writeln('Введите плотность материала включения 2, ro2');
Readln(ro2);
Writeln('Введите теплоемкость материала включения 2, c2');
Readln(c2);
Writeln('Введите коэффициент теплопроводности материала включения
3, lamda3');
Readln(lamda3);
Writeln('Введите плотность материала включения 3, ro3');
Readln(ro3);
Writeln('Введите теплоемкость материала
включения 3, c3'
);
Readln(c3);
Writeln('Введите температуру на границе х=0, Th');
Readln(Th);
Writeln('Введите температуру на границе х=L, Tc');
Readln(Tc);
Writeln('Введите начальную температуру, T0');
Readln(T0);
{определяем расчетные шаги сетки по пространственным
координатам}
hx:=L/(Nx-1);
hy:=H/(Ny-1);
{определяем расчетный шаг сетки по времени}
tau:=t_end/100.0;
{записываем все входные параметры}
Assign(f,'res.txt');
Rewrite(f);
Writeln(f,'Длина пластины L = ',L:6:4);

Страницы