аступних один за одним оборотах.
Щоб задати початкове температурне поле в футеровке, доцільно усереднити стаціонарні розподілу температури, отримані в двох попередніх програмах при граничних умовах першого і третього роду. Як і раніше допускається розглядати завдання наближено як одновимірну. Коефіцієнт aj, Dj дискретних рівнянь розраховують тепер з урахуванням нестаціонарних членів.
Окружність печі ділять на 16, розрахункових відрізків і визначають інтервал часу, необхідний для проходження кожного відрізка розрахунковим перетином футерування при обертанні печі
В
де n про - частота обертання печі (1/с).
Якщо розрахунковий відрізок футерування знаходиться під шаром технологічного матеріалу, у програмі використовуються граничні умови першого роду. Для інших ділянок футеровки розрахунок виконується при граничних умовах третього роду.
Щоб виділити інтервали часу, коли футеровка знаходиться під шаром технологічного матеріалу, розділимо порядковий номер розрахункового інтервалу часу на число розрахункових відрізків по колу печі. Ті розрахункові моменти часу, для яких величина отримуєте цілою, відповідають початку нового обороту печі. На першому обороті печі це початковий (нульовий) момент часу, а на решті оборотах печі це моменти часу, порядкові номери яких кратні числу n ф .
Якщо розрахунковим відрізкам по колу футерування, що перебувають під шаром технологічного матеріалу, привласнити порядкові номери, то відповідні їм розрахункові моменти часу можна визначити з умови, що ставлення, є цілим числом.
В
Поперечний перетин обертової печі:
1-футеровка; 2 - шар гарнісажу; 3 - технологічний матеріал.
Програма № 1
Program Kurs;
{Математичне моделювання теплової роботи обертової печі}
uses Crt;
const SI = 5.67e-8; {Постійне Стефана-Больцмана, Вт/(м2 * К4)}
SC = 0.85; {Турбулентне число Шмідта}
type tFurnace = object
X: integer;
Dk, Dw, D0, Hw, Hw1, Tm, Ew1, Ew2: real;
X0, RF, FR, LF, AG, ES, EG: real;
BT, G0, R0, U0, H0, QT, GT: real;
GB, GB0, ROB, TB, HB: real;
ALB, NB, VB0, V1, V2, V3, VG0: real;
TF, TK, TP, QF, QP, HF: real;
Cg, Cv, CF, ROF, ROV, RO: real;
P1, P2, P3, PT, PG, PB: real;
Procedure Date;
Procedure Fakel;
Procedure GasPost;
Procedure GasHeat;
Procedure HeatLine;
Function fHdis: real;
Procedure Names;
Procedure Result;
Procedure Nomina;
end;
var Furnace: tFurnace;
Var File1: text;
{============================================== ==============================}
Procedure tFurnace. Date;
{============================================== ==============================}
{Вихідні дані}
Begin
DK: = ...