Текст подпрограммы и версий ( Фортран )
sf43r.zip  sf43d.zip  		Тексты тестовых примеров ( Фортран )
tsf43r.zip  tsf43d.zip 
Текст подпрограммы и версий ( Си )
sf43r_c.zip  sf43d_c.zip  		Тексты тестовых примеров ( Си )
tsf43r_c.zip  tsf43d_c.zip 
Текст подпрограммы и версий ( Паскаль )
sf43r_p.zip , sf43e_p.zip 		Тексты тестовых примеров ( Паскаль )
tsf43r_p.zip , tsf43e_p.zip

Функция:  SF43R

Назначение

Вычисление функции  F - распределения вероятностей (распределение Снедекора) с вещественными степенями свободы.

Математическое описание

SF43R вычисляет вероятность того, что случайная величина, подчиненная закону  F - распределения вероятностей (распределению Снедекора) с вещественными степенями свободы, меньше или равна значению  f .

M.Abramowitz, I.A.Stegun, Handbook of Mathematical Functions, New York, Dover Publications, INC., 1965.

Использование 

    REAL  FUNCTION  SF43R (F, AN1, AN2, IERR) 
   Параметры
F - заданное значение аргумента f (тип: вещественный);
         AN1 -
         AN2   		заданные значения степеней свободы (тип: вещественный);
IERR - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом:
IERR=65 - когда одна или обе степени свободы меньше или равны 0; значения функции полагаются равными 3.4E38;
IERR=66 - когда заданный предел интегрирования меньше 0; значение функции полагается равным 3.4E38. 
   Версии
SF43D - вычисление функции  F - распределения вероятностей (распределение Снедекора) с вещественными степенями свободы с повышенной точностью. 
   Вызываемые подпрограммы
SF36R - вычисление бета - функции распределения вероятностей Ix (p, q) (используется в SF43R).
SF36D - вычисление бета - функции распределения вероятностей Ix (p, q) с повышенной точностью (используется в SF43D).
UTSF12 - подпрограмма выдачи диагностических сообщений при работе функции SF43R.
UTSF13 - подпрограмма выдачи диагностических сообщений при работе функции SF43D. 
   Замечания по использованию
  B SF43D параметры F, AN1 и AN2 должны иметь тип DOUBLE PRECISION и при IERR ≠ 0 значение SF43D полагается равным 1.7D308.

Пример использования 

         F = 4. / 9.
         AN1 = 12.
         AN2 = 8.
         Y = SF43R (F, AN1, AN2, IERR)

Результаты:

       Y  =  0.099352575999
       IERR = 0