g o * л у н ц р » 9 »
10Й
109
М О
H I
112
1 15
1 1 4
1 15
11 6
11 7
И в
119
120
121
122
123
1 24
1 23
1 2 6
127
1 26
;за
1 ^ 2
143
1 4 4
1 43
1 46
149
97
*A I M l s #
9fl
31 Сми =СМ| | *мОн ( I ) «ON { I »
99
R= 0
10 000 32 1 = 1 * 6
101
32. O P M »= o
Ю 200 З з «•= l • x KG
1 0 3DO 33 K=1 • 6
1 0 4
$P = Vf l / sC»«T M 6 6 2 9 . 2 e f t A 7 * T f t / M U M I I I)
1 0 3
R=RК
»
»N I
( SA «V AO
( к ) J*f>N
<
I >/.SB*
1 0 6
0 P { I ) =
q
P| 1 1 » $ G * X ) * H I I SВ • VAO <X I 1• ON ( 1 >/ SВ
1 0 733 I M M s j l i l M d < « > * H l r S B * V B O « K > » * P N M ) / S B » » »
UHI 1 I /CMU
oo 34 I г 1 * KKG
34 O’* t l ’ =0*» < I
) ’*
AO = l / s a « T <PI » / y B / S M
Г)П 76 J К= 1 , XKG
K N * I Ч Т ( OP « J r >*
n
A * . 3)
i n Ч . Е Й . О ) SO ’ 0 76
/00 35 J * 1 * 6
S A s V A / S a * 1 M 6 6 2 9 . 2 » A B 7 * Т р / Ц ц н г l K > >
3 3 f)PK< 1 i t D N l i n * S d ( l > • « ! ( SB*VB0< 1 > > / S B / O P ( i K
) ’ R
00 7ft
r.=
l * A
NK = I N 7 ( 0 9 * I X ) • КN♦ . 5
1
1 Г t NX, EO , 0 ) GO T 0 7 A
*. m i =м и м <I к >
H B * s a « T f г б б г р . г А а А т ^ т в / м и н » i к > i
n w * H 0 * s a P . т ( т г. / т в >
SB=VA/HB
SHsVA/MW
BO 37 1=1*6
3? VGGi I i = VB 0 ( !> • S A
AB = A I M K 1• AO*NP/XN
AA* AA
NG*X- ( К * 1 >t 3 * 3
l Г 1VftG <X 1 1 1 4 . i 5 . l 5
1* 9
130
131
14
R l = 0
R 2 s - 9 / { 2 * v B C . f X ) - 2 . 7AQ; >#EXP<VBG<
k
‘ > 1
13 2
1 33
1 3413
GO TO 1Й
I f l V H " 1 1 - 3 . 2 5 11 6 . 1 T . 1 7
1
2
•
2
1 35
16 R l s O
136
R2 = VBG 1X 1-»j , 23
1 37GO TO 1A
1 7 R 1 = V B G ( K 1 - 3 , 2 5
1 39R2 s 6 . 5
140
А гмо = р2 < V f t G ( X l / *SftRT <VBG(X1•^ 4 ♦ , 3 ) .VBG(K
) >
141
Я0 76 1Г s 1 , NX
fjR T = NR T * 1
xs
( N G ) s C P <К
1
♦ M G N <
o
. 0 0
1
, K - 3
.
1
>
5
0 0 19 1 = 1 * 3
1 X( t , f Q .NO l GO TO 19
X ( t J- C P i I i - , 0 0 1♦ * СP( I #3 ) - CPI 1 I ♦• 0 0 2 ) *RNDN
1 4719
14Л
t ” 1 1
CONTINUE
V O X < N G » 3 5 l G N < B I R C ‘ r 2 , R l . R 2 * r * 0 . v B G ( K > > » 3 , i
- X )
B l = S Q R T I - A | . A G ( R N O M ( - i n l