Re^2: Randomly biased, random numbers.

Nice thought. I tried this and several variations on it:

my $start = [ int( rand 500 ), int( rand 500 ) ];
my @points = map{
    my $a = rand( 2*PI );
    my $d = int( rand 500 );
    my $x = $d * cos( $a );
    my $y = $d * sin( $a );
    $x -= 500 while $x > 500;
    $x += 500 while $x < 0;
    $y -= 500 while $y > 500;
    $y += 500 while $y < 0;
    [ $x, $y ];
} 1 .. $N;
[download]

Whilst it certainly tends to create clusters, the clusters tend to be (very) evenly distributed, which doesn't trigger the worse case.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^2: Randomly biased, random numbers. Download Code

Replies are listed 'Best First'.
Re^3: Randomly biased, random numbers. by RichardK (Parson) on Dec 06, 2013 at 11:32 UTC
How about using a inverse log distance distribution? Maybe something like this :- `my $d = max_distance * ( 1 - log( rand(1000) ) / log( 1000 ) );` [download]	[reply] [d/l]
Re^4: Randomly biased, random numbers. by BrowserUk (Patriarch) on Dec 06, 2013 at 18:54 UTC
See Re^2: Randomly biased, random numbers. for a similar type of mapping function and why its not suitable. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]