#!/usr/bin/perl

  $c = 2.99E8;

  printf "\n";

  $limit = 91.13;
  $base = 1.0;

  #$limit = 364.5;
  #$base = 2.0;

  for ($i = $base + 10.0; $i > $base; $i--) {
    $lambda = $limit*($i*$i)/($i*$i - $base*$base);
    $nu = $c/($lambda*1E-9);
    printf "%4d  %6.1f  %12.4e\n ", $i, $lambda, $nu;
  }
  printf "\n";


exit 0;
