Курсовая работа: Математическое моделирование тепловой работы вращающейся печи

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]+