Math::Vector::Real::Farthest - Find the two more distant vectors from a set
use Math::Vector::Real::Farthest; my ($d2, $v0, $v1) = Math::Vector::Real::Farthest->find(@vs);
This module implements several algorithms for finding the maximum distance between any two vectors from a given set (AKA the set diameter) and some two vectors that are that far away.
The methods available are as follows:
- ($d2, $v0, $v1) = Math::Vector::Real::Farthest->find(@vs)
Returns the square of the maximum distance between any two vectors on the given set (AKA the set diameter squared) and some two vectors which are actually that far away.
The algorithm used in this method is quite similar to the one described in "A Practical Approach for Computing the Diameter of a Point-Set", SOCG_2001, Sariel Har-Peled. The main difference being that, when dividing the subset in some tree node along the largest side of the wrapping box, instead of doing it at the middle point it does it at the median.
$Math::Vector::Real::Farthes::threshold_brute_forcedefines the subset size at which the algorithm switches to the brute-force algorithm (which is more efficient for small data sizes).
- ($d2, $v0, $v1) = Math::Vector::Real::Farthest->find_brute_force(@vs)
This is an alternative implementation of
findthat uses the brute force algorithm.
findmethod already switches automatically to the brute force algorithm when the number of vectors is low.
This method is provided just for testing purposes. Though, note that the vectors returned by
find_brute_forcefor the same given set may be different.
- ($d2, $v0, $v1) = Math::Vector::Real::Farthest->find_2d_convex_hull
In order to calculate the diameter of a set of bidimensional vectors, an algorithm commonly recommended on the literature is to calculate the convex hull of the set and then to use the rotating-calipers method to find the two more distant vectors from it. This method implements that algorithm.
Benchmarks show that the generic algorithm used by
findis usually much faster.
In order to use this method the extra module Sort::Key::Radix must be also installed.
If this module is not fast enough for you, tell me. Maybe in a happy day I could write a C/XS version.
I have found two papers describing efficient algorithms for solving the set diameter problem. One is "A Practical Approach for Computing the Diameter of a Point-Set", SOCG_2001, Sariel Har-Peled; the other "Computing the Diameter of a Point Set", INRIA 2001, Malandain, Grégoire and Boissonnat, Jean-Daniel (the links to the paper are dead, but Google is able to find the file, look for
Note that the source code for Math::Vector::Real::Farthest is not based on the code provided with those papers.
Copyright (C) 2014 by Salvador Fandiño <email@example.com>.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.18.2 or, at your option, any later version of Perl 5 you may have available.