• Senin, 11 Juli 2011

      Buble 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)
      {
      alert("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>

      Praktikum Dijkstra

      <html>
      <head>
      <title>Dijkstra Algorithms</title>
      </head>
      <body>
      <script language = "javascript">
      <!--
      var nilaiacuan = 10000;
      var takterdefinisi = -1;
      var namaverteks = 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;
      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 lintasan = namaverteks[i];
      var verteks = i;
      while(verteks>0)
      {
      verteks = sebelum[verteks];
      if(verteks>=0)
      lintasan = namaverteks[verteks] + '->' + lintasan;
      }
      alert("Jarak : "+posisi[i]+' ('+lintasan+')');
      }
      else
      {
      alert("Tidak ada jalur");
      }
      }

      function init()
      {
      var x = nilaiacuan;
      document.write('<pre>');
      document.write('<br>');
      document.write(matriks[0] = new Array(0,2,3,x,x,x));
      document.write('<br>');
      document.write(matriks[1] = new Array(2,0,3,6,x,x));
      document.write('<br>');
      document.write(matriks[2] = new Array(3,3,0,3,5,x));
      document.write('<br>');
      document.write(matriks[3] = new Array(x,6,3,0,1,3));
      document.write('<br>');
      document.write(matriks[4] = new Array(x,x,5,1,0,1));
      document.write('<br>');
      document.write(matriks[5] = new Array(x,x,x,3,1,0));
      document.write('<br>');
      document.write('</pre>');

      var awal='<pre>';
      document.write(awal+'A--2-B--6--D--3-F'+'<br>');
      document.write(' \\ | / | / '+'<br>');
      document.write(' 3 3 3 1 1 '+'<br>');
      document.write(' \\ | / | / '+'<br>');
      document.write(' \\|/ |/'+'<br>');
      document.write(' C--5--E'+'<br>');
      document.write('</pre>');
      }

      init();
      var dari=0;
      var ke=5;
      dijkstra(matriks.length,dari,ke);

      //-->
      </script>
      </body>
      </html>

      Presentasi Dijkstra

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

      Subscribe To RSS

      Sign up to receive latest news