ГОСТ 25645.127—85 С &
ООП
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
3) = SO*CP
X(1)/R1
F(2)=Q(2)*SP*CP
F(3) =Q(3)*SP
F
F
(
(
5
4
)
)=
=
y
Q
(
(
4
6
)
)
*
*
C
C
P
P
*CP + Q(5)*SP*SP
F
F
{
(6
7
)
) =
=
Q
Q
(
(
9
7
)
)
*
*
C
C
P
PtCP+ Q(8) *SP*SP
F(8
G
)
(
=
1
*
)
Q
=
(
S
1
O
0)
*
*
C
S
P
P*CP
G
G
(
(2
H
)
(
—
l)
S
—
I
Q(1)*CP
H
H(
(
2
3
)
)
=
---
—
--Q
Q
(
(4
3
)
)‘
*
C
S
P
P*SP—Q(5)*CP*CP
H(4) = —Q(2)*CP“SP
H
H
(
(
6
5
)
)
=
-Q
Q
(
(
6
1
)
0
*
)
S
*C
P
P*SP
H (7) —Q (9) *SP
X=X
H (8) - Q(7) *SP*SP+ Q(8) *CP*CP
Z
Y
=
-X
X
X
X
(
(
2
3
)
)
/
/
R
R1
1
В(1) = F(1) + X*F (2) +’Y*F(3) + Z*F (4) + PS* (F(5) + X*F(6)
*+Y
В
*
(
F
2
)
(
=
7)
P
+
S
Z
*
*
(X
F
*
(
G
8)
(
)
l)-f-Y
*
G(
2
)
+ Z*G(3))
Bf3)=H (1)+X*H (2)+Y*H (3)+Z*H (4) +PS* (H (5)+X*H (6)
*+Y*H (7)+Z*H (8))
PRINT 200, XX, Rlf PSI, В
200 FORMAT (//, 16X, ’X’, 9X, ’Y’, 9X. ’Z’, 9X, ’Rl’, 7X,
•’
S
P
T
S
O
I’
P
, 8X, ’EX’. 8X, ’BY’, 8X, ’BZ’, //, 10X, 8F10.4)
END