г>п О о
с. 36 ГОСТ 25645.323-88
1 CONTINUE.
RETURN
end
SUBROUTINE PRИ (Р. XI. N)
ВЫЧИСЛЕНИЕ ФУНКЦИИ-ОШ- РАСПРЕДЕЛЕНИЯ С N СТЕПЕНЯМИСВО
БОДЫ
1
-Q+l.
0
2
Q“ Q+
2
.
1
IRN. LE. B.OR. XI. LT. И.)СО ТО 18
X 3 SORT (XI)
IF(N GT. 14£Г) СО ТО 5Я
Q=8.
IF(N. EQ. 1) СО ТО 5
О=X
1KN. EQ. 3) СО ТО 59
0
*
.
IF(N. EQ. 2)СО ТО 6
М= N/ 2
Y - FLOAT (N) / 2.
Y “ У - FLOAT (М)
IKY. GT, BV) CO TO 1
M * (N - 2) / 2
A • 1.8
Q -8 .8
DO 2 l - l.M
A = A • (X ♦♦ 2) / (2. • FLOAT (I))
2 Q - Q + A
6
Q
" Q*EXP(- I. *(X•* )/
2
.)
GOTO 3
1 M - ( N - l ) / 2
A ‘ X
Q ° X
DO 4 I » 2, M
A ! A ’ (X " 2)/(2. ♦ FLOAT (!) - I.)
4 Q=Q+A
59 Q =Q • EXP (- 1. • (X •• 2) / 2.) • 2. / SORT (2. • 3. 141592)
5 CALL PRN(R.X)
3 P« 1. - О
• ( . - R)
СОТО 1!
5A XX-SORT (2. «XI)-SORT (2 ♦ FLOAT (N) - I.)
CALL PRN(P, XX)
GOTO П
IЙ PRINT 28
28 FORMAT (IffX, -ОШИБКА. N< -0ИЛИ X< Й)
STOP
11 CONTINUE
RETURN
END
SUBROUTINE PRS (P. T. N>