Экспоненциальное распределение

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Экспоненциальное распределение

 

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

 

Зависимости: System

Автор:       Алексей Перов, aperov@rambler.ru, ICQ:102661702, Караганда

Copyright:   Лабораторные работы по курсу "Моделирование информационных систем", КарГТУ

Дата:        25 апреля 2002 г.

********************************************** }

 

function RandomExponent(ex: Extended): Extended;

{ экспоненциальное распределение }

begin

Result := - ex * Ln(Random)

end;

 

 

 

 

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

Code:

x := RandomExponent(1);

 

©Drkb::04138