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

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

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

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

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

* pk1(7),pk2(5),pk3(8) data r/1h(,1h),1h=,1h,,
* 1h;,1h[,1h],1h1,1h%/,mr
* /16,19,21,18,9,20/,т/
* 9.86923,1.,24217.3,
* 239.005,239.005,239.005/,
* pk1/4h(1x,,4ha1f1,4hh=, ,
* 4h ,4hf12.,4h4,5a,
* 4h1) /,pk2/4h(3x,,
* 4h ,4h f12,4h.5,5,
* 4ha1) /,pk3/4h(1x,,
* 4h ,4h(2a1,4h,1h=,
* 4h,f7.,4h3,3x,4h),15,*
* 4ha1) / q******************************
с ввод исходных данных с варианта
с******************************
nc(i5)=0
1 do 2 1=1,20 dn(i)=o. dn(i+20)=0. el(i)=o. no(i)=o gf(i)=o. hf(i)=33333. mxi(i1D=o mx1(i,2)=0 мх2(і,1)=0 мх2(і,2)=0 do 2 j=i,10 af(i,j)=0.
2 nf(i1j)=o
* do 3 1=1,7
3 k(i)=o
do 4 1=1 ,10 pki)=o.
4 р2(і)=0. л=0 j2=1 j4=0 nk=o
о***»
5 read 100, q do 99 1=1,80
if (q(i).eq.r(5)) j1=1 if (q(i).eq.r(3)) л=2 if (q(i).eq.r(D) л=3
197
IF (Q(I).EQ.R(4).0R.J1.
* BQ.1.0R.J1.BQ.2)
* GO TO (8,11,13), J2 IF (Q(I).EQ.A(33).AND.
* J2.GT.2) GO TO 99 NK=NK+1
IF (J1.EQ.3) GO TO 6 KR= 8
IF (NK.EQ.21) GO TO 7
6 KR= 7
IF (NK.EQ.71) GO TO 7
S(NK)=Q(I)
GO TO 99
C***«
7 PRINT 101, KR,Q NC(15)=1
IF (KDR(6).EQ.1)CALL EXIT GO TO 207
?***«
8 J2=2
DO 9 J= 1 ,NK
9 DN(J)=S(J)
10 NK=O
GO TO 99
11 J2=3
DO 12 J=I1NK
12 DN(J+20)=S(J) GO TO 10
0«***
13 DO 16 J=1,NK NS(J)=O
DO 14 LL=I,44
IF (S(J).EQ.A(LL))
* NS(J)=LL
14 CONTINUE
DO 15 LL=1,9
IF (S(J).EQ.R(LL))
* NS(J)=LL+44
15 CONTINUE KR= 9
IF (NS(J)) 7,7,16
16 CONTINUE
IF(NS(NK).EQ.46) GO TO 54
IF (J1.EQ.1.OR.J1.EQ.0)
* GO TO 25
IF (NS(1).EQ.50) GO TO 20 IF (NS(1)•EQ.13.AND.NS(2)
* .EQ.23) GO TO 23 DO 17 J=1,6
IF(NS(I).EQ.MR(J))GO TOI8
17 CONTINUE KR= 3
GO TO 7
?***«
18 IF (K(I).GT.O) GO TO 19 J3=1
K(I)=J GO TO 24
19 J3=2 K(2)=J GO TO 24
20 LL=NS(2)*26+NS(3)
IF (NS(3).EQ.5D LL=NS(2) DO 21 J=1,94
IF (LL.EQ.L(J)) GO TO 22
21 CONTINUE KR= 4
GO TO 7
22 K(5)=K(5)+1 LL=K(5) KR=5
IF (LL.GT.20) GO TO 7
NO(LL)=J
J3=3
GO TO 24
C*«*»
23 J3=4
IF (NS(3).EQ.37) J3=5
24 J1=0 NK=O
GO TO 99
25 IF (J3.EQ.4.0R.J3.EQ.5)
* GO TO 34
198
26 W=O. IS= 1
IF (NS(1).EQ.26) NS(1)=35 IF (NSd ).EQ.27) IS=2 DO 27 J=IS1NK IF (NS(J) .EQ.3D GO TO 28
27 W=W*10.+NS(J)-35 GO TO 30
28 J=J+1
IF (J.GT.NK) GO TO 30 S1=0.1
DO 29 LL=J1NK W=W+(NS(LL)-35)*S1
29 S1=S1*0.1
30 IF (IS.EQ.2) W=-W J=J3-1
IF (J.NE.O) GO TO (31,32,
* 34,34,57,62,67), J LL=K(3)+1
KR=12
IF (LL.GT.10) GO TO 7
PKLL)=W
K(3)=LL
GO TO 33
31 LL=K(4)+1 KR=I 2
IF (LL.GT.10) GO TO 7
P2(LL)=W
KU)=LL
GO TO 33
32 LL=K(5) EL(LL)=W
33 IF (J1.EQ.1) GO TO 140 GO TO 24
C****
34 DO 35 J=I,5 NI(J)=O
35 N2(J)=0 IS= 1 N1(D=2
IF (NS( 2) .NE. 28.AND.NSO)
* .NE.28) GO TO 36
IS= 3
NKD = I
IF (NS(2).EQ.28) GO TO 36 IS=4
IF (NS(D .NE.26.AND.NS(1) * .NE.27) GO TO 36 N2(1)=NS(2)-35 N1(1)=3
IF (NS(1).EQ.27) N1(1)=4
36 N3=2
DO 48 J=IS1NK
37 IF (NS(J)-26) 38,38,45
38 IF (N2(N3)) 39,39,41
39 IF (N1(N3)-26) 42,42,40
40 N2(N3)=1
41 N3=N3+1 GO TO 37
42 IF (N1(N3)) 43,43,44
43 N1(N3)=NS(J) GO TO 48
44 N1(N3)=N1(N3)*26+NS(J) GO TO 48
45 IF (N2(N3)) 46,46,47
46 N2(N3)=NS(J)-35 GO TO 48
47 N2(N3)=N2(N3)*10+NS(J)-35 N3=N3+1
48 CONTINUE
IF (N2(N3).EQ.O) N2(N3)=1
DO 51 J=2,5
IS=O
IF (NKJ).EQ.O) GO TO 50
DO 49 LL=1,94
IF (N1(J).EQ.L(LL)) IS=LL
49 CONTINUE KR= 6
IF (IS.EQ.O) GO TO 7
50 N1(1)=N1(1)*100+IS
51 N2(1)=N2(1)*100+N2(J) IF (J3.EQ.5) GO TO 53
52 LL=K(6)+1 KR=IO
IF (LL.EQ.21) GO TO 7 MX1(LL,1)=N1(D
199
MX1(LL,2)=N2(1)
K(6)=LL
GO TO 33
53 LL=K(7)+1 KR= 11
IF (LL.BQ.21) GO TO 7
MX2(LL,1)=N1(1)
MX2(LL,2)=N2(1)
K(7)=LL
GO TO 33
54 DO 55 J=2,NK
IF (NS(J)-53) 55,56,55
55 NS(J-I)=NS(J)
56 NK=J-2 J3=6
GO TO 26
57 J4=J4+1 GF(J4)=W M=NK+3
DO 63 J5=1,10 AF(J4,J5)=0.
IF (NS(M).BQ.46) GO TO 33 IF (NS(M).EQ.50) GO TO 64 LL=NS(M)*26+NS(M+1) M=M+2
AF(J4,J5)=1.0
IF (NS(M-!).LE.25) GO T058 M=M-I
LL=NS(M-D
58 DO 59 IS=1,94
IF (LL.EQ.L(IS))
* NF(J4,J5)=IS
59 CONTINUE
IF (NS(M).LE.25.OR.NS(M).
* GE.46) GO TO 63 LL=M-I
DO 60 IS=M,70
IF (NS(IS).LT.31.OR.
* NS(IS).GT.44) GO TO 61
60 NS(IS-LL)=NS(IS)
61 NK=IS-M M=IS
J3=7
GO TO 26
62 AF(J4,J5)=W
63 CONTINUE
64 M=M+1 LL=M-I
DO 65 J=M,70
IF (NS(J)-51) 65,66,65
65 NS(J-LL)=NS(J)
66 NK=J-M J3=8
GO TO 26
67 HF(J4)=W GO TO 33
99 CONTINUE GO TO 5
?****
140 IF (J4.EQ.0) GO TO 150 W=0.
DO 141 J=1,J4
141 W=W+GF(J) S1=0.
DO 147 I=I,J4 GF(I)=GF(I)/W IF (SI.NE.33333.)
* S1=HF(I)*GF(I)+S1 IF (HF(I).EQ.33333.)
* S1=33333. U=0.
DO 142 J=1,1Q IF(AF(I1J).BQ.0.)GO T0143 LL=NF(I1J)
142 U=AF(I, J) ¦AM(LL)-HJ
143 DO 146 J=I,10 IF(AF(I1J).EQ.0.)GO T0147 LL=K(5)
IF (LL.BQ.0) GO TO 145
DO 144 IS=I1LL
IF (NO(IS).BQ.NF(I,J))
* GO TO 146
144 CONTINUE
145 K(5)=K(5)+1 IS=K(5)
200
NO(IS)=NF(I1J)
146 EL(IS) = I ООО.¦AF(I1J)*
* GF(I)/U+EL(IS)
147 CONTINUE
IF (Si.EQ.33333.)
* GO ТО 150
148 IF (K(1).NE.5.AND.K(1).
* NE.6) GO TO 149 K(3)=1 PI(D=SI
GO TO 150
149 IF (K(2).NE.5.AND.K(2).
* NE.6) GO TO 150 K(4)=1 P2(1)=S1
150 PRINT 102,(DN(J),J=1,20),
* (DN(J),J=21,40) LL=K(I) IS=KO)
DO 151 J=1,10 RP(J)=PI(J)
IF (J.GT.IS) RP(J)=A(33)
151 CONTINUE GO TO 154
Предыдущая << 1 .. 78 79 80 81 82 83 < 84 > 85 86 87 88 89 90 .. 103 >> Следующая
Реклама
 
 
Авторские права © 2010 PiroChem. Все права защищены.