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

End;

{============================================================================}

Procedure tFurnace. Result;

{============================================================================}

Begin

Append(File1);

if X mod 2 = 0 then

Writeln (file1, x:3,' ', lf:5:1,' ', gt:6:4,' ', gb:6:3,' '

eg:5:3,' ', ag:5:3,' ', es:5:3,' ', hf:6:0,' ', tf:6:0,' ', qf:5:0);

End;

{============================================================================}

Procedure tFurnace. Nomina;

{============================================================================}

Begin

Append(File1); Writeln(File1); Writeln (File1,' ОБОЗНАЧЕНИЯ:');

Writeln (File1,' X – относительное расстояние x/d0 (номер расчетного сечения)');

Writeln (File1,' LF – относительная длина факела LФ/d0');

Writeln (File1,' GT – доля несгоревшего топлива от поступившего в горелку Gт/G0');

Writeln (File1,' GB – относительное количество воздуха, вовлеченного в факел, Gb/G0');

Writeln (File1,' EG – степень черноты газообразной среды в факеле');

Writeln (File1,' AG – поглощательная способность факела');

Writeln (File1,' Es – приведенная степень черноты факела');

Writeln (File1,' HF – энтальпия газообразной среды в факеле');

Writeln (File1,' Tf – средняя температура в поперечном сечении факела,°C');

Writeln (File1,' Qf – теплоотдача факела, кВт');

Writeln(File1);

Close(file1);

End;

{============================================================================}