Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
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 scrutinizing the Monastery: (14)
As of 2014-08-28 12:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (259 votes), past polls