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

Program alex;

uses crt;

const si=5.67e-8;

var Jm1, Jm2, ny1, ny3, npart, ipart, itime, irot:integer;

dy1, dy3, n, Dmax, Rmin, H, H1, H2, Ta, Tg, Tm:real;

a, b, c, d, Zmax, Time, dtime, nrot, alf, ew, Eg, Ag, Es:real;

y, dy, dy0, R, T, T0, La, Ro, cp, ftime, P, S:array [1..200] of real;

f1:text;

Procedure Data;

Begin

{Исходныеданные}

Dmax:=6.2; {Диаметр печи}

H1:=0.053; {толщина гарнисажного слоя}

H2:=0.265; {Толщина футеровки}

H:=H1+H2;

Tm:=1465+273; {Температура технологического материала}

Tg:=1779+273;

Ta:=25+273; {Температура окружающего воздуха}

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;