Algorithm-DBSCAN
view release on metacpan or search on metacpan
lib/Algorithm/DBSCAN.pm view on Meta::CPAN
More information can be found on Wikipedia: L<DBSCAN|https://en.wikipedia.org/wiki/DBSCAN>
The simple usage:
use Algorithm::DBSCAN;
my $points_data_file =
'point_1 56.514307478581514 37.146118456702034
point_2 34.02049221667614 46.024651786417536
point_3 23.473087508078684 60.62328221968349
point_4 10.418513808840482 24.59808378533684
point_5 10.583414831970764 25.902459835735534
point_6 9.756855426925464 24.062840099892146
point_7 10.567067873860672 22.32511341184489
point_8 11.070046359352189 25.91278382647844
point_9 9.537780590838175 25.000630928726288
point_10 10.507367338512058 27.637356924097915
point_11 11.949089580614444 30.67843911922257
point_12 10.373548645248105 25.699863108892945
point_13 47.061169019689615 12.482585189174058
point_14 47.00269836645959 12.04880276389404
point_15 47.197663384856476 12.899232975457025
point_16 44.3719178488551 15.41709269630616
point_17 46.31921200316786 12.556849509965417
point_18 44.128763621333135 14.657970021594974
point_19 48.89953587475758 15.183892607591467
point_20 52.15333345222132 16.354597634497154
point_21 50.03978361242539 14.85901473647285';
my $dataset = Algorithm::DBSCAN::Dataset->new();
my @lines = split(/\n\s+/, $points_data_file);
t/02-module-synopsis-code.t view on Meta::CPAN
}
say "RESULT OK";
return 1;
}
my $points_data_file =
'point_1 56.514307478581514 37.146118456702034
point_2 34.02049221667614 46.024651786417536
point_3 23.473087508078684 60.62328221968349
point_4 10.418513808840482 24.59808378533684
point_5 10.583414831970764 25.902459835735534
point_6 9.756855426925464 24.062840099892146
point_7 10.567067873860672 22.32511341184489
point_8 11.070046359352189 25.91278382647844
point_9 9.537780590838175 25.000630928726288
point_10 10.507367338512058 27.637356924097915
point_11 11.949089580614444 30.67843911922257
point_12 10.373548645248105 25.699863108892945
point_13 47.061169019689615 12.482585189174058
point_14 47.00269836645959 12.04880276389404
point_15 47.197663384856476 12.899232975457025
point_16 44.3719178488551 15.41709269630616
point_17 46.31921200316786 12.556849509965417
point_18 44.128763621333135 14.657970021594974
point_19 48.89953587475758 15.183892607591467
point_20 52.15333345222132 16.354597634497154
point_21 50.03978361242539 14.85901473647285';
my $dataset = Algorithm::DBSCAN::Dataset->new();
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
48 515.4566643184078 488.10526750330695
49 46.02172335897707 1229.5888337257652
50 1542.5229201279208 651.9052179353256
51 80.38498737632969 611.1649207042624
52 845.5617475961018 1306.1981930962256
53 923.5324205536095 974.3438562194768
54 272.39843297845056 1665.425959232981
55 658.756515092096 1187.6381111584315
56 556.9699948857967 957.2831017008172
57 1678.6319525657314 1247.4472939866619
58 1522.918609277261 1603.2632568539404
59 1053.5623013184413 84.62750209177204
60 2048.2890427290504 289.2617284757983
61 889.1632132146249 825.196031509018
62 2102.3860173317003 807.7316484800999
63 1750.7168448144066 1981.9304402673501
64 495.29079482777104 932.1227708866729
65 346.2594662376612 446.22398081393953
66 1880.244955216496 2262.218675122222
67 1839.6077568067064 1284.500273095305
68 577.8247999442299 1266.9131050550354
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
177 621.1069206337584 1499.7516368961099
178 1133.7713429355554 1016.4085684901981
179 1130.7668608597917 1018.6153126726189
180 1135.092539928752 1016.0432198543372
181 1131.602246690439 1014.5234570186283
182 1132.3612723708516 1017.6539714256988
183 1130.7873816063823 1017.2967338168834
184 1131.734578521544 1017.9857430195098
185 1134.0239937175047 1016.8517106113976
186 1135.1378169319705 1019.0621323200377
187 1133.6952321421404 1016.8537429010393
188 1132.595113723853 1016.8962996739715
189 1131.54750327322 1017.7773747015893
190 1135.4878205633154 1017.5563350499589
191 1130.2723919652235 1015.7599575433633
192 1128.5326160000043 1016.2227407284714
193 1134.2267482348946 1020.0033931156423
194 1132.2813294666341 1018.9266809385136
195 1131.9629329282168 1021.5865112466613
196 1129.037213538521 1019.5663549828886
197 1129.0583703472307 1017.7187229234934
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
202 1129.3354475997871 1019.0680695849076
203 1130.3608338681465 1017.1006531936441
204 1133.4211287123276 1017.074605559307
205 1133.9370354523587 1015.5526149336761
206 1129.0455892576294 1014.8585718757128
207 1133.166700888432 1015.8732174316799
208 1126.8541035866447 1016.8511229556003
209 1130.181553420411 1017.5079462305628
210 1133.6387587072934 1016.1546203174007
211 1133.602656234469 1015.5140162761039
212 1133.0835856224292 1015.1394073404958
213 1133.5232636089556 1013.0480474570337
214 1133.4204643179046 1016.0147614515263
215 1134.3635869145678 1011.7386680637401
216 1135.3629236874663 1016.8693234993503
217 1136.3444422404948 1014.3591933493992
218 1131.590256905311 1014.0087764100058
219 1136.400839587369 1013.0344903180686
220 1136.5271733090574 1013.8272309965982
221 1132.7603238616425 1013.6023521013656
222 1137.1088014622692 1014.4650822009764
223 1138.8114585949813 1015.9018975514034
224 1134.5627855661794 1014.1371615295277
225 1135.794304122236 1011.1663290820494
226 1140.6512020066675 1013.7343141636488
227 1136.765007395255 1017.8767081302401
228 1134.4110624630357 1016.701752140224
229 1138.7742357952711 1013.8543172718514
230 1137.3411563998543 1010.6316084053338
231 1135.9702362780838 1011.3673714355317
232 1137.8255101888058 1015.5689303241793
233 1134.769670504323 1014.562112607765
234 1137.9759949179527 1014.9881937839656
235 1133.7330027937298 1011.7129540608046
236 1135.3061047784404 1017.5867695199861
237 1132.1274981234358 1014.4320789457637
238 1135.0516531013438 1016.6928518158556
239 1134.7415893741927 1015.5166729735065
240 1131.0703831272085 1015.6582442221463
241 1134.413176178834 1014.2109321416631
242 1131.465771625716 1012.445514360702
243 1134.7501240558315 1012.8897135251825
244 1132.9907727222599 1017.7280761999666
245 1132.4627169875314 1015.0477349591231
246 1131.0508277646347 1014.9650033218627
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
270 188.04154429335 554.1727158427161
271 188.5893439146773 554.6985846027889
272 189.78741038279625 551.7810614856805
273 191.62981098161032 552.2361407873235
274 187.0607058672598 555.8398414950108
275 186.88830608058922 556.7036303921327
276 191.35438968762475 554.6234509504213
277 192.26971894687563 551.5356463734271
278 192.2192475001792 552.3432483475752
279 190.5704256854331 551.9132718647992
280 188.46651414044692 550.4799826229522
281 189.08501487147345 551.3251032475303
282 195.1336128897422 551.9831015195027
283 190.0614037785384 549.8522310781667
284 189.53460312320288 552.1373019214054
285 191.3754774393642 551.2018644521391
286 194.6848139559469 551.0221112294004
287 194.08026047098488 554.6621793020807
288 193.31256749867657 551.7459184743985
289 195.79094157289384 552.9834214497151
290 192.51141453322893 549.1553618571345
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
331 193.5513727366111 558.9931997028258
332 751.9297115600984 1373.4344160239857
333 748.8559238639374 1372.1901285159865
334 749.4071132962716 1370.6460123321256
335 751.9513477735225 1374.8756468996198
336 752.6094291593633 1372.3213675725929
337 754.4822301461043 1375.4065826830767
338 753.6722666001191 1372.0497769521883
339 748.004137284635 1373.667678798065
340 755.7862957316078 1372.8448444900398
341 751.7762512069295 1371.7750404927797
342 752.0321576116665 1373.3502825812598
343 751.64460462229 1369.8030096882374
344 750.0749353031654 1368.6348364982314
345 754.506554000824 1370.2147829120854
346 752.2241978701138 1370.1723183299434
347 752.0486942252008 1366.2522235732663
348 755.1671574263471 1371.632922127774
349 749.9623354971772 1371.6113261561632
350 752.877988211844 1369.6363554846791
351 752.9018581928443 1370.3346952936345
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
394 748.2965520588264 1373.2349358931426
395 749.6173877369985 1372.9584520215208
396 750.441220949147 1372.997055711366
397 748.8028326126343 1373.9866338357717
398 750.3001340381231 1373.363696247864
399 748.5180852515426 1370.6822215180675
400 751.4314803255792 1371.114488036629
401 752.952111584095 1375.4765405075054
402 751.9865778001143 1376.4398759829637
403 748.893686197563 1372.49152263969
404 747.7733579599349 1375.6521108094782
405 749.768179415783 1373.2093993635538
406 752.0989701674279 1375.706895795608
407 748.2445293353144 1370.750053174737
408 749.5630563645263 1374.1584897739237
409 752.7822684148547 1374.9343042408632
410 753.7505099660318 1375.6762901288328
411 755.8973829754954 1374.7348069925154
412 750.8685793191516 1372.8221602651117
413 753.658431111307 1372.8908403399098
414 756.3982576242208 1374.2220616049667
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
444 2178.318036799663 2040.0412201326008
445 2176.32694843823 2036.294306087373
446 2177.9196503133257 2037.4650357417402
447 2174.1517579994857 2041.9508357144548
448 2178.1642722579886 2040.8425869521095
449 2174.3701829639103 2043.373536536236
450 2173.7155155292867 2042.564918763568
451 2176.9886440629857 2036.3685707082561
452 2174.300108638964 2042.0099019475183
453 2175.6413419000355 2043.450871411003
454 2172.501140457 2045.2385185851306
455 2172.424724288494 2041.8925143541283
456 2175.8754699680007 2044.7375082556498
457 2177.7005132751688 2041.2015717648144
458 2177.2667275723716 2044.5865790584692
459 2174.052548001169 2044.0068622317258
460 2175.9668481933604 2039.468474510065
461 2179.1289246969004 2042.5303562562974
462 2173.8019339569732 2042.1683834553687
463 2175.698055451937 2040.1902425645224
464 2175.205160981443 2038.5952057471509
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
504 2176.0497385471713 2040.501097013692
505 2173.3196755720287 2036.078632562392
506 2179.77069571728 2038.8724636825639
507 2173.5043505204203 2036.1157961510405
508 792.0051790860417 2209.717340349739
509 792.8988968947516 2206.537107316425
510 793.8163889025371 2206.254157766704
511 793.1431693274957 2207.0003186875538
512 795.5927814458129 2209.998918153464
513 792.0761051080785 2211.9116387839244
514 790.8404019208722 2210.1650638801293
515 793.1397017331155 2209.7443948022315
516 792.3244517063979 2213.3891706824757
517 788.8946874692426 2212.166495632401
518 793.3475333601365 2211.6766641992945
519 789.9772033604836 2208.7269824798823
520 791.8768683898841 2209.175308424913
521 789.1143132040062 2209.2229308479955
522 787.3824904912734 2208.5051362450677
523 789.2817602899371 2211.93022744452
524 791.2900969223293 2208.286132396362
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
599 992.538762876881 534.245839914061
600 994.7124276100897 530.6870970956267
601 992.8699529006715 530.0035744242273
602 994.1699142716101 534.3961294970319
603 991.4455031907526 534.3904729093083
604 989.8668538647572 530.614783199254
605 992.5280665714109 531.4149636525029
606 995.28038374071 530.0537842759815
607 985.5102940633889 534.1064000970704
608 986.4478917676113 531.3192923860867
609 988.3429303207391 534.8949668137404
610 983.7371909439202 533.1560291747396
611 982.8925140537905 535.9612426179965
612 981.9724131554005 534.8674710314491
613 984.5616512627863 537.7681551377768
614 984.76833526737 536.0378109668986
615 982.1860817344808 533.0510982511986
616 983.1754692548998 534.1850386189446
617 985.9260598306315 536.4504444684356
618 987.3926862368011 535.7402128592254
619 986.0232147441401 538.3521083339133
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
675 1185.9569827442117 1645.9220631237397
676 1192.494145935384 1646.4979645844082
677 1193.1131767592076 1646.0711397461969
678 1192.0155047727314 1646.87519979759
679 1193.5037694457642 1643.5794429252837
680 1188.7213158692546 1647.8732419112246
681 1190.5303629471016 1644.1490329249793
682 1187.9053599157903 1646.7186739599138
683 1190.8389369850622 1641.7986156196516
684 1188.6279072776683 1644.000158245215
685 1185.981421404658 1643.8188740800322
686 1188.6595783069429 1644.0068426722037
687 1192.4307033035611 1645.1873244862143
688 1189.323745391648 1640.2116887830625
689 1185.8290222492337 1643.2698693862515
690 1190.2220222099747 1647.09000405625
691 1189.7440947416585 1645.8335673293977
692 1188.2610489153546 1640.977344269062
693 1189.9384384354976 1644.5872096914825
694 1187.610976323411 1641.4295086446057
695 1186.5664518650574 1643.1460098322711
t/test_datasets/dbscan_test_dataset_1.txt view on Meta::CPAN
757 100.20756009973509 707.2311667710866
758 101.82822726376277 709.376985099924
759 98.11987527613371 706.8944796749169
760 102.80223760145236 708.5301793253499
761 101.14121256693153 709.1817362401646
762 102.26519479866758 708.0147983195975
763 100.09474207770295 709.4963967793838
764 103.69892936082326 711.6658728545478
765 103.77460908321358 711.0199374727973
766 98.91127723908376 709.6539828347726
767 102.75769312407695 710.4606640486885
768 99.48049919917915 709.7797487233754
769 102.5263341005637 707.2003450662221
770 99.56532417885954 707.5818496792576
771 104.09996518609836 711.4324716644282
772 97.24065441807433 708.8640788964078
773 100.24534046670374 707.8228425663723
774 99.30640848218522 708.3876835224803
775 97.32127701145957 709.1211803701686
776 96.75504577333054 707.7372868098931
777 95.52124962677706 708.161323535293
778 95.5330452031423 708.6321693343385
779 96.09398813236379 708.6273333445132
780 99.23080269421412 712.0587509842863
781 96.49839192862441 711.3036306655857
782 99.93788541919888 708.4309438597048
783 99.08297974391604 710.4932172953695
784 99.96047720095903 712.6555898539614
785 100.36359791697308 713.0166361912363
786 99.81477278580815 714.1822833369375
787 101.65419028694677 710.7972317510602
788 98.70443771989977 708.4885851991153
789 96.28584487852227 709.3266161689645
790 97.04730731021108 709.3848764838016
791 98.79785486824115 707.6324322446685
792 96.47513440436134 709.5672676575778
793 96.54359938367087 708.4297078821638
794 99.82894696624005 710.1667326168586
795 100.7631546297956 706.2805331201025
796 102.97469179371895 708.0295212900402
797 98.13504576223816 710.5180682188007
798 98.4420542397947 708.6038884328755
799 98.32268162642583 706.6851383134232
800 96.73467254490818 708.7474492040795
801 100.05995781965169 710.4712629515277
802 98.59638727165054 713.3041509842222
t/test_datasets/dbscan_test_dataset_1_result.txt view on Meta::CPAN
<cluster1, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148,...
<cluster2, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225,...
<cluster3, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 301, 302,...
<cluster4, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 377, 378, 379,...
<cluster5, 420, 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 459, 460, 461, 462, 463, 464, 465, 466, 467,...
<cluster6, 508, 509, 510, 511, 512, 513, 514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 555,...
<cluster7, 585, 586, 587, 588, 589, 590, 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, 601, 602, 603, 604, 605, 606, 607, 608, 609, 610, 611, 612, 613, 614, 615, 616, 617, 618, 619, 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 630, 631, 632,...
<cluster8, 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 672, 673, 674, 675, 676, 677, 678, 679, 680, 681, 682, 683, 684, 685, 686, 687, 688, 689, 690, 691, 692, 693, 694, 695, 696, 697, 698, 699, 700, 701, 702, 703, 704, 705, 706, 707, 708, 709,...
<cluster9, 750, 751, 752, 753, 754, 755, 756, 757, 758, 759, 760, 761, 762, 763, 764, 765, 766, 767, 768, 769, 770, 771, 772, 773, 774, 775, 776, 777, 778, 779, 780, 781, 782, 783, 784, 785, 786, 787, 788, 789, 790, 791, 792, 793, 794, 795, 796, 797,...
<cluster10, 805, 806, 807, 808, 809, 810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 821, 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, 832, 833, 834, 835, 836, 837, 838, 839, 840, 841, 842, 843, 844, 845, 846, 847, 848, 849, 850, 851, 852...
( run in 1.134 second using v1.01-cache-2.11-cpan-39bf76dae61 )