Стр. 114 ГОСТ 2S64S.301—83
1500 •
1501
1502
1503
r e t u r n
£ но
s u b r o u t i n e
с о ц и з ( Т
1
» т
2
# т з # м
1
. м
2
»р# Е
1
» г
2
«и>
COMMON / 6 1 1 / 0 ( 4 , 3 0 ) . I N r P < 3 o > / 6 L 4 / C l ( 3 } , C 2 <
3
2
3 ) . С ,3 < 3 ) . С 4 ( 3 ) . 6 ( 3 | 3 > ,
1
в
4
<
3
) »
f\ 4 4
OjMgNSjON т
1
( ) , Т <
3)
, Т 3 < 3)
Nг N
♦
1
1
0
*
a
S ? <
й
1
* н
2
н
3
3
6
2
2
1
c a l l s w
S
t
<
t i
,
t
2 , T 3 .
n
)
R 2 = H
i
/
r
1
«*2
T
i
, T 2 ) / < R
a
S T ( T
i
, T 2 ) - P )
3 ( l * l > s l / R A S T ( T l , T 2 ) * » 2
6 ( 2 . 2 > a i / R A S T ( T i , T 3 ) * * 2
e ( # ) s < R l * R l » ( l . l ) - l ) / { R «R >
В ( 1 . 3 ) s - R 1 * 6 ( l . )/R 2
6 ( 3 » i > - f i ( l , 3 )
B 4 ( 3 ) s x /R2
B44 B-J
^
0
1
0
CALL PEftVX(ft.6 4 , 6 4 4 . | ; )
* * N > - r i
[)< 2 , N ) г Г?
( 3 >
n
)
s
H2/ H1
D ( 4 , N ) n H l - O . 0 0 O l
13 0 4
1505
1506
1507
5 Я
1509
1 3 ю
1 5 Ц
1512
1313
1514
1315
1316
1317
1 3 1 в
1519
1520
1321
1522
1
N
Г p •
b
) =
2
RE T
ORN ;
E
n
O
1
2
1523
1524
3 3
1526
Г11NСT
1
OR E
2
( v »S )
I » - f S . L T . - 3 . ) СО Ю1
132?
1326
1 3 2 *
,
1
1530
2
1331
F2 * 2 / н I ( S ) • E
X
P ( - { V » 5 1 • • 2 >«V
CO TO 2
P 2 s S * * A * l 6 « ( E X P ( 2 * S * V « V a * 2 V l * V / ( 5 * « 4 * 4 - 6 * r
- S - 1 3 )
r e t u r n
END
1332FUNCTION 9 l R 0 ( r . A . & . C . S )
1333
1334
1333
1336
1337
1336
133*
DATA У / 0 /
1
X
s
A»R
h
O M ( -
i
)#p
y = y * r < x . s ) / c
I F f V . l l ’ l ’ > GO TO l
v = y - l
,
В
I R0* X
RETURN
-
6
7
0
1
1
*
6
2
6
6
13*0
E
nd
1341
TUNCTiON E R M X )
1342DIMENSION
a
.( )
1 5 *3
0
АТА ( д г П , 0 7 0 3 2 3 0 7 6 4 . 0 . 0 4 2 2 « 2 0 1 2 3 . C , 0 0 9 2 ? 0 3
2 7 2
»
0
, 1
5 2 0 l * 3 E ~ 3
•
13441 0 , 2 ? 6 3 6 2 E - 3
. ,
4 3 0 A 3 6 F - 4 »
1 3*3
1
Г ( л в $ ( X) -
4
, в ) 1 , 3 , 3
1 3*6
1
R= 1
.
134?
O’)
?
*
1346R* fi ♦
A
( I
>
*
*
S
( X
J
• «
I
,
34*
E Rf *S | в *
(
l
(
"
1
*
> ,
X)
1350
RETURN
13313
Е» f = S
I N
(
1 ,
,
X
)
1332
r e t u r n
1353END
1554FUNCTION NJ ( X)
13350ATA( f 1 * 3 . 1 * 1 3 * 2 6 . 5 1