вколишнього повітря}
alf: = 50;
ew: = 0.85;
Eg: = 0.221;
Ag: = 0.309;
Es: = 0.273;
nrot: = 1.35/60; {1.35 - частота обертання печі}
npart: = 16;
dtime: = 1/nrot/npart;
end;
Procedure Net;
var s2: real;
j, j2: byte;
Begin
ny1: = 66;
Jm1: = 67;
dy1: = H1/ny1;
y [1]: = 0;
for j: = 2 to Jm1 do
begin
y [j]: = y [j-1] + dy1;
dy [j]: = dy1;
end;
j: = 0;
s2: = 0;
repeat
begin
j: = j +1;
j2: = Jm1 + j;
dy [j2]: = dy [j2-1] * 1.1;
s2: = s2 + dy [j2];
end;
until Abs (H2-s2) <0.01;
Jm2: = j2;
for j: = Jm1 +1 to jm2-1 do y [j]: = y [j-1] + dy [j];
y [Jm2]: = H1 + H2;
dy [Jm2]: = y [Jm2] - y [Jm2-1];
Rmin: = Dmax/2-H;
for j: = 1 to jm2 do r [j]: = Rmin + y [j];
for j: = 2 to Jm2-1 do dy0 [j]: = (dy [j] + dy [J +1])/2;
end;
Procedure Koef;
var j: byte;
begin
for j: = 1 to Jm1 do La [j]: = 1.2;
for j: = Jm1 +1 to Jm2 do La [j]: = 0.81 +0.00076 * ((T [j-1] + T [j])/2-273); {Матеріал футеровки печі}
end;
Procedure Progon;
var j: byte;
z, zj: real;
begin
for j: = Jm2-1 downto 1 do
begin
z: = T [j];
T [j]: = P [j] * T [j +1] + s [j];
zj: = 1-z/T [j];
if Abs (zj)> Abs (Zmax) then Zmax: = zj;
end;
end;
Procedure Print;
var j: byte;
Begin
writeln (f1);
writeln (f1, 'Ділянка на стінці печі №', ipart);
writeln (f1, 'Повне число оборотів печі', irot);
writeln (f1, 'jy, mm, T, В° C La, Вт/(м * К)');
for j: = 1 to jm2 do
writeln (f1, j: 3, y [j] * 1000:12:1, T [j] - 273:12:1, La [j]: 12:4);
end;
Procedure Tempra;
var z, dt: real;
j: byte;
Begin
Assign (f1, 'Futer.txt');
Rewrite (f1);
Data; Net;
T [1]: = Tg;
for j: = 2 to jm2 do T [j]: = Ta;
repeat
n: = n +1;
Zmax: = 0;
Koef;
P [1]: = 0;
S [1]: = Tm;
for j: = 2 to jm2-1 do
begin
b: = La [j]/dy [j]/dy0 [j] * (R [j-1] + R [j])/R [j]/2;
c: = La [j +1]/dy [j +1]/dy0 [j] * (R [j] + R [j +1])/R [j]/2;
a: = b + c;
z: = a-b * P [j-1];
P [j]: = c/z;
S [j]: = b * s [j-1]/z;
end;
b: = La [jm2]/sqr (dy [jm2]) * (R [jm2-1] + R [jm2])/R [jm2]/2;
if T [jm2] <= Ta then dt: = 0
else dt: = exp (0.33 * ln (T [jm2] - Ta));
a: = b +4 * ew * si * T [jm2] * sqr (T [jm2])/dy [jm2] +2.275 * dt/dy [jm2];
d: = ew * si * (3 * sqr (T [jm2] * T [jm2]) + sqr (Ta * Ta)...
