filosofy

Tab 1.1
Tab 1.2
Tab 1.3
Tab 2.1
Tab 2.2
Tab 2.3
Tab 3.1
Tab 3.2
Tab 3.3

teman-teman

facebook

MAY BLOG

Rabu, 17 Juni 2009

graph

?head>
?title>Dijkstra Algoritms ?/title>
?script>
?!--
alert("Taet Dijkstra");
//-->
?/script>
?/head>
?body>
?script language = "javascript">

var NilaiAcuan =10000;
var TakTerdefinisi=-1;
var Nama Verteks =new Array ('A','B','C','D','E','F');
var Matriks =new Array (6);
function Bobot (a,b)
{
return Matriks[a][b];
}
function Dijkstra (JumlahVerteks,Awal,d)
{
var Posisi =new Array(JumlahVerteks);
var i =new Array(JumlahVerteks);
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, 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 Lintangan = NamaVerteks [i];
var Verteks = i;
while (Verteks>0)
{
Verteks = Sebelum[Verteks];
if (Verteks>=0) Lintasan = NamaVereteks [Verteks] + '->' + Lintasan)
{
message ("Jarak ; "+Posisi[i]+'('Lintasan+')'+'?br>');
}else
{
message ("Tidak ada Jalur");
}
}
function init() {
var x = NilaiAcuan
Matriks[0]=new Array(0,2,3,x,x,x);
Matriks[1]=new Array(2,0,3,6,x,x);
Matriks[2]=new Array(3,3,0,3,5,x);
Matriks[3]=new Array(x,6,3,0,1,3);
Matriks[4]=new Array(x,x,5,1,0,1);
Matriks[5]=new Array(x,x,x,3,1,0);
var Awal='?pre>'
Awal = Awal + 'A--2-B-6--D--3-F'+'?br>';
Awal = Awal + ' \ | /| / '+'?br>';
Awal= Awal + ' 3 3 3 1 1 '+'?br>';
Awal= Awal + ' \ | / | / '+'?br>';
Awal = Awal + ' \|/ |/ '+'?br>';
Awal = Awal + ' C--5-E '+'?br>';
Awal = Awal +'?/pre>';

message (Awal.replace(/(\d)+/g, '?font color ="red">$1?/font>'));
}
init()
var Dari=0 // A
var Ke =5 // F
Dijkstra(Matriks.length,Dari,Ke);
//-->
?/script>
?/body>
?/html>

Tidak ada komentar:

Posting Komentar