ГОСТ 25*45.121—S* Стр. 9
80
90
100
ПО
120
130
SV®0.
ПО 100 L-I.N LL
IF(K-GT.l) GOTO 80
SL(L)=S1N(AL)
CL(L) —COS(AL)
CONTINUE
no
F -SB (K) »SBO (J) + СВ(K) *CBO(J)*(SL(I.)*SLO+CL(L)*CLO)
1F(F.LE.0.) GOTO 90
SV-SV+F*CB(K)eD(K.L)
AL“ AL+SHL
CONTINUE
S=S+SV
B-B+SHB
CONTINUE
AH (J. 1)—0.22*S*DEL
B = — 9.*AK
T-0.
160 K - 1.136
IF(J.GT.l) GOTO 120
SB1(K)-S1N(B)
CBKK)-COS(B)
Z(K) —2.24E— 10*(1. — EXP{ — ABS(B)/0.I5))/SIN (ABS(B))
CONTINUE
AL-0.
TV= 0.
DO 150 L =lt 2l7
IF(KGT.l) GOTO 130
SL1 (I.) =S1N(AL)
CL1 (L) “ COS(AL)
CONTINUE
МО
150
160
170
180
190
200
F —SB1 (K)*SBO(J) +CBI (K)*CBO(J)*(SLI (L)*SL0+CL1 (L)*C1.0)
1F(F.GE.0.) TV-TV+F*Z(K)*CBl(K)
AL=AL+SHL
CONTINUE
T-T+TV
B-B+SHB
CONTINUE
A12(J. 1) —(5.92 E— 9*S+I)*DEL
CONTINUE
CONTINUE
PRINT 190
FORMAT(// 40X. * ПЕРВЫЙ ВАРИАНТ’.//)
PRINT 200, <IN(I), 1—1.10)
FORMAT (12X, 10(12. 8X»//)
DO 210 1-1.36
J—<1—1)* 10
210
220
PRINT 240. J. (All (К, 1),K=1, Ю)
CONTINUE
PRINT 220
FORMAT (//. 40X. ’ ВТОРОЙ ВАРИАНТ’,//)
PRINT 200. (IN(I),.I —1,10)
DO 230 1-1.36
J= (I—1)" 10
PRINT 240. J, (A12(К, I), K= 1.10)