Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^3: Node Tension

by Roy Johnson (Monsignor)
on Nov 18, 2005 at 17:25 UTC ( [id://509880] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


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