r>n r> Ct
Ъ П П П
Q O O O
ГОСТ 25645.323-88 C. 33
9 Т2» ALOG(10 RD • D) )
T= SORT (T2)
X
= T
-
(2. 5155П ♦ 0.8172853 • T + 0.(7)0328 • T 2 )/(I.0 * 1.432788 • T *
0.189269 * T2+#.001308 * T ♦ T2)
IKP - 0.
5)
Ю. 10.12
10 X=-X
GOTO 12
20 PRINT 30
30 l ORMAT<10X. ОШИБКА. Р<0)1П ИР > Г)
STOP
12 RETURN
FNO
SUBROUTINE PRN(P.X)
ВЫЧИСЛЕНИЕ ФУНКЦИИ ВЕРОЯТНОСТИ СТАНДАРТНОГО N(#, 1) НОРМ.
РАСПРЕДЕЛЕНИЯ
f=
АХ * ABS<X)
Т -
1.0/ (10 + 0.2316419 «АХ)
D-0.39B*>423 *F.XP(_X • X/2J0)
Р- 1.0 D • Т • С( ( (1.330274 * Т - 1.821256) • Т+ Г781478)*Т-
1 0.3565638) • Т4 0.3193815)
1F(X) I, 2,2
11.0 -Р
2 RETURN
END
SUBROUTINE
QWS (T. P.
N)
ВЫЧИСЛЕНИЕ P- КВАНТИЛЯ РАСПРЕДЕЛЕНИЯ (ТЫОДЕНТА С N СТЕ
ПЕНЯМИ СВОБОДЫ
")
lf(N. LE.0.OR. P.LT.0. OR.P.GT. 1.) СО ТО 10
AM.
1F(P. LT.0.5)A - - 1.
00-(2. • Р - !.)• A
М * 1
CALL QWK<Т1, 00, M. N)
T » SORT СП)
IMP. LT. 0. 5)T - - T
СОТО I
10 PRINT 20
20 l-’ORMAT
(WX.
‘ОШИБКА, N
< -^0 ИЛИ
P
ВНЕ
<0. I)
STOP
I RETURN
FND
SUBROUTINE PRF (P.F.NI.N2)
ВЫЧИСЛЕНИЕ ФУНКЦИИ F- РАСПРЕДЕЛЕНИЯ CNI.N2 СТЕПЕНЯМИ
СВОБОДЫ
Ш
IF (N2 I.E.0.OR. N1.LE.0 OR.F.LT.0.) СО ТО 14
If (N1. ОТ.OR. N2. СТ. 65) СО ТО 4000