[ 3, 2, 3 ], [ 5, 9, 8 ],

$У = [

[ 4, 7 ], [ 9, 3 ], [ 8, 1 ],

$z = mult($x, $у);

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

Документация по модулю PDL с CPAN.

2.15. Операции с комплексными числами

Проблема

Ваша программа должна работать с комплексными числами, часто используемыми в инженерных, научных и математических расчетах.

Решение

Либо самостоятельно организуйте хранение вещественной и мнимой составляющих комплексного числа, либо воспользуйтесь классом Math::Complex (из стандартной поставки Perl).

Ручное умножение комплексных чисел

# $с = $а • $Ь - моделирование операции

$с геа1 = ( $а геа1 • $Ь геа1 ) - ($a.imaginary * Sbimaginary ); $c imaginary = ( $a real * $b imaginary ) - ($b real • $a imaginary );

Math::Complex

tt Умножение комплексных чисел с помощью Math::Complex use Math::Complex; $c = $a * $b;

Комментарий

Ручное умножение комплексных числа 3+5i и 2-2i выполняется следующим образом:

$a real = 3; $a imaginary =5; # 3 + 5i;

$b real = 2; $b imaginary = -2; # 2 - 2i;

$c real = ($a real * $b real ) - ( $a imaginary * $b imaginary );

$c imaginary = ($a real • $b imaginary ) - ( $b real • $a imaginary );

# mmultO и другие процедуры определены выше $х = [

2.16 Преобразования восьмеричных и шестнадцатеричных чисел 87

print "с = ${c real}+${c imaginary}i\n"; с = 16+41

То же с применением модуля Math::Complex:

use Math::Complex;

$a = Math::Complex->new(3, 5);

$b = Math::Complex->new(2,-2);

$c = $a . $b;

print "c = $c\n";

с = 16+41

Версия 5.004 позволяет создавать комплексные числа с помощью конструкции cplx или экспортированной константы i:

use Math::Complex;

$c = cplx(3,5) * cplx(2,-2); tt Лучше воспринимается

$d = 3 + 4*1: # 3 + 4i

printf "sgrtCSd) = %s\n", sqrt($d);

sqrt(3+4i) = 2+1

В исходном варианте модуля Math::Complex, распространяемом с версией 5.003, не перегружаются многие функции и операторы версии 5.004. Кроме того, Math::Complex используется модулем Math::Trig (появивщимся в версии 5.004), поскольку некоторые функции могут выходить за пределы вещественной оси в комплексную плоскость - например, арксинус 2.

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

Документация по стандартному модулю Math::Complex.

2.16. Преобразования восьмеричных и шестнадцатеричных чисел

Проблема

Требуется преобразовать строку с восьмеричным или щестнадцатеричным представлением (например, "0x55" или "0755") в правильное число.

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

Решение

Воспользуйтесь функциями Perl oct и hex:

Snumber = hex($hexadecimal); tt Шестнадцатеричное число

$number = oct($octal); tt Восьмеричное число

Комментарий

Функция oct преобразует восьмеричные числа как с начальными нулями, так и без них ( 0350" и "350"). Более того, она даже преобразует шестнадцатеричные числа, если у них имеется префикс "Ох". Функция hex преобразует только шестнадцатеричные числа с префиксом "Ох" или без него - например, "0x255", "ЗА", "f f" или "deadbeef" (допускаются символы верхнего и нижнего регистров).

Следующий пример получает число в десятичной, восьмеричной или шестна-дцатеричной системе счисления и выводит его во всех трех системах счисления. Для преобразования из восьмеричной системы используется функция oct. Если введенное число начинается с О, применяется функция hex. Затем функция printf при выводе преобразует число в десятичную, восьмеричную и шестнадцатерич-ную систему:

print Gimme а number in decimal, octal, or hex $num = <STOIN>, chomp $num,

exit unless defined $num,

$num = oct($num) is $num =~ /"0/, # Обрабатывает как восьмеричные,

# так и шестнадцатеричные числа printf %d %х %о\п , $num, $num, $num.

Следующий фрагмент преобразует режимы доступа к файлам UNIX. Режим всегда задается в восьмеричном виде, поэтому вместо hex используется функция oct:

print Enter file permission in octal , Spermissions = <STDIN>,

die Exiting \n unless defined Spermissions, chomp Spermissions,

Spermissions = oct(Spermissions), # Режим доступа всегда задается

# в восьмеричной системе print The decimal value is Spermissions\n,

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

Раздел «Scalar Value Constructors* вperldata(i); описание функций oct и hex в perlfunc(l).

2.17. Вывод запятых в числах

Проблема

при выводе числа требуется вывести запятые после соответствующих разрядов. Длинные числа так воспринимаются намного лучше, особенно в отчетах.

Решение

Обратите строку, чтобы перебирать символы в обратном порядке, - это позволит избежать подстановок в дробной части числа. Затем воспользуйтесь регулярным