#!/usr/bin/perl

#############################################
# 数学関数のサンプル
# produced by "Perl Programming Tips"
#############################################

# 絶対値
print "abs(3)      = " . abs(3) . "\n";
print "abs(-3)     = " . abs(-3) . "\n";

# 自然対数の低のべき乗
print "exp(1)      = " . exp(1) . "\n";
print "exp(2)      = " . exp(2) . "\n";

# 一般的な数のべき乗
print "2**4        = " . 2**4 . "\n";
print "-3**3       = " . -3**3 . "\n";

# 平方根
print "sqrt(9)     = " . sqrt(9) . "\n";
print "sqrt(2)     = " . sqrt(2) . "\n";

# 立方根
print "27**(1/3)   = " . 27**(1/3) . "\n";
print "10**(1/3)   = " . 10**(1/3) . "\n";

# 自然対数
print "log(5)      = " . log(5) . "\n";
print "log(exp(5)) = " . log(exp(5)) . "\n";

[g@630m pl]$ perl math03_01.pl
abs(3)      = 3
abs(-3)     = 3
exp(1)      = 2.71828182845905
exp(2)      = 7.38905609893065
2**4        = 16
-3**3       = -27
sqrt(9)     = 3
sqrt(2)     = 1.4142135623731
27**(1/3)   = 3
10**(1/3)   = 2.15443469003188
log(5)      = 1.6094379124341
log(exp(5)) = 5
[g@630m pl]$