> Delphi 7 Kütüphane Otomasyonu -Güldüren-

---

> Gomulu Sistem Tasarimi - 4-5-6 Bolum Calisma Sorulari

---

> Turbo C Girilen Cümledeki Kelime Miktarını ve İstenen Karakterin Kaç Kez Geçtiğini Bulan Program

---

> Turbo C Yılan Oyunu

---

> Php ile Playfair Şifreleme Uygulamaları ve Kodları

> Delphi 7 Kütüphane Otomasyonu -Güldüren-

---

> Gomulu Sistem Tasarimi - Ilk 3 Bolum Calisma Sorulari

---

> Matlab da Resmin Histogrami ve Histogram Esitlemesi

---

> Matlab da Renkli Resmin Gri Seviye, Binary ve Negatif Dönüşümleri

---

> Matlab da Resmi RGB Bileşenlerine Ayırma

---

> Matlab da Resime Aynalama ve Ters Cevirme Islemi

---

> Matlab da Laplace Filtre Algoritmasıyla Resim Keskinleştirme

---

> Matlab da Konvülasyon ve Korelasyon İşlemi Uygulaması

---

> Turbo C Girilen Cümledeki Kelime Miktarını ve İstenen Karakterin Kaç Kez Geçtiğini Bulan Program

---

> Matlab da Sobel Algoritmasi ve Sobel Fonksiyonu ile Kenar Cikartma Uygulamasi

[ Başlıklar(Ders Notlari) ] > [ Ileri Programlama Yontemleri ] > [ Php ile Genetik Algoritması Uygulaması - En İyi Bireye Ulaşma ]

---

Oluşturma Tarihi: 28.12.2012 17.20

---

----- ÖDEV -----

Konu: Genetik Algoritma Uygulaması

Problem : Rasgele seçilmiş 8 bitlik 4 bireyden en iyi bireyi oluşturmak.

Başlangıç :

a : 00000110
b : 11101110
c : 00100000
d : 00110101

Amaç : 11111111

Uygunluk kriteri: Her dizinin barındırdığı 1 değeri

Pop. Büyüklüğü : 4

Seçim Kriteri : Rulet

Çaprazlama : 3.bit

Mutasyon : 5.bit


