#!/usr/bin/perl
use Math::Trig;

#-------------- 円周率 -----------------------------------
$circle_ratio = pi;             # 円周率は，pi
printf "circle_ratio: %f\n", $circle_ratio;

#-------------- 三角関数の計算 ---------------------------
$angle = deg2rad(30);           # degree から radian への変換
$s = sin($angle);
$c = cos($angle);
$t = tan($angle);

printf "angle: %f[deg]\n", $angle;
printf "sin: %f\tcos: %f\ttan: %f\n", $s, $c, $t;

#-------------- 逆三角関数の計算 ---------------------------
$as  = asin(1.0/2.0);
$ac  = acos(sqrt(3.0)/2.0);
$at  = atan(1.0/sqrt(3.0));
$at2 = atan2(-1.0, -sqrt(3.0));
$as_deg  = rad2deg($as);         # radian から degree への変換
$ac_deg  = rad2deg($ac);
$at_deg  = rad2deg($at);
$at2_deg = rad2deg($at2);
printf "arcsin: %f\t", $as_deg;
printf "arccos: %f\n", $ac_deg;
printf "arctan: %f\t", $at_deg;
printf "arctan2: %f\n", $at2_deg;

#-------------- 双曲線関数の計算 ---------------------------
$sh = sinh(1);
$ch = cosh(1);
$th = tanh(1);

printf "sinh: %f\tcosh: %f\ttanh: %f\n", $sh, $ch, $th;

#-------------- 逆曲線関数の計算 ---------------------------
$ash = asinh(2);
$ach = acosh(2);
$ath = atanh(2);

printf "arcsinh: %f\tarccosh: %f\tarctanh: %f\n", $ash, $ach, $ath;