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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

165
Ниже приведен листинг программы для решения рассматриваемой
задачи (на языке программирования Pascal)
uses crt;
const mf=51;
eps=1e-5;
sigma=5.669e-8;
type
vector1=array[1..mf] of real;
vector2=array[1..mf,1..mf] of real;
var {раздел описания переменных, которые мы будем использовать в
программе}
i, j, Nx, Ny, k, l : integer;
T, Ts, Tn : vector2;
alfa, beta : vector1;
ai, bi, ci, fi, max : real;
lamda, ro, c, eps1, kapa : real;
hx, hy, tau, t_end, time : real;
T0, Te, Lx, Ly, h, Th, Tc : real;
f, g : text;
begin
clrscr;
{с клавиатуры вводим все необходимые входные параметры}
Writeln('Введите количество пространственных узлов в пластине по оси
х, Nx
');
Readln(Nx);
Writeln('Введите количество пространственных узлов в пластине по оси
y, Ny');
Readln(Ny);
Writeln('Введите окончание по времени, t_end');
Readln(t_end);
Writeln('Введите длину пластины, Lx');
Readln(Lx);
Writeln('Введите ширину пластины, Ly');
Readln(Ly);
Writeln('Введите толщину пластины, h');
Readln(h);
Writeln('Введите коэффициент теплопроводности материала пластины,
lamda');
Readln(lamda);
Writeln('Введите плотность материала пластины, ro');

Страницы