Пиротехническая химия
Главная Начинающим пиротехникам Статьи Добавить статью Добавить материалы на сайт Поиск по сайту Карта книг Карта сайта
Книги в помощь
Военная история Изготовление и применение ВВ Пиротехника в военном деле Разное по пиротехнике Физика в пиротехнике Химия ВВ и составов
Новые книги
Суворов С. "Бронированная машина пехоты БМП -3 часть 1" (Военное дело)

Яковлев Г.П. "122 мм самоходная пушка образца 1944 г." (Военное дело)

Суарес Г. "Тактическое преимущество " (Военное дело)

Стодеревский И.Ю. "Автобиография записки офицера спецназа ГРУ " (Военное дело)

Семиколенков Н.П. "стрельба из танковых пулеметов " (Военное дело)
Применение ЭВМ для термодинамических расчетов металлургических процессов - Синярев Г.Б.
Синярев Г.Б., Ватолин Н.А., Трусов Б.Г., Моисеев Г.К. Применение ЭВМ для термодинамических расчетов металлургических процессов . Под редакцией Щепкин А.А. — М.: Наука, 1982. — 267 c.
Скачать (прямая ссылка): primenenevm1982.djvu
Предыдущая << 1 .. 85 86 87 88 89 90 < 91 > 92 93 94 95 96 97 .. 103 >> Следующая

