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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

125
Ниже приведен листинг программы для решения рассматриваемой
задачи (на языке программирования Pascal)
uses crt;
const mf=500;
eps=1e-5;
R=8.31;
type
vector=array[1..mf] of real;
var {раздел описания переменных, которые мы будем использовать в
программе}
i, j, N : integer;
T, Ts, Tn, alfa, beta : vector;
ai, bi, ci, fi, max : real;
lamda, ro, c, h, tau : real;
kapa, Te, q, k0, E : real;
T0, L, t_end, time : real;
f, g : text;
begin
clrscr;
{с клавиатуры вводим все необходимые входные параметры}
Writeln('Введите количество пространственных узлов, N');
Readln(N);
Writeln('Введите окончание по времени, t_end');
Readln(t_end);
Writeln('Введите толщину пластины, L');
Readln(L);
Writeln('Введите коэффициент теплопроводн
ости материала пластины,
lamda');
Readln(lamda);
Writeln('Введите плотность материала пластины, ro');
Readln(ro);
Writeln('Введите теплоемкость материала пластины, c');
Readln(c);
Writeln('Введите коэффициент теплообмена с окружающей средой,
kapa');
Readln(kapa);
Writeln('Введите температуру окружающей среды, Te');
Readln(Te);
Writeln('Введите тепловой эффект химической реакции, q');
Readln(q);
Writeln('Введите предэкспонент, k0');

Страницы