о о
SM = (X1’OM1+X2*GM2+X3*GM3+X5*GMS»X7*GM7)‘AMOL
END
ГОСТ Р 8.769—2011
i
j
SUBROUTINE B11BER(T.H.B11)
IMPLICIT DOUBLE PRECISION (A-H.O-Z)
COMMON f’BBLOK/ BR11H0(3). BR11H1(3). BR11H2(3). BR22(3). BR23(3).
♦BR33(3). BR15(3). BR17(3). BR55(3). BR77(3). B25
T2=T’T
B11 =BR11H0(1)+ BR11H0(2)*T » BR11H0(3)*T2
♦ + (BR11H1(1) + BR11H1(2)*T ♦ BR11H1(3)’T2)*H
♦ + (BR11H2(1) BR11H2(2)*T ♦ BR11H2(3)*T2)‘H-H
END
С
SUBROUTINE BBER(T.B11.BEFF)
IMPLICIT DOUBLE PRECISION (A-H.O-Z)
COMMON /BBLOK/ BR11H0(3). BR11H1(3). BR11H2(3). BR22(3). BR23(3).
♦BR33{3). BR15(3). BR17(3). BR55(3). BR77(3). B25
COMMON/ZETA> Z12.Z13.Y12.Y13.Y123.Y115
COMMON ’XBLOK/ Х1 .X2.X3.X11 .X12.X13.X22.X23.X33
>.X5.X7.X15.X17.X25.X55.X77
T2=T*T
B22=BR22(1) + BR22(2)’T ^ BR22(3)*T2
B23=BR23(1) ♦ BR23(2)’T ♦ BR23(3)*T2
B33=BR33(1) + BR33(2)’T ^ BR33(3)*T2
B15=BR15(1) ♦ BR15(2)’T ♦ BR15(3)*T2
B55=BR55(1) + BR55(2)’T ^ BR55(3)*T2
B17=BR17(1) + BR17(2)’T ♦ BR17(3)*T2
B77=BR77(1) + BR77(2)’T ^ BR77(3)*T2
BA 13= В1ГВЗЗ
IF (BA13.LT. 0.0) STOP ‘ NO SOLUTION’
ZZZ=Z12*(320.0D0-T)**2*1.8750-5
BEFF = Х1ГВ11 +X12*ZZZ*(B11«B22)-f 2.0D0*X13*Z13*DSQRT(BA13)
>*X22’B22 ♦ 2.0D0*X23*B23 ♦ X33*B33 * X55*B55
> «^.ODO’XIS’BIS + 2.0D0*X25’B25 ■*2.0D0*X17*B1 7 ♦ X77*B77
END
С
SUBROUTINE CBER(T.H.CEFF)
IMPLICIT DOUBLE PRECISION (A-H.O-Z)
COMMON ’CBLOK/CRU 1H0(3). CR111H1(3). CR111H2(3). CR222(3).
♦CR223(3), CR233(3). CR333(3). CR555(3). CR117(3)
COMMON /ZETA/Z12.Z13.Y12.Y13.Y123.Y115
COMMON /XBLOK/X1.X2.X3.X11 .X12.X13.X22.X23.X33
>.X5.X7.X15.X17.X25.X5S.X77
T2=T*T
Cl 11=CR111H0(1) + CR111H0(2)*T + CR111 H0(3)*T2
*♦ (CR111 H1(1) ♦ CR111H1(2)*T ♦ CR111H1(3)*T2)*H
*♦ (CR111H2(1) ♦ CR111H2(2)*T ♦ CR111H2(3)*T2)*H*H
C222 = CR222(1) +CR222(2)*T ♦CR222(3)*T2
C223 = CR223(1) ♦CR223(2)*TtCR223(3)*T2
C233 = CR233(1) +
C333 = CR333(1) ♦
C555 = CR555(1) +
Cl 17 = CR117(1) ♦
CR233(2)*T ♦
CR333(2)*T ♦
CR55S(2)*T ♦
CR117(2)*T ♦
CR233(3)*T2
CR333(3)*T2
CR555(3)*T2
CR117(3)*T2
CA112=C111*C111*C222
СА113»С111*С11ГСЗЗЗ
CA122=C111*C222*C222
CA123=C111*C222*C333
CA133=C111*C333*C333
CA115=C111*C111*C555
IF (CA112.LT.0.0 OR. CA113.LT.0.0 OR. CA122.LT.O.O
*OR. CA123.LT.0.0 .OR. CA133.LT.0.0 .OR. CA115. LT. 0.0)
27