|
Текст подпрограммы и версий ( Фортран ) gsu3r.zip |
Тексты тестовых примеров ( Фортран ) tgsu3r.zip |
|
Текст подпрограммы и версий ( Си ) gsu3r_c.zip |
Тексты тестовых примеров ( Си ) tgsu3r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) gsu3r_p.zip |
Тексты тестовых примеров ( Паскаль ) tgsu3r_p.zip |
Генерация массива вещественных псевдослучайных чисел, pавномеpно распределенных в заданном интервале.
Псевдослучайные числа R (J) вычисляются по формуле:
R(J) = A + (B-A) * R01(J)
где A, B - границы заданного интервала ,
R01 (J) - псевдослучайные числа ,
pавномеpно распределенные в интервале (0, 1) ,
вычисленные с помощью подпрограммы GSU1R.
Д.Кнут. Искусство программирования для ЭВМ, т. 2. "Мир", M.: 1977.
SUBROUTINE GSU3R (ISEED, A, B, N, R)
Параметры
| ISEED - | целая переменная, значение которой перед обращением к подпрограмме может быть любым целым числом в пределах [1, 214748646]; по окончании работы ей присваивается новое значение, котоpое может быть использовано при последующих обращениях к подпрограмме; |
| A - | левая граница интервала (тип: вещественный); |
| B - | правая граница интервала (тип: вещественный); |
| N - | заданное количество генерируемых псевдослучайных чисел (тип: целый); |
| R - | вещественный массив длины N, содержащий вычисленные псевдослучайные числа. |
Версии: нет
Вызываемые подпрограммы
| GSU1R - | генерация массива псевдослучайных чисел, pавномеpно распределенных в интервале (0, 1). |
Замечания по использованию: нет
DIMENSION R(2)
ISEED = 1544170913
CALL GSU3R (ISEED, -1., 2., 2, R)
Результаты:
ISEED = 882687915
R(1) = - 0.2447055932134
R(2) = 0.2331007723697