File Coverage

lib/Algorithm/Evolutionary/Op/DeltaTerm.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

use strict;
use warnings;


=head1 NAME

    Algorithm::Evolutionary::Op::DeltaTerm - Termination condition for an algorithm; checks that
                the difference of the best to a target is less than a delta


=head1 SYNOPSIS

   my $target = 1;
   my $epsilon = 0.01;
   my $dt = new Algorithm::Evolutionary::Op::DeltaTerm $target, $epsilon;
   #$dt->apply( \@pop ) when the best fitness is 1 plus/minus 0.1

=head1 Base Class

L

=head1 DESCRIPTION

Termination condition for evolutionary algorithm loops; the C
method returns false when the first element in the array is as close
to the target as the differente indicated.

=head1 METHODS

=cut

package Algorithm::Evolutionary::Op::DeltaTerm;
use Carp;

our ($VERSION) = ( '$Revision: 3.0 $ ' =~ / (\d+\.\d+)/ ) ;

use base 'Algorithm::Evolutionary::Op::Base';

=head2 new( $target[, $delta] )

Creates a new terminator. Takes as parameters the target and the
epsilon (or delta, whatever you want to call it):

  my $target = 1;
  my $epsilon = 0.01;
  my $dt = new Algorithm::Evolutionary::Op::DeltaTerm $target, $epsilon;

Delta can be 0, which means that application of this operator will
return true only when the first element fitness is the same as the
target. Use this judiciously when your fitness is a floating
point number.

=cut

sub new {
  my $class = shift;
  my $target = shift || croak "No target here!";
  my $delta = shift ; #  Could be 0
  my $hash = { target => $target,
	       delta =>  $delta };
  my $self = Algorithm::Evolutionary::Op::Base::new( $class, 1, $hash );
  return $self;
}


=head2 apply( $population )

Will return true while the difference between the fitness of the first element
in the population and the target is less than C<$delta>, true otherwise

    $dt->apply( \@pop ) == 1

if the target has not been reached. Population must be sorted before this.

=cut

sub apply ($) {
  my $self = shift;
  my $pop = shift;

  return abs( $pop->[0]->Fitness() -  $self->{_target} ) > $self->{_delta};

}

=head1 See Also

L needs an object of this class to check
for the termination condition. It's normally used alongside "generation-type"
objects such as L.

There are other options for termination conditions: L and
L.


=head1 Copyright

  This file is released under the GPL. See the LICENSE file included in this distribution,
  or go to http://www.fsf.org/licenses/gpl.txt

  CVS Info: $Date: 2009/07/24 08:46:59 $
  $Header: /cvsroot/opeal/Algorithm-Evolutionary/lib/Algorithm/Evolutionary/Op/DeltaTerm.pm,v 3.0 2009/07/24 08:46:59 jmerelo Exp $
  $Author: jmerelo $

=cut

"The truth is out there";