11 lines
248 B
Perl
11 lines
248 B
Perl
|
#!/usr/bin/perl
|
||
|
|
||
|
my $f_in = 26*1000*1000;
|
||
|
|
||
|
for (my $mult = 1; $mult < 31; $mult++) {
|
||
|
for (my $div = 0; $div < 3; $div++) {
|
||
|
my $fout = $f_in * ($mult / ($div+1));
|
||
|
printf("%03.1f MHz (mult=%2u, div=%1u)\n", $fout/(1000*1000), $mult, $div);
|
||
|
}
|
||
|
}
|