Гамма-распределение на Перле

Категория: Perl Комментариев: 0

Маленькая perl-программа, возвращающая случайное число по Гамма-распределению.

#!/usr/bin/perl
# Генератор случайных чисел по закону гамма-распределения

$k = 20;
$a = 10;

$tmp = 1;

for ($i = 0; $i < $k; $i++){
$tmp *= rand[- $tmp * $a,$tmp * $a];
}

$gamma = - log($tmp) / $a;

print $gamma;
Автор: Кто-то   @   9 марта 2009 Комментариев: 0
Метки : , ,

Поблагодарить автора

Webmoney Z163628999150, R617151845974

Похожие записи

Комментариев: 0

Добавить комментарий
Комментариев к этой записи поке нет. Ваш комментарий будет первым.
оставить комментарий

Предыдущая запись
« Следующая запись
»