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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

155
Readln(ro);
Writeln('Введите теплоемкость материала пластины, c');
Readln(c);
Writeln('Введите коэффициент аккомодации, A');
Readln(A);
Writeln('Введите плотность теплового потока на границе, q');
Readln(q);
Writeln('Введите тепловой эффект фазового перехода, qev');
Readln(qev);
Writeln('Введите молярную массу, M');
Readln(M);
Writeln('Введите предэкспонент, P0');
Readln(P0);
Writeln('Введите коэффициент теплообмена на границе y = 0, kapa');
Readln(kapa);
Writeln('Введите температуру внешней среды относительно границы y
= 0, Te');
Readln(Te);
Writeln('Введите начальную температуру, T0');
Readln(T0);
{определяем расчетные шаги сетки по пространственным
координатам}
hx:=L/(Nx-1);
hy:=H/(Ny-1);
{определяем расчетный шаг сетки по времени}
tau:=t_end/1000.0;
{определяем поле температуры в начальный момент вр
емени}
for i:= 1 to Nx do
for j:= 1 to Ny do
T[i,j]:=T0;
{проводим интегрирование нестационарного уравнения
теплопроводности}
time:=0;
while time<t_end do {используем цикл с предусловием}
begin
{увеличиваем переменную времени на шаг τ}
time:=time+tau;
{решаем СЛАУ в направлении оси Ох для определения поля
температуры на промежуточном (n+1/2) временном слое}
for j:=1 to Ny do
b
egin

Страницы