Algorithm-ClusterPoints
view release on metacpan or search on metacpan
example/cluster.pl view on Meta::CPAN
0.53 0.27
0.50 0.19
0.61 0.17
0.47 0.28
0.13 0.15
0.55 0.58
0.36 0.58
0.62 0.30
0.64 0.97
0.88 0.61
0.12 0.24
0.35 0.18
0.40 0.54
0.90 0.20
0.14 0.74
t/cylinder.t view on Meta::CPAN
my @x = ( 0.544460345696681, 0.568466445804983, 0.862554556980758,
0.409095438232068, 0.567847141151876, 0.685328615757253,
0.0795686274517955, 0.29410178608526, 0.520030032850858,
0.236259733286158, 0.0294282551552278, 0.914725723577785,
0.276250858170588, 0.673800841587802, 0.297429085058173,
0.586241459173603, 0.88596413841157, 0.225342515099054,
0.737789393756561, 0.269533367118949, 0.463388079631361,
0.649042080805298, 0.930544874640919, 0.633198454264001,
0.628078652396542, 0.801246157236175, 0.30011506155093,
0.470565399455349, 0.798169572718766, 0.558539849039942 );
my @y = ( 0.358415913711866, 0.0111357565266488, 0.440309055507598,
0.904607404043666, 0.687700131389136, 0.889755301702884,
0.00459189980161057, 0.957928203336728, 0.28874431781307,
0.266509778785981, 0.184030028200354, 0.422151072766916,
0.760171615357649, 0.830166876153932, 0.863055448524406,
0.224287303394128, 0.95541986662036, 0.63777975282688,
0.553363804922625, 0.329798376144389, 0.187917282423371,
0.595342261598297, 0.527584022466343, 0.659698805332873,
0.497660430676518, 0.575629268906887, 0.0512307657694322,
0.931358361154217, 0.576637173055246, 0.357822901527335 );
my $n = @x;
my @sol = ( [ 0, 8, 15, 29 ],
[ 1 ],
[ 2, 11, 22 ],
[ 3, 27 ],
[ 4, 18, 21, 23, 24, 25, 28 ],
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;
use Algorithm::ClusterPoints;
# my @x = (0.616027832031250, 0.152069091796875, 0.190399169921875, 0.61352539062500, 0.560211181640625);
# my @y = (0.151336669921875, 0.058563232421875, 0.240966796875000, 0.65527343750000, 0.620880126953125);
# my @z = (0.325408935546875, 0.380126953125000, 0.726531982421875, 0.72015380859375, 0.141204833984375);
my @x = ( 0.377970428889331, 0.757474348942313, 0.961495921381545,
0.903216480551723, 0.593799354197575, 0.70919235489777,
0.0046957917138748, 0.638839705133567, 0.633172164373651,
0.714415965376023, 0.00873674287852921, 0.161339173272754,
0.693152409072116, 0.862988963206195, 0.139395764531077,
0.0907198474005533, 0.142066930379361, 0.119346794697211,
0.777107704341194, 0.890120929264217, 0.858568553548469,
0.841220984005478, 0.976297734118152, 0.390043955935287,
0.120808641015334, 0.322086223283808, 0.750214304217554,
0.517964196599142, 0.909000759696017, 0.0331313886115971,
0.669543836229327, 0.534106600125799, 0.734656711565368,
0.490535731706249, 0.513088403946956, 0.324167543421968,
0.359776177516881, 0.923831497415851, 0.958787652617975,
0.549763630564346, 0.0192712245038145, 0.171134216993099,
0.553366206475705, 0.707388792714173, 0.0099069259615483,
0.477021927150478, 0.44888781455224, 0.396660938813032,
0.759039345511201, 0.11884456489668, 0.644497484772689,
0.348639407059895, 0.736432133944493, 0.0372447881542861,
0.721632856330661, 0.0149944671694335, 0.822432989489858,
0.89667147215869, 0.310986060345005, 0.768810123411559,
0.995791231359807, 0.251667131638275, 0.779497318797798,
0.0178014684322285, 0.454397736579541, 0.744710518775836,
0.828355664202348, 0.449370310571894, 0.394847574430855,
0.713697381172906, 0.83890610906397, 0.568208800628483,
0.741070717016044, 0.226617755993587, 0.392029674374243,
0.1996736360163, 0.250509909504217, 0.23327312775838,
0.401472957611333, 0.446843873335453, 0.797606546710597,
0.287509719979951, 0.9274528794584, 0.291523159129937,
0.695116237799198, 0.80167711274693, 0.71934409988026,
0.727884787565856, 0.963877521187612, 0.15784288048026,
0.596318094356292, 0.125669980765892, 0.239360364608046,
0.128638577345797, 0.326090140269599, 0.0455956418000341,
0.100150700324605, 0.955393320323154, 0.911930463452421,
0.979627830332547, 0.853527245506825, 0.681211219930802,
0.448095794887791, 0.738777210925193, 0.063286857759465,
0.586648908607415, 0.953837587567449, 0.461072723996708,
0.354974675808535, 0.825649416749471, 0.846143143505998,
0.462369729438521, 0.283675295343585, 0.609388646405094,
0.961365900911318, 0.402648872886729, 0.299521230016239,
0.535690692624158, 0.285901131511224, 0.490461924650319,
0.0960749075949821, 0.91166826246463, 0.806063298036378,
0.698180841295638, 0.876740451276191, 0.167244441655171,
0.137321321859446, 0.210706299887121, 0.324361496151425,
0.707212058913981, 0.843048010790511, 0.58029195488426,
0.309161290830957);
my @z = ( 0.649537369389972, 0.828828198633584, 0.766584584708166,
0.600576411217769, 0.119760777523535, 0.290968545136433,
0.549452257176906, 0.367264137032389, 0.493365275908157,
0.17427266706262, 0.72037474964517, 0.540358899712867,
0.487191162691712, 0.259589772768958, 0.101884962954866,
0.0146285473355015, 0.703503066852644, 0.0833022442925646,
0.0484574055423899, 0.606338705080969, 0.232060756610618,
0.28458992720682, 0.567530417864898, 0.121128637355906,
0.294975592368413, 0.226925377508575, 0.399329666357826,
0.76838369194574, 0.578883874185063, 0.850831315536606,
0.325024156923657, 0.504135576198774, 0.148968333780257,
0.964931536921323, 0.222746017951945, 0.134521715241515,
0.0893590210699777, 0.432326530565728, 0.641005302870578,
0.26183494222526, 0.264444835233402, 0.959325053657619,
0.909031062228305, 0.405194770603924, 0.84562695031104,
0.443562913713048, 0.0535699353084986, 0.877871498443124,
0.498045385334134, 0.0885402076510324, 0.0416735112741797,
0.253294394760513, 0.3718099689853, 0.741608267899505,
0.119005709844284, 0.501775217897357, 0.292266948790424,
0.162437565532525, 0.263201431501184, 0.129978315921374,
0.793832494841805, 0.178997820438735, 0.0218077272294543,
0.905168559060808, 0.891924348052552, 0.938081568521067,
0.254338737785897, 0.996268354169768, 0.737522862942225,
0.707402435927701, 0.547975652500806, 0.613754991224805,
0.548892694953732, 0.93629937031427, 0.326442937610491,
0.480429571852749, 0.464996382301475, 0.532078079137317,
0.921592084121041, 0.715088769889785, 0.21513107235074,
0.559020924979006, 0.127224125203352, 0.961130673971791,
0.749319642528345, 0.817096527903072, 0.00468217311938801,
0.842125962155915, 0.223987465764534, 0.00740032484203468,
0.959745225679708, 0.0763856585734111, 0.98745607046612,
0.441357336015653, 0.360354492232229, 0.832556722113718,
0.459784945020882, 0.50071838838063, 0.214703489182252,
0.158276717139795);
my @t = ( 0.669069047666817, 0.246009321367247, 0.669759760913358,
0.672736139603423, 0.281142079463955, 0.484441321894913,
0.694459591806456, 0.431622015711731, 0.0083859177655583,
0.343305435170528, 0.535902828209906, 0.955785672910885,
0.483028378492115, 0.205144729806086, 0.494054479449822,
0.509955467586487, 0.00424239229590029, 0.907478251953599,
0.818463696225955, 0.774827116263033, 0.843063340071232,
0.265995338354408, 0.438260451825066, 0.526294385606356,
0.429691642370976, 0.207674245794756, 0.420240602240561,
0.801557223832312, 0.677086852729296, 0.830231346967601,
0.533945575198366, 0.993513583521725, 0.944759504890662,
0.954307142740682, 0.552642938089058, 0.56484118584158,
0.396666963945101, 0.984795340830836, 0.16911409480624,
0.323175476172459, 0.757119531369703, 0.147721250884565,
0.655155361491175, 0.448790021142237, 0.718603053976373,
0.419075745964854, 0.643698671183664, 0.716185597066023,
0.505424286765837, 0.712011040444231, 0.66245815737917,
0.600994219792348, 0.347085259687894, 0.138804534304093,
0.298008866492204, 0.213604365955611, 0.865292898307921,
0.413996973840263, 0.119203849225947, 0.250913635634767,
0.628510148379625, 0.715111178774812, 0.738835880848136,
0.40761510641827, 0.377954854324052, 0.567357585774126,
0.642450060373186, 0.938423628875263, 0.678952641614835,
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use Algorithm::ClusterPoints;
# my @x = (0.616027832031250, 0.152069091796875, 0.190399169921875, 0.61352539062500, 0.560211181640625);
# my @y = (0.151336669921875, 0.058563232421875, 0.240966796875000, 0.65527343750000, 0.620880126953125);
# my @z = (0.325408935546875, 0.380126953125000, 0.726531982421875, 0.72015380859375, 0.141204833984375);
my @x = ( 0.370452880859375, 0.540771484375000, 0.068023681640625, 0.947723388671875, 0.379699707031250,
0.118957519531250, 0.919097900390625, 0.404083251953125, 0.890777587890625, 0.077453613281250,
0.313354492187500, 0.799285888671875, 0.388702392578125, 0.605743408203125, 0.923034667968750,
0.216796875000000, 0.778015136718750, 0.497253417968750, 0.012207031250000, 0.504455566406250 );
my @y = ( 0.516418457031250, 0.550109863281250, 0.003204345703125, 0.898040771484375, 0.884124755859375,
( run in 0.477 second using v1.01-cache-2.11-cpan-7add2cbd662 )