Программа для расчета кинетических параметров термопревращений древесных препаратов

//MSKT JOB 3241,

//’ЗАКАЗЧИК’, MSGLEVEL=(2,0), CLASS=B

//ЕХЕС FORTGCLG, REGION, FORT=100K, REGION. GO=50K

//SYSIN DD*

DIMENSION X2(80.2). Yl (80.2). FRO IZB(80), PIIOIZI (80), X1 (80),

Y(80),

*NAME (20)

REAL LOGPR (80), LOGMW (80), MW (80), X(80), Т(80), MAXT, INTER,

*COEFF, MAXPR, MAXMW

INTEGER RAZ

10 FORMAT (3X,84('-')11X, 'НАИМЕНОВАНИЕ ОБРАЗЦА', IX, ‘Т H. P., TMAX.’,

*1Х, 'V МАХ, ', 3Х, 'N', 2Х, 'Е АКТ., ', 4Х, 'АО', 9Х, 'НОМЕР’ */34Х, 'С’, 6Х, 'С’, 4Х, ‘ГРАД/МГ’', 5Х, 'КДЖ/МОЛЬ'/ЗХ.84 ('-')) READ (5,20) NAME

20 FORMAT (20A4)

WRITE (6,25) NAME

25 FORMAT (2X.3(/2X, 110 ('*')), /2X, 'NAME:', 20A4)

READ (5.30) RAZ, INTER

30 FORMAT (12, F5.0)

WRITE (6,35) RAZ, INTER

35 FORMAT (2X, 'RAZ, INTER; ', 12, F10.3)

READ (5.40) (T(J), J=1, RAZ)

40 FORMAT (13F6.0)

WRITE (6.45) (T (J), J=1, RAZ)

45 FORMAT (2X, 'T(J)', 13F6.1)

READ (5.40) (MW(J), J=1, RAZ)

WRITE (6.55) (MW(J), J=1, RAZ)

55 FORMAT (2X, 'MW(J)', 13F6.1)

WRITE (6.10)

CALL DET3 (INTER, MW, PROIZB, RAZ, IER)

K=RAZ—2

DO 60 I=1, К

PROIZ1 (I)=ABS (PROIZB(I + 1))

LOGPR (I)ALOG (PROIZ1 (I))*0.43429

60 LOGMW (I)=ALOG (MW(I+ I ))*0.43429

L=1

M=K-1

DO 90 I1, M

IF (PROIZ1(L)-PROIZ1(I+1)) 80,70,70

70. MAXPR=PROIZ1(L)

GOTO 90

80 MAXPR=PROIZ1(I+1)

L=I+1

90. CONTINUE

T(H)=T(I)-273

MAXT=T(L+1)-273

MAXMW=MW(L+1)

COEFF=MAXMW/(MAXPR*MAXT*MAXT)

DO 100 I=1, K

