Главная Коллекция "Otherreferats" Производство и технологии Камерная нагревательная печь

Камерная нагревательная печь

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

Рубрика	Производство и технологии
Вид	курсовая работа
Язык	русский
Дата добавления	23.04.2014
Размер файла	172,5 K

посмотреть текст работы

скачать работу можно здесь

полная информация о работе

весь список подобных работ

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

bp(i)=(f(i)+c(i)*al1*tg1*dx/(1.5*fl0*(1.+p1*(t(i+1,j)+

*t(i,j))/2.+p2*((t(i+1,j)+t(i,j))/2.)**2)+al1*dx))/(b(i)-

*2.*c(i)*fl0*(1.+p1*(t(i+1,j)+t(i,j))/2.+p2*((t(i+1,j)+

*t(i,j))/2.)**2)/(1.5*fl0*(1.+p1*(t(i+1,j)+t(i,j))/2.+

*p2*((t(i+1,j)+t(i,j))/2.)**2)+al1*dx))

40 do 11 i=3,n1

ap(i)=a(i)/(b(i)-c(i)*ap(i-1))

bp(i)=(c(i)*bp(i-1)+f(i))/(b(i)-c(i)*ap(i-1))

11 continue

c write (6,12)(ap(i),i=2,n1),(bp(i),i=2,n1)

12 format (2x,3e16.7)

c write (6,13)

c 13 format('ОБРАТНАЯ ПРОГОНКА')

C 3. ОБРАТНАЯ ПРОГОНКА

if(kt2-1) 14,27,14

14 if(kt2-2)17,16,17

16 q2=a0+a1*fo**(1./2.)+a2*fo

t(n,j+1)=(2.*(a0+a1*fo**(1./2.)+a2*fo)*dx/(fl0*(1.+p1*(

*t(n,j)+t(n-1,j))/2.+p2*((t(n,j)+t(n-1,j))/2.)**2))+4.*bp(n-1)

*-ap(n-2)*bp(n-1)-bp(n-2))/(3.-4.*ap(n-1)+ap(n-2)*ap(n-1))

goto 15

17 if(fo-fon) 44,44,45

44 tg2=tg2+bg2*dfo

al2=al2+b2*dfo

go to 46

45 tg2=tg2+bgk2*dfo

al2=al2+bk2*dfo

46 t(n,j+1)=(fl0*(1.+p1*(t(n,j)+t(n-1,j))/2.+p2*((t(n,j)+

*t(n-1,j))/2.)**2)*(2.*bp(n-1)-.5*ap(n-2)*bp(n-1)-.5*

*bp(n-2))+al2*tg2*dx)/(fl0*(1.+p1*(t(n,j)+t(n-1,j))/2.+

*p2*((t(n,j)+t(n-1,j))/2.)**2)*(1.5-2.*ap(n-1)+.5*ap(n-2)*

*ap(n-1))+al2*dx)

go to 15

27 t(n,j+1)=t2+h3*fo+h4*fo**2

15 i=n

18 t(i-1,j+1)=ap(i-1)*t(i,j+1)+bp(i-1)

i=i-1

if (i-2) 19,19,18

19 continue

if (kt1-2) 22,20,21

20 t(1,j+1)=4.*t(2,j+1)/3.-t(3,j+1)/3.+q1*dx/(1.5*fl0*(1.+

*p1*(t(2,j)+t(1,j))/2.+p2*((t(2,j)+t(1,j))/2.)**2))

go to 22

21 t(1,j+1)=(al1*tg1*dx+fl0*(1.+p1*(t(2,j)+t(1,j))/2.+p2*

*((t(2,j)+t(1,j))/2.)**2)*(2.*t(2,j+1)-.5*t(3,j+1)))/(1.5

**fl0*(1.+p1*(t(2,j)+t(1,j))/2.+p2*((t(2,j)+t(1,j))/2.)

***2)+al1*dx)

22 k1=k1+1

if (k1-k) 35,34,34

34 write (6,36)fo,tg2,tg1,t2

36 format ('fo=',e10.4,3x,'tg2=',e10.4,3x,'tg1='e10.4,3x,

*'t2=',e10.4)

write (6,51)t1,al1,al2,q1,q2

51 format('t1=',e10.4,3x,'al1=',e10.4,3x,'al2=',

*e10.4,3x,'q1=',e10.4,3x,'q2=',e10.4)

write (6,100)

100 format (20x,'ТЕМПЕР-НОЕ ПОЛЕ ПЛАСТИНЫ В N УЗЛАХ РАСЧЕТН. СЕТКИ')

write (6,23)(t(i,2),i=1,n)

23 format (2x,3e16.7)

k1=0

35 fo=fo+dfo

if (fo-fok) 28,28,25

28 do 29 i=1,n

29 t(i,1)=t(i,2)

go to 24

25 write (6,101)

101 format(20x,'ТЕМПЕРАТУРНОЕ ПОЛЕ В N УЗЛАХ В КОНЦЕ НАГРЕВА')

write (6,26)(t(i,2),i=1,n)

26 format (2x,4e16.7)

close(6)

stop

end

Приложение 4

Результат в файле ROL1.wrf

ПРОГРАММА OL1

7 2 3 4

.5400000E+04 .1030000E+03 .2000000E-01 .7630000E+02

-.1100000E-02 .5400000E-06 .0000000E+00 .2930000E+03

.1287000E+04 .3128000E+07 .1668000E+04 .5806000E+07

-.4300000E+03 .2930000E+03 .0000000E+00 .0000000E+00

.2930000E+03 .0000000E+00 .0000000E+00 .0000000E+00

.0000000E+00 .0000000E+00 .0000000E+00 .0000000E+00

.0000000E+00 .5400000E+04 .0000000E+00 .0000000E+00

.0000000E+00 .0000000E+00 .0000000E+00 .0000000E+00

.2667400E+03 .8500000E-01 .0000000E+00 .1546000E+04

.0000000E+00 .0000000E+00

fo= .4120E+03 tg2= .1546E+04 tg1= .0000E+00 t2= .2930E+03

t1= .2930E+03 al1= .0000E+00 al2= .3018E+03 q1= .0000E+00 q2= .0000E+00