Logo GenDocs.ru

Поиск по сайту:  


Загрузка...

Расчетно-графическая работа - Расчет барабанной сушилки - файл 1.doc


Загрузка...
Расчетно-графическая работа - Расчет барабанной сушилки
скачать (79 kb.)

Доступные файлы (1):

1.doc79kb.14.12.2011 07:26скачать

1.doc

Реклама MarketGid:
Загрузка...
Министерство Образования Российской Федерации

Белгородский Государственный Технологический Университет

им. В. Г. Шухова

Кафедра

«Энергетики теплотехнологии»

Курсовая работа


по дисциплине «Информатика»


Выполнил: студент гр. ЭТ-21


Уваров Роман

Проверил: Щетинина И. А.

Белгород 2009 г.

Содержание:


  1. Введение……………………………………………………………….3

  2. Постановка задачи…………………………………………………….4

  3. Спецификация……..……………………………………...…………..5

  4. Текст программы………………………………………..……………7

  5. Результат работы программы………………………………………13

  6. Описание работы программы………………………………………15


Введение
Система программирования Турбо Паскаль была разработана корпорацией Borland , остаётся одной из самых популярных систем программирования в мире.

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

Появление Windows и инструментальных средств Borland Pascal with Objects и Delphi для разработки программ в среде Windows лишний раз показало, какие поистине неисчерпаемые возможности таит в себе Паскаль. Даже, используемый в Delphi язык Object Pascal основывается на Турбо Паскале, и развивают его идеи.

Данной работа призвана проверить навыки работы с языком программирования Паскаль. И ставит задачу написания программы, выводящей массивы вещественных чисел и совершающей различные действия над ними.
^

Постановка задачи:



Рассчитать барабанную сушилку для сушки сульфата аммония в летних условиях работы. Место установки барабана – г. Одесса.

Спецификация подпрограмм:
vilet (процедура)
Заголовок: procedure vilet(str:string; n:byte);
Спецификация:

Назначение: Позволяет анимировать написание строк;

Входные параметры: str, n;

Выходные параметры: нет.


Vibor (процедура)
Заголовок: procedure vibor;
Спецификация:

Назначение: Позволяет выбрать из предложенного закончить или продолжить;

Входные параметры: нет;

Выходные параметры: нет;
zadanie (процедура)
Заголовок: procedure Zadanie;
Спецификация:

Назначение: Вводит исходные данные;

Входные параметры: нет;

Выходные параметры: нет;


titul (процедура)
Заголовок: procedure titul;
Спецификация:

Назначение: Выводит титульный лист и условие задачи;

Входные параметры: нет;

Выходные параметры: нет;

reshenie (процедура)
Заголовок: procedure reshenie;
Спецификация:

Назначение: Вычисляет по заданным формулам;

Входные параметры: нет;

Выходные параметры: нет;


vivod (процедура)
Заголовок: procedure vivod;

Спецификация:

Назначение: Вывод полученных результатов;

Входные параметры: нет;

Выходные параметры: нет;
Глобальные переменные:
G_mk, w_0, w_k, ro_m, ro_nc, c_t, O_o:real;

O_k, K_un, t_0, t_k, t_vx, fi_vx, P, bet_n, bet_m:real;

C_0, C_k, G_t, G_m0, G_un, V_ap, D_ap, l_ap, Pi:real;

q_m, C_gi, a, q_pt, q_c, tay:real;

W, A_v, P_n, X_vx, I_vx, c_g, c_p, r_0, I_0, X_0:real;

tay_cyh, I_pk, I_k,alfa, m, n, k, X_k, S_ap, delta_X:real;

omega, Q_kl, l, t, x, ro, niy, V, delta, V_m:real;

c:byte;

f:text;

Текст программы:

uses crt;

var

G_mk, w_0, w_k, ro_m, ro_nc, c_t, O_o:real;

O_k, K_un, t_0, t_k, t_vx, fi_vx, P, bet_n, bet_m:real;

C_0, C_k, G_t, G_m0, G_un, V_ap, D_ap, l_ap, Pi:real;

q_m, C_gi, a, q_pt, q_c, tay:real;

