Было найдено когда-то на просторах Интернета - Равномерное скрещивание и инверсионная мутация

Вложения

genetich_algoritm.zip (94.8 Кб, 40 просмотров)

__________________
Информационные технологии :: Стастистика:: Эконометрика

помогите пожалуйста написать функцию двухточечной мутации.

{двухточечное скрещивание}
procedure crossover(var parent1, parent2, child1, child2:chromosome;
flchrom:integer);
var
jcross,
j:integer;
begin

if flip(pcross) then begin {Выполняется скрещивание с вероятностью pcross}
jcross:=rnd(1,flchrom-1); {Определение точки скрещивания в диапазоне между 1 и l-1}
ncross:=ncross + 1; {Увеличение счетчика скрещиваний}
end else
jcross:=flchrom;
{2-х точечная мутация}
mutation(parent1,flchrom);
mutation(parent2,flchrom);

{первая часть обмена , 1 to 1 and 2 to 2}
for j := 1 to jcross do begin
child1[j]:=parent1[j];
child2[j]:=parent2[j];
end;

if jcross<>flchrom then
{если точка скрещивания равна flchrom--скрещивание не происходит}
for j := jcross+1 to flchrom do begin {вторая часть обмена, 1 to 2 and 2 to 1}
child1[j]:=parent2[j];
child2[j]:=parent1[j];
end;
end;

__________________
Информационные технологии :: Стастистика:: Эконометрика

Да но для того что бы выполнить mutation(parent1,flchrom); должна быть описана функция function mutation с алгоритмом 2-ух точечной мутацией. Конечно это если я правильно всё понимаю.

Я склепал вот такой код программы равномерное скрещивание и и 2-ух точечная мутация, на ваш профессиональный взгляд он правильный или бред сумасшедшего! Прошу строго не судить я обучаюсь дистанционно и мне pascal, а точнее генетические алгоритмы сложно даются.

{2-х точечная мутация}

function mutation (var child:chromosome; alleleval:allele; pmutation:real;
var nmutation:Integer; flchrom:Integer):allele;
var
p,mutate : boolean;
j1,j2 : integer;
Begin
mutate:=flip(pmutation);
if mutate
then
begin
repeat
begin
j1 := rnd(1, flchrom-1);
j2 := rnd(1, flchrom-1);
end;
until j1<>j2;
mutation := Not alleleval;
p := child[j1];
child[j1] := child[j2];
child[j2] := p;
nmutation := nmutation+1;
end
else mutation := alleleval;
end;

{Равномерное скрещивание и 2-ух точечная мутация}

procedure crossover(var parent1,parent2,child1,child2:chromosome;
flchrom:integer; Var ncross,nmutation,jcross:integer;
Var pcross,pmutation:real);
var
j:integer;
begin
if flip(pcross)
then
begin
for j:=1 to lchrom*dim do
begin
if flip(0.5)
then
begin
child1[j]:=mutation(parent1, parent1[j], pmutation, nmutation, flchrom);
child2[j]:=mutation(parent2, parent2[j], pmutation, nmutation, flchrom);
end
else
begin
child1[j]:=mutation(parent2, parent2[j], pmutation, nmutation, flchrom);
child2[j]:=mutation(parent1, parent1[j], pmutation, nmutation, flchrom);
end;
end;
end;
end;

Всем доброго времени суток.
Прошу помощи по курсовому генетические алгоритмы,
ну ни как не могу въехать в этот алгоритм, нужны примеры с двухточечным скрещиванием и инверсионной мутацией (вариант 4 но пойдут и другие варианты с такими-же условиями), кому не трудно скиньте на SerjWahs@yandex.ru
Заранее спасибо.

Кто нибудь поправьте если я не правильно понимаю двухточечное скрещивание и инверсионную мутацию.

Миниатюры

 

Вот этот код для инверсионной мутации?

function mutation(alleleval:allele):allele;
var
mutate:boolean;
begin
mutate:=flip(pmutation);
if mutate then
mutation:=not alleleval
else
mutation:=alleleval;
end;

Но мутация же должна происходить после процедуры скрещивания, а в результате скрещивания получается два потомка и каждый подвергается мутации, тогда этот код программы надо применить к обоим потомкам или я не прав.

См ниже

{Равномерное скрещивание}
procedure crossover(var parent1, parent2, child1, child2:chromosome);

var
j:integer;
begin
if flip(pcross) then begin

for j:=1 to lchrom*dim do begin
if flip(0.5)then begin
child1[j]:=mutation(parent1[j]);
child2[j]:=mutation(parent2[j]);
end
else
begin
child1[j]:=mutation(parent2[j]);
child2[j]:=mutation(parent1[j]);
end;
end;
end;
end;

__________________
Информационные технологии :: Стастистика:: Эконометрика

Скиньте 9 вариант, у кого есть, пожалуйста=)