VPF::Генератор нормальных случайных чисел

СветланаИТ

Дата 20.12.2014, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.12.2014

Репутация: нет
Всего: нет

Н ужно разработать генератор нормальных случайных чисел, где равномерные случайные числа в диапазоне 0< <1. эти числа получить с помощью стандартной процедуры.

Poseidon

Дата 20.12.2014, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Я пот не пойму, а чем randomize-random не нормальные?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Illusion Dolphin

Дата 20.12.2014, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Цитата

а чем randomize-random не нормальные

Может быть тем, что нормальное отличается от randomize-random, кое является непрерывное равномерно распределенным имхо. Автор - уточните, пожалуйста, это ли вам необходимо?

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

imageman

Дата 22.12.2014, 12:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

http://habrahabr.ru/post/208684/

Преобразование равномерно распределенной случайной величины в нормально распределенную

Есть демонстрашка на JavaScript

Этот ответ добавлен с нового Винграда - http://vingrad.com

Regulum

Дата 17.2.2015, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 16.6.2009

Репутация: нет
Всего: 1

Код


uses System;

function GetGaussValue(const m,s: Extended): Extended;
{Функция возвращает случайное число с нормальным распределением
   m - среднее, s - стандартное отклонение}
 var
    a1,a2: Extended;
 begin
    Randomize;
    a1:= Random;
    Randomize;
    a2:= Random;
    GetGaussValue:= m + s*Cos(2*Pi*a1)*Sqrt(-2*Ln(a2));
 end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »