Help for this page

Select Code to Download

Select or download this

sub tension {
  my ($hi, $lo) = @_;
  $lo or return 0;
  2 * log($lo)/log($hi + .1);
}