Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^5: Node Tension

by Roy Johnson (Monsignor)
on Nov 18, 2005 at 18:49 UTC ( #509898=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Node Tension
in thread Node Tension

You're right. My notion was only to distinguish interesting from non-interesting. You regain the magnitude if you drop a log:

sub tension { my ($hi, $lo) = @_; $lo or return 0; $lo/log($hi + 1); } my @samples = (1, 3, 8, 20, 50, 90); for (map {my $x=$_; map [$x, $_], grep $_ <= $x, @samples} @samples) { printf "%2d-%2d: %3.4f\n", @$_, tension(@$_); } __END__ 1- 1: 1.4427 3- 1: 0.7213 3- 3: 2.1640 8- 1: 0.4551 8- 3: 1.3654 8- 8: 3.6410 20- 1: 0.3285 20- 3: 0.9854 20- 8: 2.6277 20-20: 6.5692 50- 1: 0.2543 50- 3: 0.7630 50- 8: 2.0347 50-20: 5.0867 50-50: 12.7167 90- 1: 0.2217 90- 3: 0.6651 90- 8: 1.7735 90-20: 4.4337 90-50: 11.0844 90-90: 19.9519
I'd call < 1.3 low tension, 1.3-2 moderate, >2 strong.

Caution: Contents may have been coded under pressure.


Comment on Re^5: Node Tension
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://509898]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2015-07-06 06:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (70 votes), past polls