W, A_v, P_n, X_vx, I_vx, c_g, c_p, r_0, I_0, X_0:real;

tay_cyh, I_pk, I_k,alfa, m, n, k, X_k, S_ap, delta_X:real;

omega, Q_kl, l, t, x, ro, niy, V, delta, V_m:real;

c:byte;

f:text;
procedure vilet(str:string;n:byte);

var

I,j,l:integer;

begin

l:=40 – (length(str) div 2);

gotoxy(l,n);

for I:=1 to length(str) do

begin

write(str[I]);

delay(3000);

end;

end;
procedure vibor;

begin

repeat

c:=ord(readkey);

if c=27 then halt else if c=32 then clrscr;

until (c=27) or (c=32);

end;
procedure Zadanie;

begin

textcolor(3);

vilet('Производительность по готовому продукту G(м.к),кг/ч : ',3);

read(G_mk);

vilet('Начальная влажность материала w(0),% : ',4);

read(w_0);

vilet('Конечная влажность продукта w(k),% : ',5);

read(w_k);

vilet('Средняя плотность продукта ro(m),кг/м3: ',6);

read(ro_m);

vilet('Насыпная плотность продукта (среднее значение) ro(н.с.), кг/м3 : ',7);

read(ro_nc);

vilet('Теплоемкость сернокислого аммония с(т), кДж/(кг*К) : ',8);

read(c_t);

vilet('Начальная температура материала О(о), С : ',9);

read(O_o);

vilet('Конечная температура материала О(к), С : ',10);

read(O_k);

vilet('Унос высушенного продукта из барабана К(ун), % : ',11);

read(K_un);

vilet('Температура воздуха, С : ',12);

vilet('Начальная t(о) : ',13);

read(t_0);

vilet('Конечная t(о) : ',14);

read(t_k);

vilet('Температура наружного воздуха t(вх), С : ',15);

read(t_vx);

vilet('Относительная влажность наружного вохдуха Фи(вх), : ',16);

read(fi_vx);

vilet('Барометрическое давление Р, кПа : ',17);

read(P);

vilet('Коэффициент заполнения барабана : ',18);

vilet('насадкой bet(н) : ',19);

read(bet_n);

vilet('материалов bet(м) : ',20);

read(bet_m);

vilet('Напряжение рабочего объема барабана по испарившейся влаге А(v), кг/(м3*ч) : ',21);

read(A_v);

vilet('Материал : Мелкий, кристалический',22);

vilet('Сушилка : Прямоточная',23);

vilet('Система насадки : Распределительная',24);

end;
procedure titul;

var c:word;

begin

textcolor(6);

vilet('Министерство образования Российской Федерации',1);

vilet('Белгороский Государственный Технологический Университет',2);

vilet('им. В. Г. Шухова',3);

vilet('Кафедра Энергетики теплотехнологий',5);

vilet('Курсовая работа',8);

vilet('Выполнил: Уваров Роман Владимирович',13);

vilet('Белгород 2004 г.',20);

textcolor(4);

vilet('Для продолжения нажмите SPACE, для выхода ESC',25);

vibor;

textcolor(4);

vilet(‘ЗАДАНИЕ :’,2);

textcolor(6);

vilet('Рассчитать барабанную сушилку для сушки сульфата аммония',4);

vilet('в летних условиях работы.',5);

vilet('Место установки барабана – г. Одесса',7);

textcolor(4);

textcolor(4);

vilet('Для продолжения нажмите SPACE, для выхода ESC',23);

vibor;
end;
procedure reshenie;

begin

C_0:=w_0/(100-w_0);

C_k:=w_k/(100-w_k);

G_t:=3280;

W:=120;

G_m0:=3420;

G_un:=(K_un/100)*G_mk;

V_ap:={W/A_v}12;

D_ap:=1600;

l_ap:=6000;

Pi:=3.14;

A_v:=W/V_ap;

p_n:=2.64;

X_vx:=0.622*fi_vx*p_n/(P-fi_vx*p_n);

c_g:=1.006; c_p:=1.965; r_0:=2495;

I_vx:=c_g*t_vx+(r_0+c_p*t_vx)*X_vx;

