ГОСТ 15643.301-^83 СТрлТ93
14*6
1 4 4 7
1 44fi
X 4 4 »
1 4 5 0
1 4 5 1
1 4 5 2
1 4 5 3
1 4 54
1 4 3 3
1 4 5 6
1 * 5 7
1 4 5 8
1 4 5 9
1 4 8 0
1 461
1 4 6 2
1 * 6 3
1 4 6 4
1 4 6 5
1 4 6 6
1 4 6 7
1 4 6 6
1 4 6 9
1 4 7 0
1 4 7 1
1 4 7 2
1473
1 4 7 4
1 4 7 5
1 4 7 6
1 4 7 7
1 4 7 8
1 4 7 9
1 4 8 0
1 481
1 4 8 2
68
1 4 8 3
1 4 8 4
1 4 8 5
1 4 8 6
14в7
14
1 4 8 9
1 4 9 0
1 4 » 1
1 4 9 2
1 4 9 3
1 4 9 4
1 4 9 5
1 4 9 6
1 4 9 7
1 4 9 8
t 4 9 9
DI ME NS I ON
Til3>
»
Т
2
(3),Т3<
3>
N=N
♦
1
CAUL S V S T l T l , T 2 # T 3 , m
2)»*2
Bf
2
*
2
)=l/RA5T(T1.T
>«*2
6
6
1
1
)
1
0
1
В( l’l>sisffAST(Ti,T
3W*?.
(M3»3>
s
(H2/
m i
/RAST(
ti
,T2)
(1t3)=- < »1)#H2/H1
B(3. sB( ,3>
&44=-i
C A L L P CR y x <f t * ( \ 4 . 8 4 4 i N>
<l.SOsF
D<
2
•N)sr
2
0 ( 3 * N ) = H 2 / M 1
D< 4»N)aH1
I N fP (N)82
RETURN
END
s u b r o u t i n e ы
. |
р
$ ( Т 1 *
т
2 »
т з
, $ # Г 1 . Г 2 «
т е т д
1 ,
т е
TA2,N )
31
3
3
c o
mm
o n
/бц/о(4,зо>*!мгр(5о>/в14/С1(3),С2<
3 IfСз{3l,C4(3>•в(3.3 ),
1®4 I 3> , 6 4 4
dimension t i
i ,тг(э>,т с )
NsN+l
1
1
c a l l
S
v
S
t
(
t i
,
t
2 ,
t
3 * N)
e< 1» )* /«AST (Tl#T2>
8(2,2)ol/RAST(Ti,T3)*#2
B ( 3 , 3 ) e l / S * . 2
B44e-i
C
a l l
p
e r
v * (
0
. B 4 , 6 4 4 ,
n
>
0(1»N>-F1
0 ( 2 ,
n
) = F2
о
<
з
,
м
) =
т е т
д :
1
3
D ( 4 ,
n j
- T E
t
A2
l N f P ( N> =
4
RETURN
E
nd
SUBROUTINE PARAB(Tl,T2,T
3
,Hl,H2,Fi,F2,Hj*N.
)
COMMON /BLl/Dt4,30)*lNFP(30)/BL4/Cl<3),C2<
» 3>»C3<3>.C4<3>.6<3«3>
1 >64 <3 ) , 6 4 *
DIME
n
S
j
ON T < >#T2<3),T3I3)
N=N
* 1
8
1
2
1
8
1
3
1
1
1
0
2
1
C
all
SySTc TI<T2,T 3*N>
9 < 1 » 1 ) s l / ftA S T ( T
1
, T 2 ) * • 2
<2.2>sl/R*ST{T ,T3)*•2
B{3#3>c0l1»1>•(H2/Ml)**2
6(1» 3>s-Bl1»1)*H /M
(3, ) &< ,31
8413)e /2./Hl
644s. ^
c a l l
P E R y x « e . 6 4 » B 4 b » N j
0(1»N)aF1
Ot2>N)aF2
(3»N)ВH /Н
D I 4 ,
n
>
s
H3
1N
f
R( N>sГ