view release on metacpan or  search on metacpan

lib/Algorithm/DBSCAN.pm  view on Meta::CPAN

package Algorithm::DBSCAN;

use strict;
use warnings;
use 5.10.1;

use Data::Dumper;

use Algorithm::DBSCAN::Point;
use Algorithm::DBSCAN::Dataset;

=head1 NAME

Algorithm::DBSCAN - (ALFA code) Perl implementation of the DBSCAN (Density-Based Spatial Clustering of Applications with Noise) algorithm

=cut

lib/Algorithm/DBSCAN/Point.pm  view on Meta::CPAN

package Algorithm::DBSCAN::Point;
use Data::Dumper;

sub new {
	my($type, $point_id, @coordinates) = @_;
	
	my $self = {};
	
	$self->{cluster_id} = 0;
	$self->{point_id} = $point_id;
	$self->{coordinates} = \@coordinates;