X_0:=X_vx;

I_0:=c_g*t_0+(r_0+c_p*t_0)*X_0;

c_gi:=4.187; C_0:=0.0412; C_k:=0.0046;

q_m:=((c_t+c_gi*C_k)*(O_k-O_o))/(C_0-C_k);

a:=4187;

q_c:=(a/2)*(C_0-C_k);

q_pt:=125;

delta:=c_gi*O_o-(q_m+q_c+q_pt);

I_pk:=r_0+c_p*t_k;

I_k:=(c_g*t_k*delta+I_pk*(X_0*delta-I_0))/(delta-I_pk);

X_k:=(I_k-I_0)/delta+X_0;

delta_X:=X_k-X_0;

Q_kl:=((I_0-I_vx)/delta_X)*W;

L:=W/delta_X;

t:=90; x:=0.018; ro:=0.945; niy:=0.0000224;

V:=L*(1+x)/ro;

tay_cyh:=(120*bet_m*ro_nc*(w_0-w_k))/(A_v*(200-(w_0-w_k)));

V_m:=(G_m0+G_mk-G_un)*tay_cyh/(2*ro_nc*60);

alfa:=3; m:=1; k:=0.7; l_ap:=6;

n:= (m*k*l_ap)/(tay_cyh*(D_ap/1000)*(sin(alfa)/cos(alfa)));

S_ap:=3600*3.14*1.6*1.6;

omega:=4*V/(S_ap*(1-bet_m-bet_n));

end;
procedure vivod;

var

ch:char;

begin

assign(f,’prn’);

rewrite(f);

writeln(' Вывести данные на экран, или на принтер y/n');

ch:=readkey;

if (ch=’y’) or (ch=’Y’) then

begin

textcolor(5);

writeln('Пересчитаем влагосодержание материала:');

writeln(‘ C(0)=’,C_0:2:4,’ кг/кг’);

writeln(‘ C(k)=’,C_k:2:4,’ кг/кг’);

writeln(‘ G(т)=’,G_t:2:1,’ кг/ч’);

writeln(‘ W=’,W:2:1,’ кг/ч’);

writeln(‘ G(м0)=’,G_m0:2:1,’ кг/ч’);

writeln('Унос материала из сушилки с отработанным воздухом:');

writeln(‘ G(ун)=’,G_un:2:1,’ кг/ч’);

writeln('Уточняем объем выбранного барабана:');

writeln(‘ V(ап)=’,V_ap:2:1,’ м3’);

writeln('Напряжение объема барабана по испарившейся влаге:');

writeln(‘ A(в)=’,A_v:2:1,’ кг/(м3*ч)’);

textcolor(4);

vilet('Для продолжения нажмите SPACE, для выхода ESC',25);

vibor;

textcolor(5);

writeln('Влагосодержание воздуха поступающего в калорифер:');

writeln(‘ X(вх)=’,X_vx:2:4,’ кг/кг’);

writeln('Энтальпия наружного воздуха:');

writeln(‘ I(вх)=’,I_vx:2:1,’ кДж/кг’);

writeln('Найдем энтальпию нагретого воздуха на входе в сушилку:');

writeln(‘ I(0)=’,I_0:2:1,’ кДж/кг’);

writeln('Удельный расход тепла на нагрев высушиваемого материала:');

writeln(' q(м)=',q_m:2:1,' кДж/кг');

writeln('Удельный расход тепла на компенсацию энергии связи влаги с материалом:');

writeln(' q(с)=',q_c:2:1,' кДж/кг');

writeln('Удельные тепловые потери:');

writeln(' q(пт)=',q_pt:2:1,' кДж/кг');

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

writeln(‘ delta=’,delta:2:1,’ кДж/кг’);

writeln('Энтальпия пара при конечной температуре:');

writeln(‘ I(п.к.)=’,I_pk:2:1,’ кДж/кг’);

writeln('Конечная энтальпия влажного воздуха:');

writeln(‘ I(k)=’,I_k:2:1,’ кДж/кг’);

writeln('Конечное влагосодержание воздуха:');

writeln(‘ X(k)=’,X_k:2:4,’ кг/кг’);

