<html>
<head><title>Sistem Pemetaan Pom Bensin Kab. Karawang</title>
</head>
<body >
<script language = "javascript">
<!--
var nilaiacuan = 10000;
var takterdefinisi = -1;
var namaverteks = new Array('Lampu_Merah_Tanjungpura','SPBU_Tanjungpura','SPBU Kharisma','Lampu Merah By Pass','SPBU SMAN 4','SPBU Alam Sari','SPBU R.S Cito','Gerbang Perumnas','Bundaran Galuh Mas','SPBU Galuh Mas','Alun-alun Kota','Pertigaan Mal Karawang','Perum Bintang Alam','SPBU Telukjambe','SPBU Johar','Lampu Merah Johar','SPBU Lamaran','SPBU Warungbambu 1','SPBU Warung Bambu 2','Lampu Merah Jalan Baru','SPBU Klari','Lampu Merah Klari','SPBU Kosambi','Pasar Kosambi');
var matriks = new Array();
function init()
{
var x = '~';
matriks[0]=new Array(0,0.8,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[1]=new Array(0.8,0,1.9,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[2]=new Array(x,1.9,0,1.5,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[3]=new Array(x,x,1.5,0,0.7,1.5,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[4]=new Array(x,x,x,0.7,0,x,x,x,x,x,x,1.4,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[5]=new Array(x,x,x,1.5,x,0,0.9,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[6]=new Array(x,x,x,x,x,0.9,0,3.8,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[7]=new Array(x,x,x,x,x,x,3.8,0,2.6,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[8]=new Array(x,x,x,x,x,x,x,2.6,0,0.2,x,x,3.8,x,x,x,x,x,x,x,x,x,x,x);
matriks[9]=new Array(x,x,x,x,x,x,x,x,0.2,0,2.1,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[10]=new Array(x,x,x,x,x,x,x,x,x,2.1,0,x,x,x,x,x,x,x,x,x,x,x,x,x);
matriks[11]=new Array(x,x,x,x,1.4,x,x,x,x,x,1.6,0,x,x,x,1.4,x,x,x,x,x,x,x,x);
matriks[12]=new Array(x,x,x,x,x,x,x,x,2.8,x,x,x,0,0.3,x,x,x,x,x,x,x,x,x,x);
matriks[13]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,0.3,0,1.6,x,x,x,x,x,x,x,x,x);
matriks[14]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,1.6,0,0.5,x,x,x,x,x,x,x,x);
matriks[15]=new Array(x,x,x,x,x,x,x,x,x,x,x,1.4,x,x,0.5,0,1.2,0.6,x,x,x,x,x,x);
matriks[16]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,1.2,0,x,x,x,x,x,x,x);
matriks[17]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,0.6,x,0,0.6,x,x,x,x,x);
matriks[18]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,0.6,0,2.5,x,x,x,x);
matriks[19]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,2.5,0,0.8,x,x,x);
matriks[20]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,0.8,0,1.4,x,x);
matriks[21]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,1.4,0,3.2,x);
matriks[22]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,3.2,0,0.8);
matriks[23]=new Array(x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,0.8,0);
}
function bobot(a,b)
{
return matriks[a][b];
}
function fungsi(list, list2)
{
var dari = parseInt(list);
var ke = parseInt(list2);
jumlahverteks = matriks.length;
awal = dari;
d = ke;
var posisi = new Array(jumlahverteks);
var i;
var kunjungan = new Array(jumlahverteks);
var sebelum = new Array(jumlahverteks);
for (i=0; i<jumlahverteks; i++)
{
posisi[i] = nilaiacuan;
sebelum[i] = takterdefinisi;
kunjungan[i] = false;
}
posisi[awal] = 0;
var verteks;
for (verteks=0; verteks<jumlahverteks; verteks++)
{
var jarakterpendek = nilaiacuan;
var berhenti = -1;
for (i=0; i<jumlahverteks; i++)
{
if (!kunjungan[i])
{
if (posisi[i] <= jarakterpendek)
{
jarakterpendek = posisi[i];
berhenti = i;
}
}
}
kunjungan[berhenti] = true;
for (i=0; i<jumlahverteks; i++)
{
if (!kunjungan[i])
{
var w = bobot(berhenti, i);
if (posisi[berhenti]+w < posisi[i])
{
posisi[i] = posisi[berhenti] + w;
sebelum[i] = berhenti;
}
}
}
}
i = d;
if (posisi[i] < nilaiacuan)
{
var lintasan = namaverteks[i];
var verteks = i;
while (verteks>0)
{
verteks = sebelum[verteks];
if (verteks >= 0)
lintasan = namaverteks[verteks] + " -> " + lintasan;
}
alert ("Jalur terpendek dari " +namaverteks[dari]+ " ke " +namaverteks[d]+ " : " + posisi[i] + " km \n(" + lintasan + ")");
}
else
{
alert ("Gk Ada jalur mas Bro!!!!");
}
}
init();
//-->
</script>
<table border="4" cellpadding="10" cellspacing="10" bgcolor="#99FFFF" align="center">
<tr>
<td colspan="2" align="center"><img src="file/header.jpg" height="125" width="1200" bgcolor="#66FFFF"></td>
</tr>
<tr >
<td colspan="0" bgcolor="#66FFFF" widht="400">
<font size="6" color="purple"><marquee>
Menentukan Rute Terpendek Dengan Menggunakan Algoritma Dijkstra
</font></marquee>
</td>
<td align="center" bgcolor="#66FFFF" >
<a href="script.html"><img src="file/script.png"></a>
<a href="data.html"><img src="file/peta.png" ></a>
<a href="index.html"><img src="file/home1.png" ></a>
<a href="script.html"></a>
</td>
</tr>
<tr>
<td colspan="0" width="800" height="500" align="center" bgcolor="#66FFFF">
<img src="file/peta spbu.jpg" width="700" height="470" border="5">
</td>
<td colspan="0" width="350" height="100" valign="top" align="center" bgcolor="#66FFFF">
<form><font size="5">
<img src="file/pertamina.jpg" alt="Karawang Map" width="250" height="200" border="5" align="center">
<p align="left">
Posisi Anda :
<br><select name="Dari">
<option value="0">Lampu Merah Tanjungpura</option>
<option value="3">Lampu Merah By Pass</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="10">Alun-alun Kota</option>
<option value="11">Pertigaan Mal Karawang</option>
<option value="12">Perum Bintang Alam</option>
<option value="21">Lampu Merah Klari</option>
<option value="23">Pasar Kosambi</option>
<option value="19">Lampu Merah Jalan Baru</option>
<option value="19">Lampu Merah Jalan Baru</option>
<option>-----------------------------------</option>
<option value="1">[ 34 - 41301 ] SPBU Tanjungpura</option>
<option value="2">[ 34 - 41344 ] SPBU Kharisma</option>
<option value="4">[ 34 - 41349 ] SPBU SMAN 4</option>
<option value="5">[ 34 - 41310 ] SPBU Alam Sari</option>
<option value="6">[ 34 - 41328 ] SPBU R.S Cito</option>
<option value="9">[ 34 - 41339 ] SPBU Galuh Mas</option>
<option value="13">[ 34 - 41323 ] SPBU Telukjambe</option>
<option value="14">[ 34 - 41348 ] SPBU Johar</option>
<option value="15">Lampu Merah Johar</option>
<option value="16">[ 34 - 41324 ] SPBU Lamaran</option>
<option value="17">[ 34 - 41371 ] SPBU Warungbambu 1</option>
<option value="18">[ 34 - 41352 ] SPBU Warungbambu 2</option>
<option value="19">Lampu Merah Jalan Baru</option>
<option value="20">[ 34 - 41341 ] SPBU Klari</option>
<option value="22">[ 34 - 41315 ] SPBU Kosambi</option>
</select></br>
<p align="left">
Hendak Ke :
<br><select name="Ke">
<option value="0">Lampu Merah Tanjungpura</option>
<option value="3">Lampu Merah By Pass</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="7">Gerbang Perumnas</option>
<option value="8">Bunderan Galuh Mas</option>
<option value="10">Alun-alun Kota</option>
<option value="11">Pertigaan Mal Karawang</option>
<option value="12">Perum Bintang Alam</option>
<option value="21">Lampu Merah Klari</option>
<option value="23">Pasar Kosambi</option>
<option value="19">Lampu Merah Jalan Baru</option>
<option value="19">Lampu Merah Jalan Baru</option>
<option>-----------------------------------</option>
<option value="1">[ 34 - 41301 ] SPBU Tanjungpura</option>
<option value="2">[ 34 - 41344 ] SPBU Kharisma</option>
<option value="4">[ 34 - 41349 ] SPBU SMAN 4</option>
<option value="5">[ 34 - 41310 ] SPBU Alam Sari</option>
<option value="6">[ 34 - 41328 ] SPBU R.S Cito</option>
<option value="9">[ 34 - 41339 ] SPBU Galuh Mas</option>
<option value="13">[ 34 - 41323 ] SPBU Telukjambe</option>
<option value="14">[ 34 - 41348 ] SPBU Johar</option>
<option value="15">Lampu Merah Johar</option>
<option value="16">[ 34 - 41324 ] SPBU Lamaran</option>
<option value="17">[ 34 - 41371 ] SPBU Warungbambu 1</option>
<option value="18">[ 34 - 41352 ] SPBU Warungbambu 2</option>
<option value="19">Lampu Merah Jalan Baru</option>
<option value="20">[ 34 - 41341 ] SPBU Klari</option>
<option value="22">[ 34 - 41315 ] SPBU Kosambi</option>
</select></br>
</p>
<p align="center">
<input type="button" value="Tampilkan jalur terpendek" onclick ='fungsi(Dari.value, Ke.value)'>
</p>
</font>
</form>
</td>
</tr>
</table>
<p align="center">Copyright Teknik Informatika 2010</p>
</body>
</html>
Senin, 11 Juli 2011
Presentasi Dijkstra
09.57
juwitasari
No comments
0 komentar:
Posting Komentar