Thursday, February 15, 2007

Perl/펄] 복소수 사칙연산; 덧셈, 뺄셈, 곱셈, 나눗셈; Complex Number

use Math::Complex; 라는 기본 모듈을 사용하면, 펄에서도 복소수를 계산할 수 있습니다. Math::Complex 는 기본 모듈이기에 별도로 설치할 필요는 없습니다.

주의! 파이썬과 달리, 펄에서는 허수 단위가 j (제이) 가 아니라, 수학에서처럼 소문자 i (아이) 입니다.

Math::Complex 모듈, 복소수의 더하기, 빼기, 곱하기, 나누기 예제

파일명: example.pl

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

use Math::Complex;

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

# 복소수의 덧셈
print $a + $b, "\n";
# 출력 결과: 13+5i

# 복소수의 뺄셈
print $a - $b, "\n";
# 출력 결과: 3+i

# 복소수의 곱셈
print $a * $b, "\n";
# 출력 결과: 34+31i

# 복소수의 나눗셈
print $a / $b, "\n";
# 출력 결과: 1.58620689655172-0.0344827586206897i