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

Membuat refleksi bayangan – versi sederhana

Berikut ini adalah cara untuk membuat refleksi dari bayangan sebuah obyek atau model foto. Yang dimaksud refleksi disini adalah bayangan tapi berwarna mirip seperti obyek/model aslinya.

Hacking password di friendster

Melakukan Hacking password di friendster

langkah-langkahnya :

Setting Jaringan Warnet Berbasis Windows XP dan ADSL Modem (pada Speedy)

Kemampuan untuk melakukan Instalasi dan setting untuk sebuah Warung Internet (Warnet) selama ini dianggap hanya dimiliki oleh mereka yang sudah lama berkecimpung didunia IT Administrator. Dengan mematok biaya yang cukup lumayan mereka bersedia membantu kita dalam membangun sebuah Warnet yang hendaknya akan kita gunakan sebagai Unit Produksi. Ketidaktahuan tentang bagaimana sebuah sistem jaringan dapat berjalan lancar adalah alasan utama kita untuk terus menggunakan tenaga mereka. Berangkat dari keadaan tersebut maka saya menuliskan panduan ini. Sengaja dibuat dengan menampilkan langkah demi langkah agar dapat dimengerti dan dipahami bahkan oleh seorang yang sama sekali belum mengenal jaringan.