Kod Bloğu
<?php // 1090203901 // Samet Uğur SEVİNÇER // İleri Programlama Yöntemlerine Giriş // 2012-2013 Eğitim Öğretim Yılı // Teslim Tarihi: 28.12.2012 // // ----- ÖDEV ----- // Konu: Genetik Algoritma Uygulaması // Problem : Rasgele seçilmiş 8 bitlik 4 bireyden en iyi bireyi oluşturmak. // Başlangıç : a : 00000110 // b : 11101110 // c : 00100000 // d : 00110101 // Amaç : 11111111 // Uygunluk kriteri: Her dizinin barındırdığı 1 değeri // Pop. Büyüklüğü : 4 // Seçim Kriteri : Rulet // Çaprazlama : 3.bit // Mutasyon : 5.bit function kac_tane($deger)//Birey İçinde Kaç Adet 1 Olduğunu Bulan Fonksiyon { $adet=0; for($kac=0;$kac<8;$kac++) { if($deger[$kac]==1) { $adet++; } } return $adet; } function sirala($deger)//Gelen 4 Değeri Küçükten Büyüğe Sıralayan Fonksiyon { for ($i = 1; $i< 5; $i++) { for ($j = 2; $j < 5; $j++) { if ($deger[$j] < $deger[$j - 1]) { $geciciSayi = $deger[$j - 1]; $deger[$j - 1] = $deger[$j]; $deger[$j] = $geciciSayi; } } } return $deger; } function rastgele_ondalik()//Rastgele 0-1 Aralığında Ondalık 4 Sayı Üreten Fonksiyon { for($i=1;$i<5;$i++) { $rastgele[$i]=rand(1,100); $rastgele[$i]=$rastgele[$i]/100; } return $rastgele; } function secim($deger,$gelen)//Rastgele Gelen Değerlere Göre Bireyleri Seçip Siralayan Fonksiyon { for($i=1;$i<5;$i++) { if($deger[$i]<=$gelen[1]){$sonuc[$i]=1;} if(($deger[$i]<=$gelen[2]) and ($deger[$i]>$gelen[1])){$sonuc[$i]=2;} if(($deger[$i]<=$gelen[3]) and ($deger[$i]>$gelen[2])){$sonuc[$i]=3;} if(($deger[$i]<=$gelen[4]) and ($deger[$i]>$gelen[3])){$sonuc[$i]=4;} } $sonuc=sirala($sonuc); return $sonuc; } function caprazlama($deger1,$deger2)//Çiftleştirilen 2 Bireyin 3.Bitlerine Göre Çaprazlandığı Fonksiyon { $s1=$deger1[0].$deger1[1].$deger1[2].$deger2[3].$deger2[4].$deger2[5].$deger2[6].$deger2[7]; $s2=$deger2[0].$deger2[1].$deger2[2].$deger1[3].$deger1[4].$deger1[5].$deger1[6].$deger1[7]; $s[1]=$s1; $s[2]=$s2; return $s; } function rastgele()//1-4 Arasında Rastgele Sayı Seçen Fonksiyon { $rastgele=rand(1,4); return $rastgele; } function deger_duzenle($deger1,$deger2)//2 Değişkende Tutulan Çift Değerleri Tek Değişkende Toplayan Fonksiyon { $deger[1]=$deger1[1]; $deger[2]=$deger1[2]; $deger[3]=$deger2[1]; $deger[4]=$deger2[2]; return $deger; } function mutasyon($deger,$mutasyon)//Rastgele Seçilmiş Mutasyon Sayısı İle Belirlenmiş Bireydeki 5. Biti Tersleyen Fonksiyon { if($deger[$mutasyon][4]==1) { $deger[$mutasyon][4]=0; }else{ $deger[$mutasyon][4]=1; } return $deger; } function genetik_algoritma_en_iyi_birey($a)//Ana (Main) Fonksiyon { $iterasyon=0;//İterasyon Değişkeni echo $iterasyon.". iterasyonda bireyler: ".$a[1]." - ".$a[2]." - ".$a[3]." - ".$a[4]."<hr>";// İterasyona Girişte Bireyler Ekrana Yazdırılıyor while(($a[1]!="11111111") and ($a[2]!="11111111") and ($a[3]!="11111111") and ($a[4]!="11111111")) { $b1=kac_tane($a[1]);//1.Bireydeki 1 adedi bulunuyor $b2=kac_tane($a[2]);//2.Bireydeki 1 adedi bulunuyor $b3=kac_tane($a[3]);//3.Bireydeki 1 adedi bulunuyor $b4=kac_tane($a[4]);//4.Bireydeki 1 adedi bulunuyor $btop=$b1+$b2+$b3+$b4;//Tüm Bireylerdeki Toplam 1 adedi bulunuyor $c[1]=$b1/$btop;//1. Bireyin 1 Adedinin Genele Oranı Hesaplanıyor $c[2]=$b2/$btop;//2. Bireyin 1 Adedinin Genele Oranı Hesaplanıyor $c[3]=$b3/$btop;//3. Bireyin 1 Adedinin Genele Oranı Hesaplanıyor $c[4]=$b4/$btop;//4. Bireyin 1 Adedinin Genele Oranı Hesaplanıyor $c=sirala($c);//Bireyler Oranlarına Göre Küçükten Büyüğe Sıralanıyor $c[1]=$c[1];//1.Bireyin 0-1 Aralığında ki Üst Konumu Hesaplanıyor $c[2]=$c[2]+$c[1];//2.Bireyin 0-1 Aralığında ki Üst Konumu Hesaplanıyor $c[3]=$c[3]+$c[2];//3.Bireyin 0-1 Aralığında ki Üst Konumu Hesaplanıyor $c[4]=1;//4.Bireyin 0-1 Aralığında ki Üst Konumu Genel Atanıyor $rastgele=rastgele_ondalik();//Rastgele 4 Ondalık Sayı Seçiliyor $secim=secim($rastgele,$c);//Seçilen Ondalık Sayılara Denk Gelen Bireyler Seciliyor $deger12=caprazlama($a[$secim[1]],$a[$secim[2]]);//İlk Birey Çifti Çaprazlanıyor $deger34=caprazlama($a[$secim[3]],$a[$secim[4]]);//İkinci Birey Çifti Çaprazlanıyor $deger=deger_duzenle($deger12,$deger34);//Bireyler Normalleştiriliyor $mutasyon=rastgele();//Rastgele Birey Seçiliyor $a=mutasyon($deger,$mutasyon);//Seçilen Bireyde Mutasyon İşlemi Yapılıyor $iterasyon++;//İterasyon Değişkeni Arttırılıyor echo $iterasyon.". iterasyonda bireyler: ".$a[1]." - ".$a[2]." - ".$a[3]." - ".$a[4]."<hr>"; //İterasyon Sonucu Bireyler Ekrana Yazdırılıyor } } //Programda Gerçek İstenen Değerler //$a[1]="00000110"; // İlk Değerler İçin 1. Birey Atanıyor //$a[2]="11101110"; // İlk Değerler İçin 2. Birey Atanıyor //$a[3]="00100000"; // İlk Değerler İçin 3. Birey Atanıyor //$a[4]="00110101"; // İlk Değerler İçin 4. Birey Atanıyor // //Gerçek Değerlerle Sonuca Ulaşma Zorlaştığı İçin Denenen Değerler $a[1]="11111110";// İlk Değerler İçin 1. Birey Atanıyor $a[2]="11111110";// İlk Değerler İçin 2. Birey Atanıyor $a[3]="00111111";// İlk Değerler İçin 3. Birey Atanıyor $a[4]="10111111";// İlk Değerler İçin 4. Birey Atanıyor genetik_algoritma_en_iyi_birey($a); // Ana (Main) Fonksiyon Çağrılıyor ?>

---

Henüz bu bloğa yorum yapılmadı. İlk yorum yapan sen ol...

---

Etiketler: php , genetik , algoritma , uygulama , program , birey , en , iyi , istenen , caprazlama , mutasyon , rulet , popülasyon , 8 , bit , ileri , programlama