Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Генератор нормальных случайных чисел

Автор: СветланаИТ 20.12.2014, 13:41

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

Автор: Poseidon 20.12.2014, 14:48

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

Автор: Illusion Dolphin 20.12.2014, 17:01

Цитата

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

Может быть тем, что https://ru.wikipedia.org/wiki/%D0%9D%D0%BE%D1%80%D0%BC%D0%B0%D0%BB%D1%8C%D0%BD%D0%BE%D0%B5_%D1%80%D0%B0%D1%81%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5 отличается от randomize-random, кое является https://ru.wikipedia.org/wiki/%D0%9D%D0%B5%D0%BF%D1%80%D0%B5%D1%80%D1%8B%D0%B2%D0%BD%D0%BE%D0%B5_%D1%80%D0%B0%D0%B2%D0%BD%D0%BE%D0%BC%D0%B5%D1%80%D0%BD%D0%BE%D0%B5_%D1%80%D0%B0%D1%81%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5 имхо. Автор - уточните, пожалуйста, это ли вам необходимо?

Автор: imageman 22.12.2014, 12:22

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

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

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

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Generator-normalnykh-sluchaynykh-chisel-id5495527dae2015a8168b4567#findElement_E7045_5497e2beae2015a519e2100f_0

Автор: Regulum 17.2.2015, 14:45

Код


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;