osmo-sdr/utils/e4000_distance.pl @ master
1 |
#!/usr/bin/perl -w
|
---|---|
2 |
|
3 |
use strict; |
4 |
|
5 |
my $min_distance = 0xffffff; |
6 |
my $max_distance = 0; |
7 |
|
8 |
my $freq_old = 0; |
9 |
|
10 |
while (my $line = <STDIN>) { |
11 |
my ($freq) = $line =~ /^(\d+) /; |
12 |
|
13 |
if ($freq_old != 0) { |
14 |
my $diff = $freq - $freq_old; |
15 |
if ($diff < $min_distance) { |
16 |
$min_distance = $diff; |
17 |
}
|
18 |
if ($diff > $max_distance) { |
19 |
printf("New max distance at %u vs %u Hz: %u |
20 |
Hz\n", $freq_old, $freq, $diff); |
21 |
$max_distance = $diff; |
22 |
}
|
23 |
}
|
24 |
$freq_old = $freq; |
25 |
}
|
26 |
|
27 |
printf("Min distance = %u Hz\n", $min_distance); |
28 |
printf("Max distance = %u Hz\n", $max_distance); |