Дискретно-непрерывная математика. Кн. 0 : Алгоритмы. Ч. Генетические алгоритмы



Download 9,87 Mb.
Pdf ko'rish
bet51/228
Sana20.06.2022
Hajmi9,87 Mb.
#683557
TuriКнига
1   ...   47   48   49   50   51   52   53   54   ...   228
Bog'liq
Algorithms3

Delphi
 
Поиск в одномерном пространстве с вероятностью 
выживания, без скрещивания. 
(проверено на Delphi XE)
program Program1; 
{$APPTYPE CONSOLE} 


А.Е. Кононюк Дискретно-непрерывная математика 
89 
{$R *.res} 
uses 
System.Generics.Defaults, 
System.Generics.Collections, 
System.SysUtils; 
const 
N = 1000; 
Nh = N div 2; 
MaxPopulation = High(Integer); 
var 
A: array [1..N] of Integer; 
I, R, C, Points, BirthRate: Integer; 
Iptr: ^Integer; 
begin 
Randomize; 
// Частичная популяция 
for I := 1 to N do 
A[I] := Random(2); 
repeat 
// Мутация 
for I := 1 to N do 
A[I] := A[I] + (-Random(2) or 1); 
// Отбор, лучшие в конце 
TArray.Sort(A, 
TComparer.Default); 
// Предустановка 
Iptr := Addr(A[Nh + 1]); 
Points := 0; 
BirthRate := 0; 
// Результаты скрещивания 
for I := 1 to Nh do 
begin 
Inc(Points, Iptr^); 
// Случайный успех скрещивания 
R := Random(2); 
Inc(BirthRate, R); 
A[I] := Iptr^ * R; 
Iptr^ := 0; 


А.Е. Кононюк Дискретно-непрерывная математика 
90 
Inc(Iptr,1); 
end; 
// Промежуточный итог 
Inc(C); 
until (Points / N >= 1) or (C >= MaxPopulation); 
Writeln(Format('Population %d (rate:%f) 
score:%f', [C, BirthRate / Nh, Points / N])); 
end. 
2.5. 
Пример выполнения классического 
генетического алгоритма 
 
Рассмотрим выполнение описанного ранее классического генетического 
алгоритма на как можно более простом примере . Проследим 
последовательность выполнения его этапов, соответствующих блок-
схеме на рис. 2.1. 
Пример 1
Рассмотрим сильно упрощенный и довольно искусственный пример, 
состоящий в нахождении хромосомы с максимальным количеством 
единиц. Допустим, что хромосомы состоят из 12 генов, а популяция 
насчитывает 8 хромосом. Понятно, что наилучшей будет хромосома, 
состоящая из 12 единиц. Посмотрим, как протекает процесс решения 
этой весьма тривиальной задачи с помощью генетического алгоритма. 

Download 9,87 Mb.

Do'stlaringiz bilan baham:
1   ...   47   48   49   50   51   52   53   54   ...   228




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish