Nah, temen2 yg lg garap Thesis TI khususnya yg ngambil judul sistem pakar, nie gw punya source codenya, tp gk semua gw jabarin, nie salah satunya, sistem pakar nie menggunakan metode bayes, nah yang ini code untuk diagnosa & perhitungan bayes nya…: (‘_’) nah klw code yang laen cari ndiri ya, tar digabung aj ma yang nie.e.e…..hee,e,e.e.e.., ,(^_^), :
<?php
session_start();
//error_reporting(E_ALL);
function LoadBasepath() {
if (function_exists(‘realpath’) AND @realpath(dirname(__FILE__)) !== FALSE)
{
$system_folder = str_replace(“\\”, “/”, realpath(dirname(__FILE__))).’/’.$system_folder;
}
return $system_folder;
}
define(‘BASE_PATH’,LoadBasepath());
include_once BASE_PATH.’init.php’;
include_once BASE_PATH.’sql/diagnosa.sql.php’;
$isLogin = Encryption::Decrypt($_SESSION[md5(‘is_login’)]);
$group = Encryption::Decrypt($_SESSION[md5(‘group’)]);
if ($isLogin==1) {
// simpan di session diagnosa
if (!isset($_POST[‘diagnosa’])) {
$_SESSION[‘diagnosa’]= array();
$_SESSION[‘diagnosa_penyakit’] = array();
$data[‘gejala’] = getAll($sql[‘select_diagnosa_awal’],array());
$penyakit = array();
} else {
// tambahkan gejala juga
$_SESSION[‘diagnosa’][] = $_POST[‘diagnosa’];
$s_diag = join(“‘,'”,$_SESSION[‘diagnosa’]);
$s_diag =”‘$s_diag'”;
// lihat sesi penyakit
if(!empty($_SESSION[‘diagnosa_penyakit’])) {
// sudah ada penyakit sebelumnya
$to_diag = join(“‘,'”,$_SESSION[‘diagnosa_penyakit’]);
$to_diag =”‘$to_diag'”;
$query = str_replace(‘%p’,$to_diag,$sql[‘select_penyakit_lanjut’]);
//echo $query;
$penyakit = getAll($query,array($_POST[‘diagnosa’]));
$sql[‘data_penyakit_detail_lanjut’] = str_replace(‘%p’,$to_diag,$sql[‘data_penyakit_detail_lanjut’]);
$data_penyakit = getAll($sql[‘data_penyakit_detail_lanjut’],array($_POST[‘diagnosa’]));
// kosongkan diagnosa berikutnya
$_SESSION[‘diagnosa_penyakit’] = array();
if(!empty($penyakit)) {
foreach ($penyakit as $k => $v ) {
$_SESSION[‘diagnosa_penyakit’][] = $v[‘KODE’];
}
}
} else {
$penyakit = getAll($sql[‘select_penyakit_awal’],array($_POST[‘diagnosa’]));
$data_penyakit = getAll($sql[‘data_penyakit_detail_awal’],array($_POST[‘diagnosa’]));
// list kode penyakit di session
if(!empty($penyakit)) {
foreach ($penyakit as $k => $v ) {
$_SESSION[‘diagnosa_penyakit’][] = $v[‘KODE’];
}
}
}
// cari berdasarkan penyakit
$to_diag = join(“‘,'”,$_SESSION[‘diagnosa_penyakit’]);
$to_diag =”‘$to_diag'”;
$query = str_replace(‘%p’,$to_diag,$sql[‘select_diagnosa_lanjut’]);
$query = str_replace(‘%s’,$s_diag,$query);
//echo $query;
// get gejala
$data[‘gejala’] = getAll($query,array());
}
// kalkulasikan perobabilitas berdasarkan gejala
if(!empty($penyakit)) {
for($x=0;$x<sizeOf($penyakit);$x++) {
if ($penyakit[$x][‘PROBABILITAS’] ==”) {
$penyakit[$x][‘PROBABILITAS’] =0.00;
}
if(!empty($_SESSION[‘diagnosa’])) {
$start_d = 0;
foreach ($_SESSION[‘diagnosa’] as $key => $value) {
// cek setiap evidence
// kumpulkan data semua penyakit dengan gejala x
//$data_penyakit = getAll($sql[‘data_penyakit’],array($value));
// kalkulasikan berdasarkan data
$jumlah =0.00;
$jumlah_total =0.00;
if(!empty($data_penyakit)) {
foreach ($data_penyakit as $k => $v) {
$jumlah_total = $jumlah_total + ($v[‘PROBABILITAS_AWAL’]*$v[‘PROBABILITAS_KHUSUS’]);
if($v[‘KODE’] == $penyakit[$x][‘KODE’]) {
$jumlah = ($v[‘PROBABILITAS_AWAL’]*$v[‘PROBABILITAS_KHUSUS’]);
}
}
// kalkulasikan, jika masih nol tambahkan jika tidak kalikan aj
if($penyakit[$x][‘PROBABILITAS’]==0.00) {
$penyakit[$x][‘PROBABILITAS’] = $jumlah/$jumlah_total;
$_SESSION[‘probabilitas’][$penyakit[$x][‘KODE’]] = $penyakit[$x][‘PROBABILITAS’];
} else {
$penyakit[$x][‘PROBABILITAS’] = $_SESSION[‘probabilitas’][$penyakit[$x][‘KODE’]]+($jumlah/$jumlah_total);
$_SESSION[‘probabilitas’][$penyakit[$x][‘KODE’]] = $penyakit[$x][‘PROBABILITAS’]
}
$start_d++;
}
}
}
}
// set up for rata2
if(!empty($penyakit)) {
$jumlah_penyakit =0;
for($i=0;$i<sizeOf($penyakit);$i++) {
$jumlah_penyakit = $jumlah_penyakit + $penyakit[$i][‘PROBABILITAS’];
}
for($i=0;$i<sizeOf($penyakit);$i++) {
$penyakit[$i][‘PROBABILITAS’] = $penyakit[$i][‘PROBABILITAS’]/$jumlah_penyakit;
$_SESSION[‘probabilitas’][$penyakit[$i][‘KODE’]] = $penyakit[$i][‘PROBABILITAS’];
}
}
if ($_GET[‘ajax’]!=’1′) {
include_once BASE_PATH.’header.php’;
}
include_once BASE_PATH.’template/diagnosa.php’;
if ($_GET[‘ajax’]!=’1′) {
include_once BASE_PATH.’bottom.php’;
}
} else {
header(‘Location:index.php’);
exit;
}
?>
\
Nah klw yang laen2 gw gk bisa bocorin, sory bro…wewewkkkkwkekkee
gw pnya masalah judul TA nii,,pengenya mengambil judul sistem pakar disgnosa penyakit hipertensi n stroke.
tapi setelah konsultasi dengan pembimbing disuruh ganti bikin SPK diagnosa penyakit hipertensi n stroke dgnmetode bayes. nah,,gwe bingung n. kira” alurnya gimana ya qlo dibikin mke spk. terus ntar perbedaanya dmna yah??
please bantuin nyari solusinya dunk…tq bozz
By: mayla mahya tama on March 24, 2009
at 9:38 am
waduh boz kok g komplit to, plis ni aq btuhin bnggt
By: Dunia Buah on January 26, 2011
at 2:55 pm
berbagi itu indah, mengapa engkau berbagi hanya setengah setengah dan mengaharap sesuatu
By: masanton on October 8, 2011
at 12:13 am
bos…klo mang mau berbagi ya sekalian aje..jgn setengah”..
klo setengah gini mah gak berguna
By: rahasia on July 2, 2012
at 4:02 pm