DIPLOMA (729457), страница 7

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

В = (V _загр. - e) *С_реал. , где

e - естественная убыль яблок засрок храненя ,т ;

V _загр. - количество заложенных на храненя яблок ,т;

С_реал - реализационная цена 1т яблок , принимаем 800 грн/т.

В = (92 - 2,9) *800 = 71280 грн.

П _год = 71280 - 25968 - 23000 = 22312 грн

Срое окупаемости капитальных затрат составит :

Т = К/П= 39160 / 22312 » 1,7 года

Коэффициент рентабельности

Кр = 1/Т = 0,6

Исходя из технико - экономических показателей внедрения модуля является выгодным мереприятием .

Оринтировочно предпологаемая прибыль за год составит 22000 грн . Срок окупаемости модуля составит 1,7 лет , а коэффициент рентабельности равняется 0,6

7 Техника безопасности

7.1 Електроосвещение.

Питание осветительной цепи осуществляется от группового щита ЩА-601-У3, который вмещает шесть выключателей АЕ1031 в группах.

Назначение групп такое :

• группа 1 - осуществляет питание освещения холодильной камеры;

• группа 2 - осуществляет питание освещения машинного отделения;

• группа 3 - осуществляет питание освещения платформы;

• группы 4, 5, 6 - резервные.

Групповой щиток расположен в машинном отделении.

1. Расчет освещения.

Расчет производим методом коэффициента использования светового потока.

Индекс помещения (i) определим по формуле:

A * B

i =-----------------;

h*(A + B)

где h- расчетная высота , м;

А,В - стороны помещения в плане, м

Принимаем высоту установления светильника h_св. =3,5 м.

Высота рабочей площади h_р = 0,8 м.

Тогда расчетная высота h = h_св. - h_р = 3,5-0,8= 2,7 м

6*18

i =------------------=1,66

2,7*(6+18)

Для установки принимаем светильники типа ППД.

Для светильника ППД и i= 1,66 - коэффициент использования светового потока ( h ) равняется h = 0.44.

Световой поток лампы F определим по формуле :

E * k* s * z

F = --------------------

n * h

E- освещенность ,лк;

k- коэффициент запаса;

s- площадь помещения ,м² ;

z- коэффициент , учитывающий размещение светильников;

n- количество светильников.

30 * 1,3 * 108 * 1,15

F=---------------------------=1376 лм

8 * 0,44

Принимаем лампу Р= 100 Вт , которая имеет F= 1350 лм.

Светильники следует подвешивать на кронштейнах типа С233.

1.2 Расчет освещения помещения машинного отделения .

Индекс помещения :

3*3

i= --------------=0,55

2,7*(3+3)

Коэффициент h=0,2.

принимаем количество светильников n=4 , освещенность Е=100 лак.

100*1,3*9*1,15

F=---------------------------=1681 лм

4*0,2

Принимаем лампу Р=150 Вт ,которая имеет F=2000 лм.

Светильники следует подвешивать на кронштейнах типа С233.

7.2 Расчет тока уставки автоматических выключателей группового щитка.

7.2.1 Расчет тока уставки группы №1.

Установлена мощность ламп P₁ = 8*100 =800 Вт.

Рабочий ток I₁ равняется :

I₁ = P₁ / U = 800/ 220 =3,64 A

Принимаем ток уставки I_1У = 6 А.

7.2.2 Расчет тока уставки группы №2.

Установлена мощность ламп Р₃ = 4*150 =600 Вт.

I₃ = 600/ 220 =2,73 A

Принимаем ток уставки I_3У = 6 А

7.2.3 Расчет тока уставки группы №3.

Установлена мощность ламп Р₄= 1*200 =200 Вт.

I₄ = 200/ 220 =0,9 A

Принимаем ток уставки I_4У = 6 А

ВЫВОДЫ

В результате произведеннного проектирования была создана система автоматического регулирования фруктов в фруктохранилище.

