return %clist;

# weighted ran: получает хэш вероятностей

# и возвращает случайный элемент хэша sub weighted rand {

my %dist = @ ;

my ($key, $weight);

while (1) { # Чтобы избежать погрешностей вычислений

# с плавающей запятой (см. ниже).

гау $rand = rand,

while ( ($кеу, $weight) = each %dist ) { return $key if (Stand -= $weight) <0;

Комментарий

Функция gaussian rand реализует полярный метод Бокса-Мюллера для преобразования двух независимых случайных чисел с однородным распределением, лежащих в интервале от О до 1 в два числа с математическим ожиданием О и стандартным отклонением 1 (то есть распределенных по закону Гаусса). Чтобы сгенерировать числа с другим математическим ожиданием и стандартным отклонением, умножьте выходные данные gaussian rand на нужное стандартное отклонение и прибавьте математическое ожидание:

# gaussian rand - см. выше $mean = 25;

$sdev = 2;

$salary - gaussian rand() * $sdev + $mean; printfCYou have been hired at \$%.2f\n", $salary);

Функция weighted rand получает случайное число из интервала от О до 1. Затем она использует вероятности, сгенерированные weight to dist, и определяет, какому элементу соответствует это случайное число. Из-за погрешностей представления с плавающей запятой накопленные ошибки могут привести к тому, что возвращаемый элемент не будет найден. Поэтому код размещается в цикле while, который в случае неудачи выбирает новое случайное число и делает очередную попытку.

Кроме того, модуль Math::Random с CPAN содержит функции, генерирующие случайные числа для многих распределейий.

> Смотри также-

Описание функции rand в perlfunc(l); рецепт 2.7; документация по модулю Math::Random с CPAN.

2.11. Выполнение тригонометрических вычислений в градусах 81

2.11. Выполнение тригонометрических вычислений в градусах

Проблема

Требуется, чтобы в тригонометрических функциях использовались градусы вместо стандартных для Perl радианов.

Решение

Создайте функции для преобразований между градусами и радианами (2я радиан соответствуют 360 градусам).

BEGIN {

use constant PI => 3,14159265358979;

sub cleg2rad {

my $degrees = shift;

return (Sdegrees / 180) • PI;

sub rad2d6g {

my Sradians = shift;

return (Sradians / PI) - 180;

Также можно воспользоваться модулем Math::Trig:

use Math::Trig;

Sradians = deg2rad($degrees); Sdegrees = rad2deg($radians);

Комментарий

Если вам приходится выполнять большое количество тригонометрических вычислений, подумайте об использовании стандартных модулей Math::Trig или POSIX. В них присутствуют дополнительные тригонометрические функции, которых нет в стандартном Perl. Другой выход заюхючается в определении приведенных выше функций racl2cleg и cleg2rad. В Perl нет встроенной константы я, однако при необходимости ее можно вычислить настолько точно, насколько позволит ваше оборудование для вычислений с плавающей запятой. В приведенном выше решении п является константой, определяемой командой use constant. Синус угла, заданного в градусах, вычисляется следующим образом:

# Функции deg2rad и rad2def приведены выше или взяты из Math;:Trig sub degree sine {

my Sdegrees = shift;

return $result,

0 Смотри также-

Описание функций sm, cos и atan2 в perlfunc{\); стандартная документация по модулям P0S1X и Math::Tng.

2.12. Тригонометрические функции

Проблема

Требуется вычислить значения различных тригонометрических функций - таких как синус, тангенс или арккосинус.

Решение

в Perl существуют лишь стандартные тригонометрические функции sm, cos и atan2. С их помощью можно вычислить тангенс (tan) и другие тригонометрические функции:

sub tan {

my $theta = shift,

return sin($theta)/cos($theta),

В модуле POSIX представлен расширенный набор тригонометрических функций:

use POSIX,

$у = acos(3 7),

Модуль Math::Trig содержит полный набор тригонометрических функций, а также позволяет выполнять операции с комплексными аргументами (или дающие комплексный результат):

use Math Trig, $у = acos(3 7),

Комментарий

Если значение $theta равно nil, Зя/2 и т. д., в функции tan возникает исключительная ситуация деления на ноль, поскольку для этих углов косинус равен нулю. Аналогичные ошибки возникают и во многих функциях модуля Math::Trig. Чтобы перехватить их, воспользуйтесь конструкцией eval:

my Sradians = deg2rad($degrees), my $result= sin($radians),