20dbは何倍か？Perlソースコード の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 20dbは何倍か？Perlソースコード へ行く。

[[ハム関連]]

 #!/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;
 }

***これをAutomater [#g829cdae]

Macには自動化ソフト が付いている。こんな風にコーディングしてあげると、文字入力ダイアログが出て来て数字を入れてあげると計算してくれる

&ref(./calc.png,50%);