* W/1000.
39 SS(IK+350,J,3)=
* SS(IK+350,J,2) GO TO 200
c****
40 II (NM(I,3).EQ.6)
* GO TO 45 DO 41 J=I1NW AA(J)=EXP(TS(IMA1J))*
* AA(J)
II (AA(J).LE.1E-20)
* AA(J)=O.
41 CONTINUE
II (KDR(4).EQ.1) GO TO 43
DO 42 J=1,NW
II (TS(IMA1J).GE.-1E+3)
* GO TO 43
42 CONTINUE GO TO 200
43 IMI=IMI + ! NSS(IM1+450, I)=NM(I1D NSS(IM1+450,2)=NM(I,2) DO 44 J=I1NW SS(Dd1+450, J1D=AA(J) SS(IM1+450,J,4)=AA(J)*
* .602217E+18/G2(3,J) CALL MMASS (NM(I,1),
* NM(I,2),W)
II (G2(19,J)) 431 ,431 ,432 431 SS(IM1+450,J,2)=0.
SS(IM1+450,J,3)=0.
GO TO 44 4 32 SS(IM1+450,J,2)=AA(J)*
* W/(1000.*G2(19,J)) SS(IM1+450,J,3)=AA(J)/
* EXP(TS(IMA1J))
44 CONTINUE GO TO 200
C»***
45 DO 46 J=I,NW
AA(J)=EXP(TS( 1MB,J))*
* AA(J)
II (AA(J).LE.1E-20)
* AA(J)=O.
46 CONTINUE
II (KDRU) .EQ.D GO TO 48
DO 47 J=1,NW
II (TS(IMB1J).GE.-1E+3)
* GO TO 48 4 7 CONTINUE
GO TO 200 48 IM2=IM2+1
NSS(IM2+470,1)=NM(I,1)
222
NSS(IM2+470,2)=NM(I,2) D049 <Ы,NW SS(IM2+470, J, D=AA(J) SS(IM2+470,J,4)=AA(J)*
* .602217E+18/G2(3,J) CALL WASS (NM(IJ)9
* NM(I,2),W)
IF (G2(20,J)) 481,481,482
481 SS(IM2+470,J,2)=0, SS(IM2+470,J,3)=0. GO TO 49
482 SS(IM2+470,J,2)=AA(J)*
* W/(1000.*G2(20,J)) SS(IM2+470,J,3)=AA(J)/
* EXP(TS(IMB,J))
49 C(KTINUE 200 CONTINUE
C*«**
DO 87 1=1,4
IF (KDR(I+7).EQ.O)
* GO TO 87 DO 50 J=I ,7 RS(J)=R2(24) RT(J)=R2(J+12)
50 RU(J)=R2(24) RT(7) = R2(12) DO 51 J=1,3 RS(J)=R2(J)
51 HU(J)=R2(J+9)
IF (I.NE.1) GO TO 53 DO 52 J=I ,7 RT(J) = RS(J)
52 RU(J)=RS(J) GO TO 59
53 IF (I.NE.4) GO TO 55 DO 54 J=I,7 RS(J)=RU(J)
54 RT(J)=HJ(J) GO TO 59
55 IF (I.NE.2) GO TO 57 DO 56 J=I,3 RU(J)=RT(J) RU(J+3)=R2(J+18)
56 RS(J)=R2(J+3) RU(6)=R2(12)
RS(3)=R2(24) RU(7)=R2(24) IF (KDR(2).EQ.1) » RS(1)=R2(6) GO TO 59
5 7 DO 58 J=1,3
RS(J)=R2(J+6)
58 RU(J)=R2(J+20) RU(4)=R2(15) RU(5)=R2(19) RU(6)=R2(20) RU(7)=R2(12)
C**»»
59 IRT=O IGA=O IKA=O IMA=O IMB=O
C**»*
60 PRINT 101 PRINT 102
61 IF (IRT) 62,62,63
62 PRINT 106, A(33) fA(33) GO TO 64
6 3 PRINT 108, IRT
64 Z1=A(3D Z2=A(33) IRT= IRT+1 NK=NC(9)
DO 67 LI=I,2
KI=K(LD
DO 65 J=1,63
65 G3(J)=A(33) DO 66 J=I,NK
CALL RECODE (G2(K1 ,J) ,Gl) DO 66 K2=1,9 K3=(J-1)*9+K2
66 G3(K3)=G1(K2)
PRINT 105, Z1,R1(K1+6), * G3,Z1 Z3=Z1
223
Z1=Z2
67 Z2=Z3
PRINT 106, Z1fZl
Z3=Z1
Z1=Z2
Z2=Z3
NST R= 4
IF (IGA.EQ.IG) GO TO 71 PRINT 109, Z1,RS,Zl PRINT 106, Z2,Z2 NSTR=NSTR+2
68 IF (NSTR.GT.34) GO TO 83 GALL CONAME(NSS(IGA+1 ,1 ) ,
* NSS(IGA+1,2),RV) DO 69 J=1,63
69 G3(J)=A(33) DO 70 J= 1 ,NK
CALL RECODE (SS(IGA+1,
* J,D,G1)
DO 70 K2=1 ,9 K3=(J-1)*9+K2
70 G3(K3)=G1(K2) ,
PRINT 110, Z1,RV,G3,Z1
Z3=Z1
Z1=Z2
Z2=Z3
NST R=NSTR+1 IGA=IGA+1
IF (IGA»LT•IG) GO TO 68
IF (NSTR9GE»33) GO TO 83
PRINT 106, Z1,Z1
Z3=Z1
Z1=Z2
Z2=Z3
NSTR=NSTR+1
IF (NSTR.GE.33) GO TO 83
71 IF (IKA .EQ.IK) GO TO 75 PRINT 111, Z1,RT,Z1 PRINT 106, Z2,Z2 NSTR=NSTR+2
72 IF (NSTR.GT.34) GO TO 83
CALL CONAME (NSS( IKA+351,
* 1),NSS(IKA+351,2),RV) DO 73 J=1,63
73 G3(J)=A(33) DO 74 J=1,NK
GALL RECODE (SS(IKA+351 ,
* J,D,G1)
DO 74 K2=1,9 K3=(J-1)*9+K2
74 G3(K3)=G1(K2)
PRINT 110, Z1,RV,G3,Z1
Z3=Z1
Z1=Z2
Z2=Z3
NSTR= NSTR+1 IKA= IKA+1
IF (IKA9LT0IK) GO TO 72
IF (NSTR.GE.33) GO TO 83
PRINT 106, Z1,Z1
Z3=Z1
Z1=Z2
Z2=Z3
NSTR=NSTR+1
IF (NSTR.GE.33) GO TO 83
75 IF (IMA.EQ.IM1) GO TO 79 PRINT 112, Z1fRU,Z1 PRINT 106, Z2,Z2
NSTR= NSTR+2
76 IF (NSTR.GT.34) GO TO 83 CALL CONAME (NSS(IMA+451,
* 1)tNSS(IMA+451,2),RV) DO 77 J=1,63
77 G3(J)=A(33) DO 78 J=1,NK
CALL RECODE (SS(IMA+451,
* J,D,G1)
DO 78 K2=1,9 K3=(J-1)*9+K2
78 G3(K3)=G1(K2)
PRINT 110, Z1,RV,G3,Z1
Z3=Z1
Z1=Z2
224
Z2=Z3
NSTR=NSTR+1 IMA=IMA+!
IF (IMA.Iff.IM1) GO TO 76
IF (NSTR.GE.33) GO TO 83
PRINT 106, Z1,Z1
Z3=Z1
Z1=Z2
Z2=Z3
NSTR=NSTR+!
IF (NSTR.GE.33) GO TO 83
0**««
79 IF (IMB.EQ.BI2) GO TO 821 PRINT 113, Z1,RU,Z1 PRINT 106, Z2,Z2 NSTR=NSTR+2
80 IF (NSTR.GT .34) GO TO 83 CALL CONAME (NSS(IMB+471 ,
* 1),NSS(IMB+471,2),RV) BO 81 J=1,63
81 G3(J)=A(33) DO 82 J=1,NK
OALL RECODE (SS(IMB+471,
* J,D1GI)
DO 82 K2=1,9 K3=(J-1)*9+K2
82 G3(K3)=G1(K2)
PRINT 110, Z1,RV,G3,Z1
Z3-Z1
Z1=Z2
Z2=Z3
NSTR=NSTR+! IMB=IMB+!
IF (IMB.LT.IM2) GO TO 80
IF (NSTR.GE.33) GO TO 821
PRINT 106, Z1,Z1
Z3=Z1
Z1=Z2
Z2=Z3
NSTR=NSTR+! 821 IRP=O
GO TO 84
83 IRP=I
84 K3=35-NSTR
IF (K3.LE.0) GO TO 86
DO 85 J= 1, КЗ
PRINT 106, Z1,Z1
Z3=Z1
Z1=Z2
85 Z2=Z3
86 PRINT 107, DN J=IGA+IKA+3MA+IMB-IG-IK-
* IMI -IM 2
IF (J.EQ.O) GO TO 87 IF (IRP.EQ.1) GO TO 60
87 CONTINUE
88 CONTINUE
89 RETURN
100 FORMAT (2X,39(3H. ),1H.)
101 FORMAT (/3H .,116X,
* 1H.//3H .,116X,1H./)
102 FORMAT (2X,5H. .,
* 108(1H-),5K. •)
103 FORMAT(6X,1HI,35X.4(14A1 ,
* 4X),2H I/2X.5.H. J•5X,
* 1 ИСХОДНЫЙ СОСТАВ1,1 5X,
* 4(14A1,4X),6H I ./
* 6X, 1 HI, 5X, • РАБОЧЕГО
» 'ТЕЛА:1,16X,4(14A1,4X).
* 2H I/2X,5H. '1,7X1
* •[МОЛЬ/КГ]•,19Х,4(14А1 ,
* 4Х),6Н I ./6Х,1Н1,
* 35Х,4(14А1,4Х),2Н I)
104 FORMAT(6X,1HI,108X,1HI/
* 2Х,5Н. 1,18Х,
* •ХАРАКТЕРИСТИКИ •,
* •РАБОЧЕГО ТЕЛА (•,
* А4,56Х,5Н1 ./6Х,1Н1,
Предыдущая << 1 .. 85 86 87 88 89 90 < 91 > 92 93 94 95 96 97 .. 103 >> Следующая
Реклама
 
 
Авторские права © 2010 PiroChem. Все права защищены.