writeln(‘ delta_X=’,delta_X:2:4,’ кг/кг’);

textcolor(4);

vilet('Для продолжения нажмите SPACE, для выхода ESC',25);

vibor;

textcolor(5);

writeln('Расход тепла в калорифере:');

writeln(' Q(кл)=',Q_kl:2:1,' кДж/кг');

writeln('Расход воздуха:');

writeln(‘ L=’,L:2:1,’ кг/ч’);

writeln('Объемный расход воздуха:');

writeln(‘ V=’,V:2:1,’ м3/ч’);

writeln('Время сушки определим по формуле');

writeln(‘ tay(суш)=’,tay_cyh:2:1,’ мин’);

writeln('Объем материала, находящегося в барабане:');

writeln(‘ V(м)=’,V_m:2:1,’ м3’);

writeln('Скорость вращения барабана:');

writeln(‘ n=’,n:2:1,’ об/мин’);

writeln('Скорость воздуха в свободном сечении:');

writeln(‘ omega=’,omega:2:3,’ м/с’);

textcolor(4);

vilet('Для повтора нажмите SPACE, для выхода ESC',25);

vibor;

textcolor(5);

end

else if (ch=’n’) or (ch=’N’) then

begin

writeln(f,'Пересчитаем влагосодержание материала:');

writeln(f,’ C(0)=’,C_0:2:1,’ кг/кг’);

writeln(f,’ C(k)=’,C_k:2:1,’ кг/кг’);

writeln(f,’ G(т)=’,G_t:2:1,’ кг/ч’);

writeln(f,’ W=’,W:2:1,’ кг/ч’);

writeln(f,’ G(м0)=’,G_m0:2:1,’ кг/ч’);

writeln(f,'Унос материала из сушилки с отработанным воздухом:');

writeln(f,’ G(ун)=’,G_un:2:1,’ кг/ч’);

writeln(f,'Уточняем объем выбранного барабана:');

writeln(f,’ V(ап)=’,V_ap:2:1,’ м3’);

writeln(f,'Напряжение объема барабана по испарившейся влаге:');

writeln(f,’ A(в)=’,A_v:2:1,’ кг/(м3*ч)’);

writeln(f,'Влагосодержание воздуха поступающего в калорифер:');

writeln(f,’ X(вх)=’,X_vx:2:4,’ кг/кг’);

writeln(f,'Энтальпия наружного воздуха:');

writeln(f,’ I(вх)=’,I_vx:2:1,’ кДж/кг’);

writeln(f,'Найдем энтальпию нагретого воздуха на входе в сушилку:');

writeln(f,’ I(0)=’,I_0:2:1,’ кДж/кг’);

writeln(f,'Удельный расход тепла на нагрев высушиваемого материала:');

writeln(f,' q(м)=',q_m:2:1,' кДж/кг');

writeln(f,'Удельный расход тепла на компенсацию энергии связи влаги с материалом:');

writeln(f,' q(с)=',q_c:2:1,' кДж/кг');

writeln(f,'Удельные тепловые потери:');

writeln(f,' q(пт)=',q_pt:2:1,' кДж/кг');

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

writeln(f,’ delta=’,delta:2:1,’ кДж/кг’);

writeln(f,'Энтальпия пара при конечной температуре:');

writeln(f,’ I(п.к.)=’,I_pk:2:1,’ кДж/кг’);

writeln(f,'Конечная энтальпия влажного воздуха:');

writeln(f,’ I(k)=’,I_k:2:1,’ кДж/кг’);

writeln(f,'Конечное влагосодержание воздуха:');

writeln(f,’ X(k)=’,X_k:2:1,’ кг/кг’);

writeln(f,’ delta_X=’,delta_X:2:4,’ кг/кг’);

writeln(f,'Расход тепла в калорифере:');

writeln(f,' Q(кл)=',Q_kl:2:1,' кДж/кг');

writeln(f,'Расход воздуха:');

writeln(f,’ L=’,L:2:1,’ кг/ч’);

writeln(f,'Объемный расход воздуха:');

writeln(f,’ V=’,V:2:1,’ м3/ч’);

