The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

JMERELO / Algorithm-Evolutionary-0.56 / lib / Algorithm / Evolutionary / Op / LinearFreezer.pm 

            

              
1
2
—
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
—
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
—
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
—
63
64
65
66
67
68
69
70
71
72
73
74
75

              
use strict;
use warnings;
=head1 NAME
     Algorithm::Evolutionary::Op::LinearFreezer - used by Simulated Annealing algorithms
=head1 SYNOPSIS
    my $freezer = new  Algorithm::Evolutionary::Op::LinearFreezer( $minTemp );
=head1 Base Class
L< Algorithm::Evolutionary::Op::Base| Algorithm::Evolutionary::Op::Base>
=head1 Base Class
L<Algorithm::Evolutionary::Op::Base|Algorithm::Evolutionary::Op::Base>
=head1 METHODS
=cut
package  Algorithm::Evolutionary::Op::LinearFreezer;
our ($VERSION) = ( '$Revision: 1.1.1.1 $ ' =~ /(\d+\.\d+)/ );
use Carp;
use Algorithm::Evolutionary::Op::Base;
our @ISA = qw(Algorithm::Evolutionary::Op::Base);
=head2 new
Creates a new linear freezer
=cut
sub new {
  my $class = shift;
  my $self  = {};
  $self->{_initTemp} = shift || 0.2 ;
  $self->{_n} = 0 ;
  bless $self, $class;
  return $self;
}
=head2 apply
Applies freezer
=cut
sub apply ($$) {
  my $self = shift;
  my $t = shift;
  $t = ($self->{_initTemp}) / ( 1 + $self->{_n} ) ;
  $self->{_n}++ ;
  return $t;
}
=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: 2008/02/12 17:49:38 $ 
  $Header: /cvsroot/opeal/Algorithm-Evolutionary/lib/Algorithm/Evolutionary/Op/LinearFreezer.pm,v 1.1.1.1 2008/02/12 17:49:38 jmerelo Exp $ 
  $Author: jmerelo $ 
  $Revision: 1.1.1.1 $
  $Name $
=cut