D_PRIL_L (Разработка и внедрение автоматизированных систем управления технологического оборудования минипекарень)
Описание файла
Документ из архива "Разработка и внедрение автоматизированных систем управления технологического оборудования минипекарень", который расположен в категории "". Всё это находится в предмете "технология" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "технология" в общих файлах.
Онлайн просмотр документа "D_PRIL_L"
Текст из документа "D_PRIL_L"
Приложения
Приложение 1: программа для расчета термодинамических процессов и для исследования работы СУ расстойного шкафа
program Diplom_S; {Расчет термодинамических процессов в расстойном шкафу}
Const
t_tenz = 650; {Максимально допустимая температура ТЭНов}
p_tenz = 2500; {Мощность ТЭНов}
q_test_vid = 150; {Энергия, выделяемая в тесте}
dttz = 0.5; {Допуск на отклонение температуры от заданной}
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 := 86.7*Pi*0.008*2; {Коэффициент ТЭНов}
k_test := 24.8 * 9; {Коэффициент теста}
k_tel := 6 * 11.5; {Коэффициент тележек}
k_st := 1.87 * 11.77; {Коэффициент стенок}
c_v := 1079; {Теплоемкость воздуха}
c_test := 3000; {Теплоемкость теста}
c_tel := 500; {Теплоемкость тележек}
c_ten := 470; {Теплоемкость ТЭНов}
m_v := 1.11*2.5; {Масса воздуха}
m_test := 0.46*180; {Масса теста}
m_tel := 75; {Масса тележек}
m_ten := (7100*2*Pi*sqr(0.008))/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: спецификация к сборочному чертежу