С. 16
ГОСТ 25645.126—85
OIOS
0I09
ОНО
0П1
0113
0114
0115
0116
0117
0118
0119
0120
0121
0122
0123
0124
0125
0126
0127
0129
0130
0131
0132
0133
01.34
0135
0136
0137
0138
0139
0140
0141
0142
0143
0144
0145
0146
0147
0148
0150
0152
0153
0154
0155
0156
0157
0158
0159
0160
0161
0162
0164
01С5
GOTO 32
31 LI-RS/R1
32 Al-ABSISIN(F))
IF(Л1I.T.A3) GOTO 33
A l-SJN (F)
GOTO 34
33 A!—A3
34 X—0.
Y -0.
Z -0
J -0 .
DO 35 N-2.NH
DO 35 M*=1.N
A2-<M —1)/AI
Jr—J4-1
X -X + (G(J) U2<M)-fGl(J) Ul(M)).L|. (N+n -R(M.N)
Y= Y-r(G(J) Ul (M)—G1 (J) •U2(M1) LI • • <N+ 1) P(M.N) -A2
35 Z -Z + (-l)-N (GfJ) U2(M)- Gl<J)-i;i(M)) LI--(N + l) P|M.N’
IF(E.F.Q.0.| GOTO 36
1 XI —X-S2+ZS1
Z I-Z S 2 -X S 1
X^X l
Z -Z l
36 T = SQRT(X -2+Y- 2 1Z -2)
IlC-SQRT(X--2+Y-2)
D-ATAN(YZX)
IF (Y) 38.37Л7
37 1F(X) 40.41.41
38 IF(Xl 40. 39.39
39 D -2 . PI+ D
GOTO 11
40 D= P1+D
41 LP-ATAN(Z(HC)
1F(D-PI) 43.42.42
42 D—D -2 PI
43 1.(1) =LU lAO1745329
LP-L P/.01745329
D -D ,’01745329
IF(I.EQ.l) GOTO 44
l!-(I KQ 1K+GS1 GOTO 48
GOTO 66
44 PRINT 63
63 FORMAT</MX/Нl’,5X.’F’,5X,’L’,6X/X’,7X.’Y’.7X.
•’Z’.7X.’T’.7X.’H’.6\7D’.5X.T//>
64 FORMAT(F8.1,2F6.1.5F8 I.2F6 1)
66 PRINT 61,111 (l).Fl(I),I.(I),X.Y.Z.T.HC.D.LP
GOTO 49
48 IK-OK+67
IN —IN-t-1
PRINT 19.IN
GOTO 44
49 IF(l.LTKT) GOTO 20
STOP
F.ND