|
REAL :: summ, cos2, r1, q1, w1, W2, W3
....................
......................
W2 = R1 * R1 + Q1 * Q1
COS2 = R1 * Q1 + W2
COS2 = COS2 * COS2 / 3.0
W1 = SQRT(W2)
.....................
W3 = W1 * W2
...............................
HHS = COS2 / W3
|
评分
-
查看全部评分
|