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.EnvironmentCLIPS (6.30 3/4/11)CLIPS> (load "bird.clp")Defining defrule: is-bird +j+j+jDefining defrule: can-sing +j+jTRUECLIPS> (reset)CLIPS> (assert (has feather) (lay eggs))<Fact-2>CLIPS> (run)it is a birdit can sing
Comments
Post a Comment