)/dy [jm2] +1.71 * (0.33 * T [jm2] + Ta ) * dt/dy [jm2];
T [jm2]: = (b * s [jm2-1] + d)/(ab * P [jm2-1]);
progon;
writeln ('n =', n: 4, 'Zmax =', Zmax: 9:6);
until Abs (Zmax) <0.00001;
Print;
end;
procedure Temp;
var
z, dt: real;
j: byte;
begin
tempra;
for j: = 1 to jm1-1 do
begin
Ro [j]: = 2200;
Cp [j]: = 1000;
end;
for j: = jm1 +1 to jm2 do
begin
Ro [j]: = 2800;
Cp [j]: = 900;
end;
Ro [jm1]: = (Ro [jm1-1] + Ro [jm1 +1])/2;
Cp [jm1]: = (Cp [jm1-1] + Cp [jm1 +1])/2;
for j: = 1 to jm2 do
begin
Ftime [j]: = Ro [j] * Cp [j]/Dtime;
end;
irot: = 0;
itime: = 0;
time: = 0;
while irot <= 1001 do
begin
itime: = itime +1;
irot: = (itime-1) div npart;
ipart: = itime-irot * npart;
Time: = time + dtime;
for j: = 1 to Jm2 do T0 [j]: = t [j];
repeat
n: = n +1;
zmax: = 0;
koef;
if ipart <= 4 then
begin
P [1]: = 0;
S [1]: = Tm;
end
else
begin
c: = La [2]/sqr (dy [2]) * (R [1] + R [2])/R [1]/2;
a: = c + alf/dy [2] +4 * Es * ew * si * T [1] * sqr (t [1])/dy [2] + ftime [1]/2;
d: = alf/dy [2] * Tg + Es * ew * si * (Eg/Ag * sqr (Tg * Tg) +3 * sqr (T [1] * T [1]))/dy [2] + ftime [1] * T0 [1]/2;
P [1]: = c/a;
S [1]: = d/a;
end;
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 + ftime [j];
d: = ftime [j] * T0 [j];
z: = a-b * P [j-1];
P [j]: = c/z;
S [j]: = (b * s [j-1] + d)/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] + ftime [jm2]/2;
d: = ew * si * (3 * sqr (T [jm2] * T [jm2]) + Sqr (Ta * Ta))/dy [jm2] +1.71 * (0.33 * T [jm2] + Ta ) * dt/dy [jm2] + ftime [jm2] * t0 [Jm2]/2;
T [jm2]: = (b * S [jm2-1] + d)/(ab * P [jm2-1]);
Progon;
Writeln ('Irot =', irot: 4, 'Zmax =', Zmax: 9:6);
Until Abs (Zmax) <0.00001;
if irot = 1001 then Print;
end;
close (f1);
end;
Begin
temp;
End.
Результати виконання програми № 2
Ділянка на стінці печі № 0
Повне число оборотів печі 0
j y, mm, T, шC La,, в/(В¬ * С в„ў)
1 0.0 1465.0 1.2000
2 0.8 1458.5 1.2000
3 1.6 1452.0 1.2000
4 2.4 1...
