#!/usr/bin/perl
#

$start_r = 0.1;
$end_r = 50.0;
$dr = 0.1;

for ($r = $start_r; $r <= $end_r; $r += $dr) {

  $t = 279.0*sqrt(1.0/$r);
  printf " %6.3f  %8.2f \n", $r, $t;
}

exit 0;