При проектировании автоматики был сделан акцент на использование отечественных комплектующих , что окажет положительный эффект на народнохозяйственный комплекс.

Расчеты переходных процессов в холодильной камере показали , что система автоматического контроля поддерживает температуру в камере в заданном диапазоне несмотря на колебания температуры внешней среды.

Был произведен технико - экономический расчет , в результате которого был получен положительный экономический эффект .

Суммируя вышеизложенное можно сделать вывод о целесообразности внедрения и применения холодильного модуля.

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1 Крылов Н.В. , Гришин Л. М. Экономика холодильной промышленности . М., Агропромиздат , 1987, 272 с .;

2 Холодильная техника . 1986 , № 11 , с. 2 -4 ;

3 Оценка и совершентствование условий холодильного хранения овощей . Янковский и др. , Сборник трудов ЛТИХП . Холодильная обработка и хранение пмщевых прпордуктов . Л., 1974 , вып. 2 , с. 125-132;

4 Комаров Н.С. Холод . М., Госиздат Министерства легкой и пищевой промышленности , 1953 , 704 с .;

5 Теплообменные аппараты , приборы автоматизации и испытания холодильных машин . Справочник . М., Легкая и пмщевая промышленность , 1984, 245 с . ;

6 Ужанский В. С. Автоматизация холодильных машин и установок . М., Пищевая промышленность, 1973 , 296 с.

7 Приднiпровський науковий вiсник . 1998 №12 (79) .с 32 - 34.

8 Справочник по специальным функциям / Пер. с англ. ; Под ред. М.Абромовица и И.Стиган.- М.; Наука , 1979

Приложение

Исходный текст программы modul

program modul;

uses crt , graph;

const max=5000;{число точек}

h=0.04; {шаг интегрирования}

type work=object

t,tv: array [0..max] of real ;{t-температура,tv- скорость

роста температуры }

t1:real; {постоянная времени}

t2:real; {постоянная времени}

tur:real; {установившаяся температура при ее росте}

tus:real; {установившаяся температура при ее снижении}

maximum,minimum:real; {фактический диапазон регулирования}

period:real; {период колебаний}

File_name:string;{Имя файла данных}

constructor Init ; {инициализация параметров}

procedure save; {запись данных в файл}

procedure count; {расчет переходного процесса методом Рунге-Кутта}

procedure setka_par;

procedure show;{показ графика}

procedure obrob;{обработка результатов расчета}

function f(y,ys,tvar:real):real;

end;

constructor work.init;

var i:integer;

begin

for i:=0 to max do

begin

tv[i]:=0;

t[i]:=0;

end;

clrscr;

write ('Введите постоянную времени Т1=');

readln(t1);

write ('Введите постоянную времени Т2=');

readln(t2);

write ('Введите начальную температуру в камере t0=');

readln(t[0]);

write ('Ввести установившеюся температуру при ее росте ');

readln(tur);

write('Ввести установившеюся температуру при ее снижении ');

readln(tus);

write ('Имя файла данных ');

readln(File_name)

end;

procedure work.save;

var file1:text;

i:integer;

begin

assign(file1,File_name);

rewrite (file1);

writeln(file1,'Исследование двухпозиционной системы регулирования');

writeln(file1,'температуры в холодильной камере');

writeln(file1,'Исходные данные');

writeln(file1,'постоянные времени Т1=',t1,' T2= ',t2);

writeln(file1,'заданный диапазон 0.5-1 градус цельсия');

writeln(file1,'полученный диапазон ',minimum:6:3,'-',maximum:6:3, 'градус цельсия');

writeln(file1,'период колебаний ',period:4:2,' часа');

for i:= 0 to max do

if (i mod 50)=0 then {сохраняется

каждое 50-е значение}

begin write (file1,(i*h):6:4);

write (file1,tv[i]:10:5);

writeln(file1,t[i]:10:5);

end;

close(file1);

