Pembuatan Himpunan Crisp Fuzzy Pada Delphi

 Bagi mahasiswa yang sedang mengerjakan Skripsi yang berkaitan dengan Fuzzy sering kali mencari cari coding untuk Fuzzy pada Delphi, berikut saya bagikan coding untuk perhitungan Hipunan Crisp Fuzzy pada Delphi.

                                                                                                                                          

Misalkan ada himpunan fuzzy seperti digambar, yang mana huruf f,h, dan j bisa anda tentukan sendiri sesuai data yang dipakai dalam penelitian anda.

  

Rumus perhitungan untuk setiap himpunan sebagai berikut

   

Untuk dalam Delphi rancanglah form dengan 7 edit, 1 button, dan 1 TImage hingga berbentuk seperti berikut.

Untuk tombol Go !! klik 2 kali dan isi prosedurnya seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);

var f,h,j,y,rendah,normal,tinggi:Double;

begin

  f:=StrToFloat(Edit1.Text);

  h:=StrtoFloat(Edit2.Text);

  j:=StrToFloat(Edit3.Text);

  y:=StrToFloat(Edit4.Text);

  //untuk himpunan Rendah

  if y<=f then rendah:=1

  else if (y>=f) and (y<=h) then rendah:=(h-y)/(h-f)

  else if y>=h then rendah:=0;

  //untuk himpunan Normal

  if  (y<=f) or (y>=j) then normal:=0

  else if (y>=f) and (y<=h) then normal:=(y-f)/(h-f)

  else if (y>=h) and (y<=j) then normal:=(j-y)/(j-h);

  //untuk himpunan Tinggi

  if y<=h then tinggi:=0

  else if  (y>=h) and (y<=j) then tinggi:=(y-h)/(j-h)

  else if y>=j then tinggi:=1;

  Edit5.Text:=FloatToStr(rendah);

  Edit6.Text:=FloatToStr(normal);

  Edit7.Text:=FloatToStr(tinggi);

end;

Maka Ketika Dijalankan akan tampil seperti berikut: