MetaChat - Aha!

MetaChat is an informal place for MeFites to touch base and post, discuss and chatter about topics that may not belong on MetaFilter. Questions? Check the FAQ. Please note: This is important.

19 April 2006

Aha! →[More:]



ClusterCenters[l_, δ_] := Total[#]/Length[#] & /@ Module[{pos},

      Fold[(pos = Position[#1, _?(Function[{l2}, Select[l2, 

        Function[{p}, Norm[#2 - p] ≤ δ^2], 1] ≠ {}]), 1, Heads -> False];

            Append[Delete[#1, pos],Append[Flatten[Extract[#1, pos], 1], #2]]) &, {}, l]]

And with that I will be calling it a day. Good DAY!

post by: Wolfdog at: 16:54 | 7 comments

(I have a "furry union" function too, but you don't want to know what that does.)

posted by Wolfdog 19 April | 16:59

(Which comment makes more sense if you know that monstrosity up above used to be called FuzzyUnion, I guess.)

posted by Wolfdog 19 April | 16:59

I want to see the FluffyUnion.

posted by matildaben 19 April | 17:10

I'm afraid Rick Santorum will track you down if you try the Furry Union, and I haven't even considered a FluffyUnion yet.

posted by Wolfdog 19 April | 17:57

is that a clusterfuck rendered geekily?

posted by amberglow 19 April | 18:51

Reminds me, I need to pay my FuzzyUnion dues...

posted by wendell 19 April | 19:46

Ha! I was wondering the same thing, amberglow.
:^)

posted by deborah 19 April | 23:04

← spam, || Hello. I am sweaty and I smell. →

HOME || REGISTER || LOGIN