osmo-sdr/utils/e4000_distance.pl @ master
1 | d5be5374 | Harald Welte | #!/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); |