Распределение паскаля

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

Реализация на Perl закона распределения Паскаля.
#!/usr/bin/perl
# Генератор случайных чисел по закону распределения Паскаля

$a = 20;
$k = 10;

$tmp = 1;

$a = log($a);

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

$pascal = log($tmp) / $a;

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

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

Webmoney Z163628999150, R617151845974

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

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

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

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