Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.srcc.msu.ru/num_anal/lib_na/cat/sf/sf80r.htm
Дата изменения: Mon Mar 14 11:07:51 2011
Дата индексирования: Mon Feb 4 02:21:29 2013
Кодировка: Windows-1251
БЧА НИВЦ МГУ. SF80R. Специальные функции математической статистики
Текст подпрограммы и версий ( Фортран )
sf80r.zip  		Тексты тестовых примеров ( Фортран )
tsf80r.zip 
Текст подпрограммы и версий ( Си )
sf80r_c.zip  		Тексты тестовых примеров ( Си )
tsf80r_c.zip 
Текст подпрограммы и версий ( Паскаль )
sf80r_p.zip 		Тексты тестовых примеров ( Паскаль )
tsf80r_p.zip

Подпрограмма:  SF80R

Назначение

Вычисление функции распределения вероятностей Парето.

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

Подпрограмма SF80R вычисляет вероятность  P того, что случайная величина, имеющая распределение Парето с параметрами  A, x0, меньше или pавна значению  x: 

                         x
        P = A/x0  т (x0 / Z)A - 1 dZ  ,      x ? x0 > 0  ,   A > 0
                       x0

Справочник по теории вероятностей. Под ред. M.Абрамовица, И.Стеган. M.: "Hаука", 1979.

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

    SUBROUTINE  SF80R (X, A, X0, P, IERR) 
   Параметры
X - заданное значение аргумента  x (тип: вещественный);
A, X0 - заданные значения параметров распределения Парето (тип: вещественный);
P - вещественная переменная, содержащая вычисленное значение функции распределения Парето;
IERR - целая переменная, служащая для сообщения об ошибках; при этом:
IERR=65 - когда  A ? 0 либо  x0 ? 0; значение функции распределения полагается равным нулю. 
   Версии:  нет 
   Вызываемые подпрограммы
UTSF16 - подпрограмма выдачи диагностических сообщений при работе подпрограммы SF80R. 
   Замечания по использованию:  нет

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

         CALL  SF80R (4.0, 1.0, 1.0, P, IERR)

Результаты:    P  =  0.75 ,   IERR  =  0