Приложения

Приложение 1: программа для расчета термодинамических процессов и для исследования работы СУ расстойного шкафа

program Diplom_S; {Расчет термодинамических процессов в расстойном шкафу}

Const

t_tenz = 600; {Максимально допустимая температура ТЭНов}

p_tenz = 2000; {Мощность ТЭНов}

q_test_vid = 100; {Энергия, выделяемая в тесте}

dttz = 1; {Допуск на отклонение температуры от заданной}

VAR

t_z,t_v,t_ten,t_test,t_tel,t_os,dtt,dtt0 : real;

t,dt,tk : real;

k_v,k_ten,k_test,k_tel,k_st : real;

c_v,c_test,c_tel,c_ten : real;

m_v,m_test,m_tel,m_ten : real;

q_v,q_ten,q_test,q_tel,q_st,p_ten : real;

dt_test,dt_tel,dt_v,dt_ten : real;

outf : text;

procedure diff (var x:real; dx:real; dt:real); {Процедура интегрирвания}

begin

x := x + dx * dt;

end;

BEGIN

assign (outf, 'ds1.out');

Rewrite (outf);

t_z := 40; {Заданная температура ТЭНов}

t_v := 20; {Начальная температура воздуха в шкафу}

t_test := 25; {Начальная температура тестовых заготовок}

t_tel := 20; {Начальная температура тележек}

t_ten := 20; {Начальная температура ТЭНов}

t_os := 20; {Температура воздуха окружающей среды}

dtt := t_z - t_v; {Начальный сигнал рассогласования}

t := 0; {Время начала процесса}

dt := 1; {Шаг интегрирования}

tk := 3660; {Продолжительность расстойки}

k_ten := 97*Pi*0.006*2; {Коэффициент ТЭНов}

k_test := 24.8 * 6; {Коэффициент теста}

k_tel := 6 * 7; {Коэффициент тележек}

k_st := 1.87 * 9.73; {Коэффициент стенок}

c_v := 1079; {Теплоемкость воздуха}

c_test := 3000; {Теплоемкость теста}

c_tel := 500; {Теплоемкость тележек}

c_ten := 470; {Теплоемкость ТЭНов}

m_v := 1.11*2; {Масса воздуха}

m_test := 0.46*120; {Масса теста}

m_tel := 50; {Масса тележек}

m_ten := (7100*2*Pi*sqr(0.006))/4; {Масса ТЭНов}

while t <= tk do begin {Начало расчета}

q_ten := k_ten * (t_ten - t_v); {Выделяемая ТЭНами энергия}

q_test := k_test * (t_v - t_test); {Потребляемая тестом энергия}

q_tel := k_tel * (t_v - t_tel); {Потребляемая тележками энергия}

q_st := k_st * (t_v - t_os); {Расход энергии через стенки}

q_v := q_ten - q_test - q_tel - q_st; {Тепловой баланс}

dt_ten := (p_ten-q_ten)/(c_ten*m_ten); {Скорость изменения температуры ТЭНов}

dt_test:= (q_test+q_test_vid)/(c_test*m_test);{Скорость изменения температуры теста}

dt_tel := q_tel/(c_tel*m_tel); {Скорость изменения температуры тележек}

dt_v := q_v / (c_v * m_v); {Скорость изменения температуры воздуха}

if Frac(t/10) = 0 then

writeln(t:2:0,' ',t_v:10:10,' ',dt_v:10:10); {Вывод результатов}

writeln(outf, t:2:0,' ',t_v:10:10,' ',dt_v:10:10,' ',t_test:10:10);

dtt0 := dtt; {Сигнал рассогласования в предыдущий момент времени}

dtt := t_z - t_v; {Сигнал рассогласования}

if ((dtt >= dttz) OR ((dtt > -dttz) AND (dtt0 > dtt))) AND (t_ten < t_tenz) then

p_ten := p_tenz

else p_ten := 0; {Включение/выключение ТЭНов}

diff(t_ten,dt_ten,dt); {Нахождение температуры ТЭНов}

diff(t_test,dt_test,dt); {Нахождение температуры теста}

diff(t_tel,dt_tel,dt); {Нахождение температуры тележек}

diff(t_v,dt_v,dt); {Нахождение температуры воздуха}

t := t + dt; {Инкремент времени}

end; {Конец расчета}

close (outf);

END.

Приложение 2: спецификация к сборочному чертежу