Re: Function definitions

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 06/21/2014 05:27 AM, montgrimpulo wrote:
>
> I want to conduct a genetic optimisation-program.

You probably want to do something like this:

subtype Probability is Float range 0.0 .. 1.0;

generic -- Search
    type Gene is private;

    with function Random return Gene;
    -- For an initial random population

    with function Fitness (Individual : Gene) return Float;
    -- To evaluate Individual

    with function Mate (Left : Gene; Right : Gene) return Gene;
    -- Combines 2 individuals to produce an offspring

    with procedure Mutate (Individual : in out Gene);
    -- Randomly mutate Individual
procedure Search (Population_Size      : in     Positive;
                   Num_Generations      : in     Positive;
                   Mutation_Probability : in     Probability;
                   Best                 :    out Gene;
                   Fit                  :    out Float);

You can look at PragmARC.Genetic_Algorithm for an example

http://pragmada.x10hosting.com/pragmarc.htm

-- 
Jeff Carter
"If you don't get the President of the United States on that
phone, ... you're going to have to answer to the Coca-Cola
Company."
Dr. Strangelove
32