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†

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

User名 私コールサイン

パスワード 最高信号強度

おすすめ

• 記事目録
• ハム活動記
• CW
• 以心電信
• ソフト
• CWおぼえ隊
• 和文おぼえ隊
• Ｆ２キーヤ
• 活動報告

• CirQ-DL
  
• 質問・要望

ハムとは関係がない私のリンク先

• 印刷魂（ブログ）
• 会社案内
• クロスメディアは移転
• 新技術情報
• 西中同期の会
• はい☆チーズ

最新の30件

edit