kemod: Juni 2009

kemod

Rabu, 24 Juni 2009

graph

html>
?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>

posted by Abah Kemod,,, @ 20.55 0 comments

Selasa, 23 Juni 2009

sort

<html><head>
<script LANGUAGE="JavaScript">

function Urutkan(form)
{
DataKosong = false;
DataInputan = form.Data.value;
inputData = DataInputan.split(",");
for (var i = 0; i < inputData.length; i++)
{
inputData[i] = parseInt (inputData[i], 10);
if (isNaN(inputData[i]))
{
DataKosong = true;
break;
}
}

inputData = bubbleSort(inputData, 0, inputData.length - 1);
if (DataKosong)
{
aleart("Silakan Entri Dulu Data, Pisahkan dengan tanda Koma");
form.Data.focus();
}
else
form.Hasil.value = DataString(inputData, 0);
}

function DataString(ArrayData, Angka)
{
if ((ArrayData.length - 1) >= Angka)
return (ArrayData[Angka] + "," + DataString(ArrayData,(Angka + 1)));
else
return"";
}

function bubbleSort (ArrayData, Mulai, MulaiBaru)
{
for (var i = MulaiBaru - 1; i >= Mulai; i--)
{
for (var j = Mulai; j <= i; j++)
{
if (ArrayData[j+1] < ArrayData[j])
{
var DataTemporer = ArrayData[j];
ArrayData[j] = ArrayData[j+1];
ArrayData[j+1] = DataTemporer;
}
}
}

return ArrayData;
}
</script>
</head>

<body>
<center>
<form>
Masukan Deretan Angka, Pisahkan dengan Koma :
<hr>
<input type= text name=Data size=30 value="5,6,8,5,12,4,8,4,20">
<br>
<br>
<input type=button value="urutkan" onClick="Urutkan(this.form)">
<br>
<br>
<br>
Hasil Pengurutan :
<hr>
<input type=text name=Hasil size=30>

</form>
</center>

</body>
</html>

posted by Abah Kemod,,, @ 19.46 0 comments

Minggu, 21 Juni 2009

<marquee direction="left"><b>Selamat Datang di blogger Kemod </b></marquee>

posted by Abah Kemod,,, @ 01.39 0 comments

About Me

Name: Abah Kemod,,,
Home:
About Me:
See my complete profile