[Athen]

всем привет!
не могу понять как сгенерировать числа с нормальным распределением, если известен интервал, например [5;15]. и надо на этом отрезке сгенерировать псевдослучайное число.
помогите пожалуйста написать процедурку!

[T-dayne]

Код:

function TForm1.gen(min, max: integer): integer;
var
ch: integer;
begin
ch:=0;
while ch<min do ch:=random(max+1);
result:=ch;
end;

Будут генерироваться числа включая пределы.

Если "концы" не нужны то:

Код:

function TForm1.gen(min, max: integer): integer;
var
ch: integer;
begin
ch:=0;
while ch<min+1 do ch:=random(max);
result:=ch;
end;

[Athen]

нужно нормальное распределение, а это просто распределение на отрезке..

[KOOL]

http://www.delphisources.ru/pages/fa...tribution.html

[Athen]

Сообщение от KOOL

http://www.delphisources.ru/pages/fa...tribution.html

тут если известны мат ожидание и дисперсия! а мне надо, чтобы по заданному отрезку!

[KOOL]

Мы оказывается не знаем, что такое матожидание, дисперсия и сигма?
в функцию надо передавать не дисперсию, а сигму
Mx=(a+b)/2
σ = (b-Mx)/3 = (Mx-a)/3 (из т.н. правила 3х сигм)