Select Code to Download

    x: basic frequency (Hz)    (number  > 0) 
    n: maximum harmonic factor (integer > 0)

      ( x <= y          )
    &&(      y <= n * x )

=for Example:
  sub Harmonics ($$) { ...add your code here... }
  print join( "\n", Harmonics( 100, 6 ) );
...
    500.000  # 100 * 5/1
    600.000  # 100 * 6/1
=cut

#!usr/bin/perl -w
sub Harmonics ($$) {
for$i(1..$_[1]){for$j(1..$i){$y{sprintf"%.3f",$_[0]*$i/$j}=1}}sort{$a<
+=>$b}keys%y
}
print join( "\n", Harmonics( 100, 6 ) );