Sistem Pakar – DIAGNOSA GANGGUAN KEPRIBADIAN (source code version 1)

Seperti penjelasan sebelumnya, expert system yang kami buat ini bertujuan untuk mengetahui penyakit psikologi seseorang. Expert Sytem yang kami buat menyimpan bebrapa data penyakit dan bebrapa gelaja yang mana pasien dapat mencocokkannya dengan perilaku yang ada pada diri mereka. Jika sesuai maka mereka menderita salah satu penyakit psikologi yang ada pada data kami. Jadi pasien tidak harus bertemu dokter terlebih dahulu. Pasien baru bertemu dokter jika mereka mempunyai yang mirip dengan data kami. Kemudian Expert System ini di aplikasikan dengan menggunakan prolog yang mana prolog ini lebih mengacu pada lops bagian “Backtracking with Failure”. Untuk itu pada notepad dibuat sbb:
find:-
writeln(‘ SELAMAT DATANG di VIATIKAN PSIKIATER’),writeln(‘SEGERA KONSULTASIKAN PENYAKIT ANDA ke “VIATIKAN PSIKIATER”‘),writeln(‘ Terima kasih sudah menggunakan layanan kami’),nl,
gangguan(Penyakit,Gejala1,Gejala2,Gejala3),
writeln(‘Apakah anda mempunyai perilaku dibawah ini :’),write(‘1.’),writeln(Gejala1),write(‘2.’),writeln(Gejala2),write(‘3.’),writeln(Gejala3),write(‘Jika Benar, maka anda menderita penyakit :’),writeln(Penyakit),writeln(‘ ‘),nl,fail.
find.
gangguan(avoidan,suka_menyendiri,takut_ditolak,peka_ejekan).
gangguan(paranoid,serba_curiga,iri,suka_menuduh).
gangguan(skizoid,suka_menyendiri,tidakmampu_bergaul,dingin).
gangguan(skizotipe,percaya_takhayul,autistik,amat_perasa).
gangguan(histrionik,emosi_labil,excitement,dramatis).
gangguan(antisosial,pemberontak,cuek,suka_berbohong).
gangguan(kompulsif,terlalu_detail,kaku,sangat_perfectsionis).
gangguan(agresif_pasif,benci_otoritas,suka_kekerasan,bisu_perasaan).
gangguan(narsistik,merasa_penting,menuntut_perhatian,peka_pandangan).
gangguan(dependen,sangat_tergantung,tidak_berdaya,mudah_tersinggung)
.

Hasilnya..