X(I)=COEFF*LOGMW(I)-1.0/(2,3*T(I+1)

100. CONTINUE

DO 120 I=1,K

IF ((I+1)-L) 110,110,130

110. X1(I)=X(I+1)* 10**4

Y(I)=LOGPR(I+1)

120. CONTINUE

130. CALL MKBAD (X1,Y,A0,A1,L)

WRITE (6,140) NAME

140. FORMAT (3X,20A4)

PORR=A1*COEFF*10**4

K=K-3

DO 150 I=1, K

Y(I)=A1*X1(I)+A0

X2(I,1)=X1(I)

X2(I,2)=X1(I)

J=I+1

Y1(I,1)+LOGPR(J)

Y1(I,2)=Y(I)

150. CONTINUE

EA=A1*84

WRITE (6,160) T(H), MAXT, MAXPR, PORR, EA, A0

160 FORMAT (32X,F5.1,2X,F5.1,3X,F4.1,2X,F4.1,1X,F5.1,G14,3)

WRITE (6,170)

170. FORMAT (3X, 74(‘=’)/3X,’ПРИМЕНЕНИЕ: ‘/3X,

*’Т.Н.Р.-ТЕМПЕРАТУРА НАЧАЛА РАЗЛОЖЕНИЯ,’

*/3X,’T MAX – МАКСИМАЛЬНАЯ ТЕМПЕРАТУРА РАЗЛОЖЕНИЯ,’

*/3X,’V MAX – МАКСИМАЛЬНАЯ СКОРОСТЬ РАЗЛОЖЕНИЯ,’

*/3X,’N – ПОРЯДОК РЕАКЦИИ,’/3X, ‘E АКТ.- ЭНЕРГИЯ АКТИ- ВАЦИИ,

*/3X, ‘A0 – ПРЕДЭКСПОНЕНЦИАЛЬНЫЙ МНОЖИТЕЛЬ)

STOP

END

SUBROUTINE. MKBAD(X1, Y, A0, A1, L)

DIMENSION X1(L), Y(L)

C0=0

C1=0

C2=0

D0=0

D1=0

M=L-1

D0 10 I=1, M

J=I

K=J-1

C0=C0+X1(I)**K

C1=C1+X1(I)

C2=C2+X1(I)*X1(I)

D0=D0+Y(I)*(X1(I)**K)

D1=D1+Y(I)*X1(I)

CONTINUE

A1=(D1-C1*D0/C0)/(C2-C1*C1/C0)

A0=(D0-C1*A1)/C0

RETURN

END

//LKED, SYSLIB DO DSNAME=SYS1. FORTLIB, DISP=SHR

//DD DSN=SYS1, SSPLIB, DISP=SHR

//GO, SYSIN DD*

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

1. Атлас ультраструктуры древесных полуфабрикатов, применяемых для производства бумаги / Под ред. Н. П. Зотовой-Спановской.— М.: Лесная промышленность, 1984.—232 с.

2. Ахмазарова С. Л., Кафаров В. В. Оптимизация эксперимента в химии и химической технологии.— М.: Высшая школа, 1978.-319 с.

3. Вехов В. Н., Лотова Л. И., Филин В. Р. Практикум по анатомии и морфологии высших растений.— М.: Изд-во МГУ, 1980. —192 с.

4. Диагностические признаки древесины и целлюлозных волокон (атлас) /Под ред. Г. М. Козубова, Н. П. Зотовой-Спановской.— Петрозаводск: Карельский филиал АН СССР, 1976.— 152 с.

5. Емельянова И. 3. Химико-технический контроль гидролизного производства.— М.: Лесная промышленность, 1976.—322 с.

6. Жданов Ю. А., Дорофеенко Г. Н., Корольченко Г. А. и др. Практикум по химии углеводов.— М.: Высшая школа, 1973. —179 с.

7. Закис Г. Ф. Функциональный анализ лигнинов и их производных.— Рига: Зинатне, 1987.—230 с.

8. Кларк Дж. Технология целлюлозы. Пер. с англ.— М.: Лесная промышленность, 1983.—456 с.

9. Костикова Е. М., Могилевский Е. И. Исследование полидисперсности целлюлозы методом дробного осаждения в кадмийэтилендиаминовом комплексе //Химические волокна, 1968.— № 6. —С. 31—36.

10. Леонович А. А. Основы научных исследований в химической пере- работке древесины.— Л.: Изд-во ЛТА, 1982.—56 с.

11. Лигнины. Пер. с англ. /Под ред. К. В. Сарканена, К. X. Люд- вига.— М.: Лесная промышленность, 1975.—632 с.

12. Методы исследования целлюлозы /Под ред. В. П. Карливана.— Рига: Зинатне, 1981.—258 с.

13. Можейко Л. Н., Яунземс В. Р. Полумикрометод определения цел- люлозы и пентозанов в древесине //ЖАХ, 1957.— Т. XII.— Выпуск. 2.— С. 259—262.

14. Никитин Н. И. Химия древесины и целлюлозы.— М.— Л.: Изд-во АН СССР, 1962.—711 с.

15. Никитин В. М., Оболенская А. В., Щеголев В. П. Химия древесины и целлюлозы.— М.: Лесная промышленность, 1978.—368 с.

16. Оболенская А. В., Щеголев В. П., Аким Г. Л. и др. Практические работы по химии древесины и целлюлозы.— М.: Лесная промышленность, 1965.—412 с.

17. Правдин П. В. Лабораторные приборы и оборудование из стекла и фарфора.— М.: Химия, 1988.—332 с.

18. Правилова Т. А. Химический контроль производства сульфатной целлюлозы.— М.: Лесная промышленность, 1984.—256 с.

19. Прокопчук Н. Р. Определение энергии активации деструкции поли- меров по данным динамической термогравиметрии //Пластические массы.— 1984.— № 10.— С. 24—25.

20. Резников В. М., Матусевич Л. Г., Селиверстова Т. С. Сравнение кальций-пектатного и спектрофотометрического методов анализа пектиновых веществ //Химия древесины.—1982.—№ 2.-- С. 108-113.

21. Рихтер Н. Е., Аким Г. Л., Никитин В. М. К сравнению методов Саболкса и гидроксиламинового для определения малых количеств карбо-

нильных групп в вискозных целлюлозах //ЖПХ, 1965,-- T: XXXVIII №8 –С. 1848-1853

22. Роговин 3, А. Химия целлюлозы, --М.: Химия, 1972,-- 520 с.

23. Стеновая Л. П., Холькин Ю. И. Гаэожидкостная хроматография моносахаридов в виде их триметиленлнльиых производных //Сб.: Хроматогра- фический анализ к химии древесины.--Рига: Зииатне, 1975,— С. 18—30.

24. Фенгел Д., Вегенер Г. Древесина. Химия, ультраструктура, реакции, Пер, с англ.— М,: Лесная промышленность, 1988,—512 с.

25. Холькнн Ю. И. Хроматография н химии древесины,—М,: Лесная про- мышленность, 1976,-228 с.

26. Целлюлоза и ее производные. Пер. с англ. /Под ред. И. Байклза. Л. Сегала,— М.: Мир, 1974.— Т. I,—500 с., Т. 2-510 с.

27. Шарков В. И., Куйбнна Н. И. Химия гемицеллюлоз,—М.: Лесная промышленность, 1972.—440с.

28. Шарков В. И., Куйбина Н. И., Соловьева Ю. П. и др. Количествен- ный химический анализ растительного сырья.— М.: Лесная промышленность, 1976. —72 с.

29. Экстрактивные вещества древесины и значение их в целлюлозно- бумажном производстве. Пер. с англ. /Под. ред. В. Э. Хиллиса,—М.: Лесная промышленность, 1965.—505 с.

30. Browning В. L. Methods of wood chemistry.— N. Y.: Interscience Publishers, 1967.—Vol. 1,11—863 p.

31. Lindberg В., Theander O. Quantitative determination of carbonyl groups in oxycellulose by means of Sodium borohydride //Svensk Papperstid- ning. —1981.— bd 57.— P. 83—85.

32. Sihtola H., Laamanen I. Molecular fractionation of cellulose in the solvent Cadoxen //Paperi ja Puu, 1964.—№ 6.—P. 6—7.

33. Sjostrom E., Enstrom B. Spectrophotometric determination of the residual lignin in pulp after dissolution in Cadoxen //Svensk Papperstid- ning.—1966.— bd. 69.—№ 15.— P. 469—476.