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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

84
{используя соотношение (7) определяем неизвестное поле
температуры}
for j:= Ny-1 downto 1 do
W[i,j]:=alfa[j]*W[i,j+1]+beta[j];
end; {окончание процедуры progonуIV}
begin
clrscr;
{с клавиатуры вводим все необходимые входные параметры}
Writeln('Введите длину пластины, L');
Readln(L);
Writeln('Введите толщину пластины, H');
Readln(H);
Writeln('Введите количество пространственных узлов в пластине по оси
х, Nx');
Readln(Nx);
Writeln('Введите количество промежутков между границей х=0 и
включением 2 по оси х, nx1');
Readln(nx1);
Writeln('Введите к
оличество промежутков во включении 2 по оси х,
nx2');
Readln(nx2);
Writeln('Введите количество промежутков между включением 2 и
включением 3 по оси х, nx3');
Readln(nx3);
Writeln('Введите количество промежутков во включении 3 по оси х,
nx4');
Readln(nx4);
Writeln('Введите количество пространственных узлов в пластине по оси
y, Ny');
Readln(Ny);
Writeln('Введите количество промежутков между границей у=0 и
включением 3 по оси y, ny1');
Readln(ny1);
Writeln('Введите к
оличество промежутков во включении 3 по оси y,
ny2');
Readln(ny2);
Writeln('Введите количество промежутков между включением 3 и
включением 2 по оси y, ny3');
Readln(ny3);
Writeln('Введите количество промежутков во включении 2 по оси y,
ny4');

Страницы