writeln(f,'Время сушки определим по формуле');

writeln(f,’ tay(суш)=’,tay_cyh:2:1,’ мин’);

writeln(f,'Объем материала, находящегося в барабане:');

writeln(f,’ V(м)=’,V_m:2:1,’ м3’);

writeln(f,'Скорость вращения барабана:');

writeln(f,’ n=’,n:2:4,’ об/мин’);

writeln(f,'Скорость воздуха в свободном сечении:');

writeln(f,’ omega=’,omega:2:3,’ м/с’);

close(f);

end;

end;


begin

clrscr;

titul;

repeat

vilet('ИСХОДНЫЕ ДАННЫЕ :',1);

Zadanie;

textcolor(4);

vilet('Для продолжения нажмите SPACE, для выхода ESC',25);

vibor;

reshenie;

vivod;

until c=27;

readkey;

end.

Результат работы программы:

^ ИСХОДНЫЕ ДАННЫЕ :
Производительность по готовому продукту G(м.к),кг/ч : 3300

Начальная влажность материала w(0),% : 4

Конечная влажность продукта w(k),% : 0.46

Средняя плотность продукта ro(m),кг/м3: 1750

Насыпная плотность продукта (среднее значение) ro(н.с.), кг/м3 : 820

Теплоемкость сернокислого аммония с(т), кДж/(кг*К) : 1.47

Начальная температура материала О(о), С : 22.6

Конечная температура материала О(к), С : 60

Унос высушенного продукта из барабана К(ун), % : 10

Температура воздуха, С :

Начальная t(о) : 120

Конечная t(о) : 60
^

Температура наружного воздуха t(вх), С : 22.6


Относительная влажность наружного вохдуха Фи(вх), : 0.61

Барометрическое давление Р, кПа : 99.3

Коэффициент заполнения барабана :

насадкой bet(н) : 0.05

материалов bet(м) : 0.2

Напряжение рабочего объема барабана по испарившейся влаге А(v), кг/(м3*ч) : 11

Материал : Мелкий, кристалический

Сушилка : Прямоточная

Система насадки : Распределительная




Результат:
Пересчитаем влагосодержание материала:

C(0)=0.0412 кг/кг

C(k)=0.0046 кг/кг

G(т)=3280.0 кг/ч

W=120.0 кг/ч

G(м0)=3420.0 кг/ч

Унос материала из сушилки с отработанным воздухом:

G(ун)=330.0 кг/ч

Уточняем объем выбранного барабана:

V(ап)=12.0 м3


Напряжение объема барабана по испарившейся влаге:

A(в)=10.0 кг/(м3*ч)

Влагосодержание воздуха поступающего в калорифер:

X(вх)=0.0103 кг/кг

Энтальпия наружного воздуха:

I(вх)=48.8 кДж/кг

Найдем энтальпию нагретого воздуха на входе в сушилку:

I(0)=148.7 кДж/кг

Удельный расход тепла на нагрев высушиваемого материала:

q(м)=1521.8 кДж/кг

Удельный расход тепла на компенсацию энергии связи влаги с материалом:

q(с)=76.6 кДж/кг

Удельные тепловые потери:

q(пт)=125.0 кДж/кг

Изменение потенциала воздуха относительно испарившейся влаги равно:

delta=-1628.8 кДж/кг

Энтальпия пара при конечной температуре:

I(п.к.)=2612.9 кДж/кг

Конечная энтальпия влажного воздуха:

I(k)=125.1 кДж/кг

Конечное влагосодержание воздуха:

X(k)=0.0248 кг/кг

delta_X=0.0145 кг/кг

Расход тепла в калорифере:

Q(кл)=826284.8 кДж/кг

Расход воздуха:

L=8267.2 кг/ч

Объемный расход воздуха:

V=8905.9 м3/ч

Время сушки определим по формуле

tay(суш)=35.5 мин

Объем материала, находящегося в барабане:

V(м)=2.3 м3

Скорость вращения барабана:

n=1.5 об/мин

Скорость воздуха в свободном сечении:

omega=1.641 м/с

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


Скачать файл (79 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации
Рейтинг@Mail.ru