Разработка и внедрение автоматизированных систем управления технологического оборудования минипекарень (WinWord) [Диплом]

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ТЕХHОЛОГИЯ

---

Приложения
Приложение 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

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место