[[ハム関連]]

 #!/usr/bin/perl
 
 #デシベル計算
 
 my $argv=$ARGV[0];
 
 if($argv){
 
   my $db = &calc_db($argv);
   print "   $argv db = $db 倍です\n";
   exit;
 }else{
   print "\n Usage:Calc-DB db-num\n";
   print "       Calc-DB 13\n";
   exit;
 }
 
 
 sub calc_db{
   my $db=$_[0];
   return(&round(10**($db/10),3));
 }
 
 sub calc_log{
   my $log=$_[0];
   my $r=&round(log(10),1);
   return (10*(log($log)/$r));
 }
 sub round {
    my $val = shift;    # 四捨五入する数
    my $col = shift;    # 小数点以下のどこまで残すか
    my $r = 10 ** $col;
    my $a = ($val > 0) ? 0.5 : -0.5;
    return int($val * $r + $a) / $r;
 }



トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS