Экспоненциальное распределение
{Возвращает случайное число, распределенное
по экспоненциальному закону распределения Зависимости: System} function RandomExponent(ex: Extended): Extended;
{ экспоненциальное распределение }
begin Result := - ex * Ln(Random)
end; |
Пример использования:
x := RandomExponent(1); |
