Perl/펄] 복소수 절대값, 실수부, 허수부 구하기 함수; Complex Number Absolute Value, Magnitude

#!/usr/bin/perl
use strict; use warnings;

use Math::Complex;

my $a = 8+3*i;  # 복소수 8+3i 를 대입



# 복소수의 절대값
print abs($a), "\n";
# 출력 결과: 8.54400374531753
# 8+3i의 경우, 8^2 + 3^2 의 제곱근입니다.


# 복소수의 실수부 구하기
print Re($a), "\n";
# 출력 결과: 8


# 복소수의 허수부 구하기
print Im($a), "\n";
# 출력 결과: 3


# abs 함수 없이, 절대값 구하기
my $x = sqrt(Re($a)**2 + Im($a)**2);
print $x;
# 출력 결과: 8.54400374531753