だめぽ。メモメモ。
log_xy = log_ay / log_ax

ref.
- 底がポイントでした（指数・対数の講座（８））
  <http://www.geocities.co.jp/Technopolis-Mars/5427/math/
  fe_explog8.html>
- perldoc -f log

sub log10 {
    my $n = shift;
    return log($n)/log(10);
}