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

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

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

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

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

152 LL=K(2) IS=KU)
DO 153 J=1,10 RP(J)=P2(J)
IF (J.GT.IS) RP(J)=A(33)
153 CONTINUE
154 IF (IS-5) 155,155,156
155 PK1(4)=A(IS+35) GO TO 157
156 PK1(4)=A(40)
157 LL=HR(LL) W=A(LL)
PRINT PK1,W,(RP(J),J=1,5)
IF (IS.LE.5) GO TO 158
PK2(2)=A(IS+30)
PRINT PK2, (RP(J),J=6,10)
158 IF (RP(I ).EQ.P1 (D)
* GO TO 152
PRINT 103
DO 159 J=1,20
QP(J,1)=A(33)
0P(J,2)=AO3)
QP(J,3)=A(33)
IF (J.GT.KO)) GO TO 159
I=NO(J)
I=L(I)
LL=I/26
IS=I-LL*26
QP(J,2)=A(IS)
IF(LL.GT.0) QP(J1D=A(LL)
QP(J,3)=EL(J)
159 CONTINUE LL=K(5)
160 IS=5
IF (LL.LT.5) IS=LL PK3(2)=A(IS+35) PRINT PK3, ((QP(I1J), * J=I13),1=1,5) LL=LL-IS
IF (LL.LE.O) GO TO 162 DO 161 J=I,15 QP(J,1)=QP(J+5,D QP(J,2)=QP(J+5,2)
161 QP(J,3)=QP(J+5,3) GO TO 160
162 CONTINUE
DO 200 J=I,6
200 TKJ)=T(J)
IF(KDR(I).EQ.0) GO TO 202 T1(1)=.967839 DO 201 J=4,6
201 T1(J)=1000.
202 RZ(D = LO RZ(2)=1000. RZO)=DLOG(RZ(D) RZ(4)=1D+4 RZ(5)=1D+4 RZ(6)=1D+4
LL=K(1) NK=KO) DO 204 J=1,NK
201
204 Р1(J)=PI(J)*T1(LL) RZ(LL)=PI(1) LL=K(2)
NK=K(4)
DO 205. J=I1NK
205 P2(J)=P2(J)*T1(LL) RZ(LL)=P2(1)
IF (K(1).EQ.'3.0R.K(2).EQ.
* 3) RZ(3)=DLOG(1.98719*
* RZ(2)/RZ(3)) PRINT 104
206 RETURN
207 DO 208 1=1,80
IF(Q(I).EQ.R(5))GO TO 206
208 CONTINUE READ 100, Q GO TO 207
101 FORMAT (1 ОШИБКА (',12,
* •) В ЗАПИСИ ИСХОДНЫХ •,
* 'ДАННЫХ:' ,/1Х,80А1 )
102 FORMAT (///10X,20A1,5X1
* 'РАСЧЕТ NO. ',20А1//7Х,
* 'ЗАДАНЫ ПАРАМЕТРЫ:•/)
103 FORMAT (/8Х,'СОСТАВ РАБО',
* 'ЧЕГО ТЕЛА [МОЛЬ/КГ]:'/)
104 FORMAT (5Х,///) 100 FORMAT (80А1)
END
SUBROUTINE SORB DOUBLE PRECISION AC COMMON /BIBL/F(350,9),
* NM(350,4)/GEN/KDR(11),
* NC(15),AC(10)/ID/DN(40),
* K(7),P(40),NO(20),
* MXI (20,2) ,11X2(20,2)
* /SYMB/L(94),A(44)//F1(10),
* F2(100,10),NF(100,2),
* CN(12),KW(4),RR(20),
* MX(20,2) DEFINE FILE 8
* (50,3600,L,LC)
С СОРТИРОВКА БИБЛИОТЕКИ С КОМПОНЕНТОВ
Q******************************
LL=I
NN=1
NR=350
DO 1 1=1,9
1 NC(I)=O NC(15)=0
DO 2 1=1,20
2 RR(I)=O. KW(2)=0 KW(3)=0 KWU)=O
3 IF (KDR(6).EQ.0) GO TO 45 DO 4 1=1,100
400 CALL INCOMP (K1,K2,F1) F1(10)=ABS(F1(10)-777.) IF (F1(10).LT.0.1)
* GO TO 400 NF(I,1)=K1 NF(I,2)=K2
IF (K1.EQ.777) GO TO 6 DO 4 J=1,9
4 F2(I,J)=F1(J)
KR= 20
5 PRINT 100, KR 55 NC(15)=1
IF(KDR(6).EQ.1)CALL EXIT GO TO 44
6 1=1-1
DO 23 J=1,1
K2=K(5)
K3=1000000
KI=(NF(J,1)+1)/(K3*100) KI=NF(J,1)-K1*K3*100 DO 8 11=1,4
KW(I1)=(K1*4+1)/(K3*4) IF (KW(II).EQ.0) GO TO 9
К1=K1-KW(II)*кз
КЗ=(КЗ+1)/100
DO 7 12=1,К2
IP (KW(H).EQ.NO(I2))
* GO ТО 8
7 CONTINUE GO ТО 23
8 CONTINUE
9 IF (KDR(5).EQ.O) GO ТО 10 IF (NP(J,1).GE.300000000)
* GO ТО 23
10 DO 11 11=1,4 DO 11 12=1,K2
IF (KW(H ).EQ.NO(I2))
* RR(I2)=1.
11 CONTINUE
IF (NN-2) 15,12,12
12 KR=21
IF (NR-NN) 5,5,13
13 K3=NN-1
DO 14 K1=1,K3 IF (NM(KI,1).EQ.NF(J,1). ¦AND•NM(KI,2).EQ.NF(J,2))
* GO TO 17
14 CONTINUE
?***«
15 NM(NN,1)=NF(J,1) NM(NN,2)=NF(J,2) NM(NN,4)=0
DO 16 KI=I,9
16 F(NN1KI)=F2(J,Kl) KI=(NF(J,1)+1)/100000000 NC(K1)=NC(K1)+1
NM(NN,3)=K1 NN=NN+1
IF (NF(J,1).EQ.400000000.
* AND.NF(J,2).EQ.100000000)
* NC(5)=1 GO TO 23
C**«*
17 IF (NM(KI,4).GT.0)
* GO TO 20
NM(K1,4)=NR
18 DO 19 K1=1,9
19 F(NR,K1)=F2(J,K1) NM(NR,4)=0 NR=NR-I
GO TO 23
20 K2=NM(K1,4)
21 IF (NM(K2,4).LT.1) ¦ GO TO 22
K2=NM(K2,4) GO TO 21
22 NM(K2,4)=NR GO TO 18
C**«*
23 CONTINUE 1=1+1
IFCNF(I,2).NE.777)GO TO 3
Q**«*
NC(2)=NC(2)+NC(3)+NC(4) IF (NC(3)) 24,24,26
24 IF (NC(4)) 30,30,25
25 KR=22 GO TO 5
26 IF (NC(5)) 27,27,29
27 NM(NN,1)=400000000 NM(NN,2)=100000000 NM(NN,3)=4 NM(NN,4)=0 F(NN1I) = K
F(NN12)=3E+4 F(NN,3)=17.471 F(NN,4)=4.9682 DO 28 1=5,9
28 F(NN,1)=0. F(NN,6)=.1456 NC(2)=NC(2)+1
29 NC(4)=1 GO TO 31
30 NCU)=O
31 NC(3)=NC(1)+NC(2)
Q-»***
K3=K(5) K2=0
203
DO 32 I=I,КЗ IF (RR(I).NE.0)
* GO TO 32 KI=NO(I) KI=L(KI) NB=K1/26 KR=KI -NB*26 F1(1)=A(33) F1(2)=A(KR) IF (NB.GT.0)
* FKl)=A(NB) K2=1
PRINT 101, F1(1),F1(2)
32 CONTINUE
IF (K2.GT.0) GO TO 55
NC(5)=0 K2=NC(3)
IF (K(6).EQ.0.AND.K(7)
* .EQ.O) GO TO 40
J= 1
DO 33 1=1,20 MX(I, I)=MXI(IJ)
33 MX(I,2)=MX1(I,2)
34 K1=K(J+5)
IF (KI.EQ.O) GO TO 37
DO 36 1=1,K1
DO 35 11=1,K2
IF (NM(II,1).NE.MX(I,1).
* OR.NM(I1,2).NE.MX(I,2))
* GO TO 35 NM(H ,3)=J+4 NC(J+4)=NC(J+4)+1 GO TO 36
35 CONTINUE
CALL CONAME (MX(I1I),
* MX(I,2),CN) PRINT 102, CN
36 CONTINUE
37 GO TO (38,40), J
38 J= 2
DO 39 1=1,20 MX(I,1)=MX2(I,1)
39 MX(I,2)=MX2(I,2) GO TO 34
0«***
40 TL=O.0 TB=1E+6
DO 43 1*1,K2
TI=F(I,1)
T2=F(I,2)
IF (NM(I,4).EQ.O)
* GO TO 42 KI=NM(I,4)
41 IF (F(K1f1).LT.T1)
* TI=F(KI1D
IF (F(K1,2).GT.T2)
* T2=F(K1,2)
IF (NM(KI,4).LT.1)
* GO TO 42 K1=NM(K1,4) GO TO 41
42 IF (TL.LT.T1) TL=TI IF (TB.GT.T2) TB=T2
43 CONTINUE NC(7)=NC(1)-NC(5)-NC(6) AC(I)=TL
AC(2)=TB
44 RETURN
45 READ (89LL)
* ((F2(I,J),I=1,75),
* J=I,10),((NF(I1J),
* I=1,75),J=1,2) DO 46 1=1,75 F2(I,6)=F2(I,6)-
* F2(If10)*1E-4 KI=NF(I,1) K2=NF(I,2)
IF (K1.EQ.777)
* GO TO 47
46 CONTINUE PRINT 103, LL GO TO 55
47 LL=LL+1
IF (LL.LE.50.) GO TO 6
48 FBINT 104 NC(15)=1 BETUBN
100 FOBMAT (• ОШИБКА (•,12,
* •) В БИБЛИОТЕКЕ КОМПО',
Предыдущая << 1 .. 79 80 81 82 83 84 < 85 > 86 87 88 89 90 91 .. 103 >> Следующая
Реклама
 
 
Авторские права © 2010 PiroChem. Все права защищены.