Текст подпрограммы и версий ( Фортран )
bs03r.zip , bs03d.zip 		Тексты тестовых примеров ( Фортран )
tbs03r.zip , tbs03d.zip
Текст подпрограммы и версий ( Си )
bs03r_c.zip , bs03d_c.zip 		Тексты тестовых примеров ( Си )
tbs03r_c.zip , tbs03d_c.zip
Текст подпрограммы и версий ( Паскаль )
bs03r_p.zip , bs03e_p.zip 		Тексты тестовых примеров ( Паскаль )
tbs03r_p.zip , tbs03e_p.zip

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

Назначение

Вычисление медианы заданной выборки.

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

Пусть задан выборочный вектор X = (x1, x2,..., xN). Подпрограмма упорядочивает его компоненты по возрастанию и вычисляет выборочное значение медианы XMED: 

           XMED = x(N + 1)/2   для нечетных N,   

           XMED = 0.5(xN/2 + x(N/2)+1)   для четных N .

С.А.Айвазян, И.С.Енюков, Л.Д.Мешалкин. Прикладная статистика: основы моделирования и первичная обработка данных. М.,"Финансы и статистика", 1983 г.

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

    SUBROUTINE  BS03R (X, N, XMED) 
   Параметры
X - заданный вещественный выборочный вектор длины N;
N - длина вектора X (тип: целый);
XMED - вещественная переменная, содержащая выборочное значение медианы. 
   Версии
BS03D - вычисление медианы выборки в режиме удвоенной точности. 
   Вызываемые подпрограммы
AVZ5R - упорядочивание вектора по возрастанию значений его компонент; используется в подпрограмме BS03R.
AVZ5D - упорядочивание вектора заданного с удвоенной точностью, по возрастанию его компонент; используется в подпрограмме BS03D. 
   Замечания по использованию
  По окончании работы подпрограммы массив X содержит компоненты исходного вектора X в возрастающем порядке.

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

          REAL  X(4) 
          DATA  X /1., 2., 3., 4./ 
          CALL  BS03R (X, 4, XMED) 

Результаты:  XMED = 2.5