end;

procedure work.count;

var

k1,k2,k3,k4:real;

i: integer;

tvar1:real;

rost:boolean ;{флаг состояния работы компрессоров (при rost=false)

компрессоры работают и наоборот}

begin

if t[0] < 0.5 then begin

tvar1:= tur;

rost:= true;

end;

if t[0]>1 then begin

tvar1:=tus; {установка флагов}

rost :=false;

end;

for i:=0 to max-1 do

{длительность переходного процесса max * h = 5000*0.04 =200 часов}

begin

k1:=h*f(t[i],tv[i],tvar1) ;

k2:=h*f(t[i]+(h/2)*tv[i]+(h/8)*k1,tv[i]+k1/2,tvar1);

k3:=h*f(t[i]+(h/2)*tv[i]+(h/8)*k1,tv[i]+k2/2,tvar1);

k4:=h*f(t[i]+h*tv[i]+(h/2)*k3,tv[i]+k3,tvar1);

t[i+1]:=t[i]+h*(tv[i]+(1/6)*(k1+k2+k3));

tv[i+1]:=tv[i]+(1/6)*(k1+2*k2+2*k3+k4);

if (t[i+1]<=0.5) and (rost=false) then

begin

tvar1:=tur;

rost:=true;

end;

if (t[i+1]>=1) and (rost=true) then

begin

tvar1:=tus;

rost:=false;

end;

end;

end;

function work.f(y,ys,tvar:real):real ;

begin

f:=(tvar-y-(t1+t2)*ys)/(t1*t2) ;

end;

procedure StartGraph;

var

Driver, Mode: Integer;

begin

Driver := Detect;

InitGraph(Driver, Mode, '');

Setbkcolor(white);

End;

procedure Setka;

var

i:integer;

begin

ClearViewPort;

setcolor(8);

for i:=0 to 10 do

begin

line(round(GetMaxX*i/10),0,round(GetMaxX*i/10),GetMaxY);

line(0,round(GetMaxY*i/10),GetMaxX,round(GetMaxY*i/10));

end ;

End;

Procedure Work.Setka_par;

Var

I,J:Integer;

St:String;

Jt:real;

dop : integer;

Begin

if t[0]>1 then dop:=0;

if t[0] <0.5 then dop :=-3;

settextstyle(0,1,2);

outtextxy(round(0.05*GetMaxX),round(0.15*GetMaxY),'ТЕМПЕРАТУРА , C');

settextstyle(0,0,1);

for i:=0 to 9 do Begin

jt:=h*max*i/10;

str(jt:3:0,st);

outtextxy(round(GetMaxX*i/10+8),round(GetMaxY/2+8),st)

End;

settextstyle(0,0,2);

outtextxy(round(0.6*GetMaxX),round(0.8*GetMaxY)+5,'Время , час');

settextstyle(0,0,1);

j:=5+dop;

FOR i := 0 to 5 do begin

str(j,st);

outtextxy(5,round(GetMaxY*i/5+4),st) ;

j:=j-1

end;

end;

procedure Work.Show ;

Var i:integer;

msx,msy:real;

dop : integer;

begin

if t[0] >1 then dop:=0;

if t[0] <0.5 then dop :=3;

msx:=GetMaxX/max;

Msy:=GetMaxY/5;

for I:=1 to max do

line (round(msx*(i-1)),

round(GetMaxY-msy*(t[i-1]+dop)),

round(msx*i),

round(GetMaxY-msy*(t[i]+dop)))

end;

procedure work.obrob;

var

i:integer;

begin i:=0;

if t[0] >1 then begin

while tv[i]<=0 do

begin

minimum:=t[i]; {минимум функции}

i:=i+1

end;

period:=i;

while tv[i]>=0 do

begin

maximum :=t[i];

i:=i+1

end ;

while tv[i]<=0 do i:=i+1;

period:=h+(i-period);

Характеристики

Список файлов реферата