21 September 2012

Belajar Experts System di Mac OS X

Akhirnya atas bantuan @anak10thn PR tahap awal terselesaikan. PR-nya adalah menjalankan kode dari CLIPS yang digunakan untuk membuat Expert Systems. Ingat CLIPS bukan LISP! Saya sempat menyamakan CLIPS dengan LISP karena asumsinya adalah sama-sama membuat Expert Systems. Kode yang saya dapatkan masih sederhana. Kode yang diberi nama bird.clp dapat dilihat dibawah ini.

(defrule is-bird
   (has feather)
   (lay eggs)
    =>
      (assert (is bird))
      (printout t "it is a bird" crlf))
(defrule can-sing
   (is bird)
    =>
      (assert (can sing))
      (printout t "it can sing" crlf))
Untuk menjalankan kode bird.clp di Mac OS X menggunakan CLIPSJNI. Saat ini CLIPSJNI masih versi 0.3 dan saat saya gunakan tidak ada kendala. Jadi cara penggunaan dasar yang harus diperhatikan sebagai berikut :
1. Membuat berkas bird.clp yang berisi kode diatas.
2. Unduh dan ekstrak CLIPSJNI
3. Letakan bird.clp dalam 1 direktori dengan CLIPSJNI.
4. Masuk ke direktori CLIPSJNI
5. Jalankan CLIPSJNI dengan perintah, java -cp CLIPSJNI.jar CLIPSJNI.Environment
6. Setelah muncul prompt CLIPS> artinya Anda sukses masuk ke CLIPS

Ada 4 dasar perintah yang digunakan untuk menjalankan berkas bird.clp :
1. Mengakses berkas bird.clp, (load "bird.clp")
2. Menghapus memori sebelumnya, (reset)
3. Memasukan variable sebagai contoh benda/makhluk yang memiliki bulu dan bertelur, (assert (has feather) (lay eggs))
4. Menjalankan dan lihat hasilnya, (run)

Catatan yang saya lakukan dapat dilihat di bawah ini:

CLIPSJNI dedyhariyadi$ java -cp CLIPSJNI.jar CLIPSJNI.Environment
         CLIPS (6.30 3/4/11)
CLIPS> (load "bird.clp")
Defining defrule: is-bird +j+j+j
Defining defrule: can-sing +j+j
TRUE
CLIPS> (reset)
CLIPS> (assert (has feather) (lay eggs))
<Fact-2>
CLIPS> (run)
it is a bird
it can sing


No comments:

Post a Comment

Disqus for Dedy selalu Milisdad