ハム活動記
perl で計算
my $hansya_keisuu; for (my $swr=1; $swr<5; $swr+=0.1){ $hansya_keisuu = ($swr-1) / ($swr+1); my $loss = int(($hansya_keisuu**2) * 100); print "swr=$swr loss=$loss %\n"; }