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

UptoLike

86
Writeln(f,'Расстояние между границей х=0 и включением 2 =
',nx1*hx:6:4);
Writeln(f,'Длина включения 2 = ',nx2*hx:6:4);
Writeln(f,'Расстояние между включением 2 и включением 3 =
',nx3*hx:6:4);
Writeln(f,'Длина включения 3 = ',nx4*hx:6:4);
Writeln(f,'Толщина пластины H = ',H:6:4);
Writeln(f,'Расстояние между границей y=0 и включением 3 =
',ny1*hy:6:4);
Writeln(f,'Толщина включения 3 = ',ny2*hy:6:4);
Writeln(f,'Расстояние между включением 3 и включением 2 =
',ny3*hy:6:4);
Writeln(f,'Толщина включения 2 = ',ny4*hy:6:4);
Writeln(f,'Число узлов по пространственной координате x в пластине
Nx = ',Nx);
Writeln(f,'Число промежутков между границей х=0 и включением 2 =
'
,nx1);
Writeln(f,'Число промежутков во включении 2 = ',nx2);
Writeln(f,'Число промежутков между включением 2 и включением 3 =
',nx3);
Writeln(f,'Число промежутков во включении 3 = ',nx4);
Writeln(f,'Число узлов по пространственной координате y в пластине
Ny = ',Ny);
Writeln(f,'Число промежутков между границей y=0 и включением 3 =
',ny1);
Writeln(f,'Число промежутков во включении 3 = ',ny2);
Writeln(f,'Число промежутков между включением 3 и включением 2 =
',ny3);
Writeln(f,'Число промежутков во включении 2 = ',ny4);
Writeln(f,'Коэффициент теплопроводности материала пластины lamda1
= '
,lamda1:6:4);
Writeln(f,'Плотность материала пластины ro1 = ',ro1:6:4);
Writeln(f,'Теплоемкость материала пластины с1 = ',c1:6:4);
Writeln(f,'Коэффициент теплопроводности материала включения 2
lamda2 = ',lamda2:6:4);
Writeln(f,'Плотность материала включения 2 ro2 = ',ro2:6:4);
Writeln(f,'Теплоемкость материала включения 2 с2 = ',c2:6:4);
Writeln(f,'Коэффициент теплопроводности материала включения 3
lamda3 = ',lamda3:6:4);
Writeln(f,'Плотность материала включения 3 ro3 = ',ro3:6:4);
Writeln(f,'Теплоемкость материала включения 3 с3 = ',c3:6:4);