---

gaenvrnmt.cc

Go to the documentation of this file.

#include <ctype.h>
#include <magic/mmath.h>
#include <magic/mstream.h>
#include <magic/mclass.h>

#include "nhp/genetics.h"
#include "nhp/individual.h"
#include "nhp/gaenvrnmt.h"

impl_abstract (EAEnvironment, {Object});



//                                                                          //
//    ----   _   -----             o                                        //
//   |      / \  |       _                      _          ___    _    |    //
//   | --- /   \ |---  |/ \  |   | | |/\  __  |/ \  |/|/| /   ) |/ \  -+-   //
//   |   \ |---| |     |   |  \ /  | |   /  \ |   | | | | |---  |   |  |    //
//   |___/ |   | |____ |   |   V   | |   \__/ |   | | | |  \__  |   |   \   //
//                                                                          //

EAEnvironment::EAEnvironment ()
{
    mNEvals         = 1;
    mNoise          = 0.0;
    bestfitn        = 1E+30;
    mBestFitness    = 1E+30;
    mTotEvals       = 0;
    mpBest          = NULL;
    mCycles         = 0;
}

double EAEnvironment::evaluate (const Individual& ind)
{
    // Evaluate the fitness
    double fitness = evaluateg (ind);

    // Record the best _objective_ fitness. Note that this is done
    // before adding the artificial noise, so this is really the true
    // fitness.
    if (fitness < bestfitn)
        bestfitn = fitness;

    // Add some artificial noise. The if statement is here because we don't
    // want to compate to 0.0.
    if (mNoise > 0.0001)
        fitness += gaussrnd (mNoise);

    // Record the best _subjective_ fitness
    if (fitness < mBestFitness) {
        mBestFitness = fitness;
        mpBest       = const_cast <Individual*> (&ind);
    }

    mTotEvals++;

    return fitness;
}

void EAEnvironment::check () const
{
    ASSERT (mNEvals>=1 && mNEvals<100000);
    ASSERT (mTotEvals>=0 && mTotEvals<1000000);
    ASSERT (mCycles>=0 && mCycles<100000);
    ASSERT (mNoise>=0.0 && mNoise<10000.0);
}

---