"нормальная" функция распределения

[leiprechain]

Добрый вечер!
Можете пожалуйста помочь написать программу, которая считает "нормальную" функцию распределения при заданном x.
Заранее спасибо.

[Mad_Cat]

Можете пожалуйста помочь написать программу

Язык какой?

Нормальное распределение

Автор: Mystic
WEB-сайт: http://delphibase.endimus.com

{delphi/pascal}
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Нормальное распределение

Возвращает случайное число, распределенное по нормальному закону распределения
с заданным математическим ожиданием и дисперсией

Зависимости: System
Автор:       Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков
Copyright:   Из книги Полякова и Круглова "Turbo Pascal 5.5"
Дата:        25 апреля 2002 г.
***************************************************** }

function Gauss(Mx, Sigma: Extended): Extended;
var
  a, b, r, Sq: Extended;
begin
  repeat
    a := 2 * Random - 1;
    b := 2 * Random - 1;
    r := Sqr(a) + Srq(b);
  until r < 1;
  Sq := Sqrt(-2 * Ln(r) / r);
  Result := Mx + Sigma * a * Sq;
end;

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

X := Gauss(0, 1);

и тут еще гляньте

[leiprechain]

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

Язык какой?

Нормальное распределение

{delphi/pascal}
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Нормальное распределение

Возвращает случайное число, распределенное по нормальному закону распределения
с заданным математическим ожиданием и дисперсией

Зависимости: System
Автор:       Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков
Copyright:   Из книги Полякова и Круглова "Turbo Pascal 5.5"
Дата:        25 апреля 2002 г.
***************************************************** }

function Gauss(Mx, Sigma: Extended): Extended;
var
  a, b, r, Sq: Extended;
begin
  repeat
    a := 2 * Random - 1;
    b := 2 * Random - 1;
    r := Sqr(a) + Srq(b);
  until r < 1;
  Sq := Sqrt(-2 * Ln(r) / r);
  Result := Mx + Sigma * a * Sq;
end;

X := Gauss(0, 1);

и тут еще гляньте

Спасибо огромное Mad_Cat) в очередной раз от неприятностей спас. Мне надо было на паскале писать, так что уже перевёл) единственное осталось разобраться с самой функцией. Ещё раз спс.