Posted by: sepri18 | July 28, 2007

Source Code Sistem Pakar Web

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


Responses

  1. 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

  2. waduh boz kok g komplit to, plis ni aq btuhin bnggt

  3. berbagi itu indah, mengapa engkau berbagi hanya setengah setengah dan mengaharap sesuatu

  4. bos…klo mang mau berbagi ya sekalian aje..jgn setengah”..
    klo setengah gini mah gak berguna


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

%d bloggers like this: