Program Pascal Rental Mobil

Program Pascal Rental Mobil menggunakan pengurutan selection minimum short dan pencarian menggunakan binary search.

Laporan Kegiatan Pementasan Drama

Ini adalah karya dari kelas XII IPA 1 di SMA Negeri 1 Sliyeg, Kab. Indramayu.

Pariwisata Indramayu

Sebagai wong dermayu kita kudu bangga, kudu melestarikan budayae, kudu njaga lingkungane, lan kudu memajukan, soke masyarakate sejahtera.

Cara Membuat WiFi dengan Mudah tanpa Software (hanya menggunakan cmd)

Tips dan trik cara membuat wifi mudah, praktis tanpa download ataupun instal software apapun, caranya sangat simpel tanpa perlu keahlian khusus.

Free Download Software Cisco Packet Tracer

Download Software Cisco Packet Tracer Full Version ini dengan mudah.

Rabu, 15 April 2015

Program Scilab Dekomposisi LU Metode LU Gauss

Program ini digunakan untuk menentukan solusi SPL menggunakan metode dekomposisi LU tepatnya LU Gauss menggunakan program Scilab.

Berikut Codingannya :

function nilai_x=LUGauss(A, b)
     M=[A b];
    [baris,kolom]=size(M)
     
    c=zeros(A);
    
    for i = 1:baris
        for j = i+1 : baris
            M(j,:)=-M(j,i)/M(i,i)*M(i,:)+M(j,:);
            L(j,i)=A(j,i)/A(i,i);
        end      
    end
    
    A=M(:,1:baris);
    b=M(:,kolom)
    
    [n,n]=size(A);
    
    k=0;
    while(k<n)
        L(k+1,k+1)=1;
        k=k+1
    end
      
    y(n)=b(n)/L(n,n);
    for i = n-1:-1:1
        jum=0;
        for j = i+1:n
            jum=jum+L(i,j)*y(j);
        end
        y(i)=(b(i)-jum)/L(i,i);
    end
    
    x(n)=y(n)/A(n,n);
    for i = n-1:-1:1
        jum=0;
        for j = i+1:n
            jum=jum+A(i,j)*x(j);
        end
        x(i)=(y(i)-jum)/A(i,i);
    end  
      
    nilai_x=x;     
    
endfunction


Cara menjalankan nya, misalkan ada contoh soal sbb :

2X1 + 3X2 - X3 = 5
4X1 + 4X2 - 3X3 = 3
-2X1 + 3X2 - X3 = 1

Lakukan :
1. Execute program 
2. masukkan matriks nya A=[ 2 3 -1;4 4 -3;-2 3 -1] enter
3. lalu masukan b=[5;3;1] enter
4. terakhir panggil program kita dengan perintah LUGauss(A,b) lalu enter

Maka program akan menampilkan hasil akhir untuk menentukan X1, X2 dan X3. Keluaran merupakan nilai dari X1, X2 dan X3 . Kalau tidak percaya silahkan coba lakukan dengan cara manual cek apakah hasilnya sama atau beda. 

Program ini bisa dilakukan untuk semua ukuran matriks, 2 x 2 , 3 x 3 , 4 x 4 , dst. 


Jangan Lupa Tinggalkan Komentar..., Terimakasih



Selasa, 31 Maret 2015

Kumpulan Perintah - Perintah Cisco Packet Tracer

Kumpulan Perintah - Perintah Cisco Packet Tracer



Router Configuration atau meng-Konfigurasi Router

Router>
Router>enable
Router#configure terminal
Router(config)#

Router(config)#line console 0
Router(config-line)#password cisco
Router(config-line)#login
Router(config-line)#exit

Router(config)#line vty 0 15
Router(config-line)#password cisco
Router(config-line)#login
Router(config-line)#exit

Router(config)#line aux 0
Router(config-line)#password cisco
Router(config-line)#login
Router(config-line)#exit

Router(config)#enable password class
Router(config)#enable secret class
Router(config)#service password-encryption

Router(config)#banner motd "Authorized Personnel Only"

Router(config)#interface gigabitEthernet 0/0
Router(config-if)#ip address 172.16.5.1 255.255.255.0
Router(config-if)#no shutdown
Router(config-if)#description S1 LAN
Router(config-if)#exit

Router(config)#interface gigabitEthernet 0/1
Router(config-if)#ip address 192.168.5.1 255.255.255.0
Router(config-if)#no shutdown
Router(config-if)#description S2 LAN
Router(config-if)#exit

Router(config)#exit
Router#copy running-config startup-config 


Switch Configuration alias meng-Konfigurasi Switch

Switch> 
Switch>enable
Switch#configure terminal
Switch(config)#

Switch(config)#hostname S1

S1(config)#line console 0  
S1(config-line)#password cisco  
S1(config-line)#login
S1(config-line)#exit

S1(config)#line vty 0 15
S1(config-line)#password cisco  
S1(config-line)#login
S1(config-line)#exit

S1(config)#enable password class  
S1(config)#enable secret class  
S1(config)#service password-encryption

S1(config)#banner motd "Authorized Personnel Only"

S1(config)#interface vlan 1  
S1(config-if)#ip address 172.16.5.2 255.255.255.0  
S1(config-if)#no shutdown
S1(config-if)#description S1 - Router LAN
S1(config-if)#exit

S1(config)#ip default-gateway 172.16.5.1 (ip default gateway di dapat dari IP jalur router yang mengarah ke switch, ada Gig0/0, Gig0/1)

S1(config)#exit  
S1#copy running-config startup-config


Untuk Switch ke-2

Switch> 
Switch>enable
Switch#configure terminal
Switch(config)#

Switch(config)#hostname S2

S2(config)#line console 0  
S2(config-line)#password cisco  
S2(config-line)#login
S2(config-line)#exit

S2(config)#line vty 0 15
S2(config-line)#password cisco  
S2(config-line)#login
S2(config-line)#exit

S2(config)#enable password class  
S2(config)#enable secret class  
S2(config)#service password-encryption

S2(config)#banner motd "Authorized Personnel Only"

S2(config)#interface vlan 1  
S2(config-if)#ip address 192.168.5.252 255.255.255.0  
S2(config-if)#no shutdown
S2(config-if)#description S2 - Router LAN  
S2(config-if)#exit

S2(config)#ip default-gateway 192.168.5.1 (ip default gateway di dapat dari IP jalur router yang mengarah ke switch, ada Gig0/0, Gig0/1)

S2(config)#exit  

S2#copy running-config startup-config

 

Untuk pengisian ip address, subnet mask dan ip default gateway pada PC, klik PC  > Desktop > IP Configuration > isilah sesuai dengan kolom-kolomnya.

Ok untuk sekarang, cukup sampai disini ajah dulu, nanti saya lanjutkan...,

Jangan lupa, tinggalkan komentar...., Terimakasih





Selasa, 24 Maret 2015

Algoritma Utama untuk Single Linked List

Algoritma Untuk untuk Single Linked List



{Algoritma Utama}
Algoritma_penyisipan_Single_Linked_List
Kamus :
            {prototype}
Procedure isi_elemen(Output  elemen : tipedata)
            Procedure sisip_depan_single(Input  elemen : tipedata, I/O  awal, akhir : nama_pointer)
            Procedure sisip_belakang_single(Input  elemen : tipedata, I/O  awal, akhir : nama_pointer)
            Procedure sisip_tengah_single(Input  elemen : tipedata, I/O  awal, akhir : nama_pointer)
           
{deklarasi}
            nama_pointer = ↑simpul
            simpul = Record
            < info : tipedata,
               next : nama_pointer>
            EndRecord

            awal, akhir : nama_pointer      {pointer penunjuk}
            menu : integer
            elemen : tipedata
Algoritma :
            {penciptaan list}
awal ß nil 
            akhir ß nil 

            {penyisipan}
            Repeat
                        output(“Menu Pilihan”)
                        output(“==========”)
                        output(“1. Sisip Depan”)
                        output(“2. Sisip Tengah”)
                        output(“3. Sisip Belakang”)
                        output(“0. Keluar”)
                        Input(menu)
                        Depend on (menu)
                                    (menu = 1)       : isi_elemen(elemen)
                                                              sisip_depan_single(elemen, awal, akhir)
                                    (menu = 2)       : isi_elemen(elemen)
                                                              sisip_tengah_single(elemen, awal, akhir)
                                    (menu = 3)       : isi_elemen(elemen)
                                                              sisip_belakang_single(elemen, awal, akhir)
                        EndDepend
            Until (menu = 0)






Algoritma Isi Elemen untuk Single Linked List

Algoritma Isi Elemen untuk Single Linked List



Procedure isi_elemen(Output  elemen : tipedata)
{I.S. : user memasukkan data yang akan disisipkan (elemen)}
{F.S. : mengahsilkan data yang akan disisipkan (elemen)}
Kamus :

Algoritma :
            Input(elemen)
EndProcedure









Algoritma Sisip Tengah untuk Single Linked List

Algoritma Sisip Tengah untuk Single Linked List



Procedure sisip_tengah_single(Input  elemen : tipedata, I/O  awal, akhir : nama_pointer)
{I.S. : data yang akan disisipkan (elemen), pointer penunjuk awal dan pointer penunjuk akhir sudah terdifinisi}
{F.S. : menghasilkan satu simpul yang disisipkan di tengah pada single linked list}
Kamus :
            baru,bantu : nama_pointer
            ketemu : boolean
            datasisip : tipedata
  
Algoritma :
            If (awal = nil)
              Then
                        Alloc(baru)
                        baru↑.info ß elemen
                        baru↑.next ß nil
                        awal ß baru
                        akhir ß baru
              Else
                        Input(datasisip)
                        bantu ß awal
                        ketemu ß false
                        While (not ketemu and bantu ≠ nil) do
                                    If (datasisip = bantu↑.info)
                                      Then
                                                ketemu ß true
                                      Else
                                                bantu ß bantu↑.next
                                    EndIf
                        EndWhile
                        If (ketemu)
                          Then
                                    Alloc(baru)
                                    baru↑.info ß elemen
                                    If (bantu = akhir)
                                      Then
                                                sisip_belakang_single(elemen,awal,akhir)
                                      Else
                                                baru↑.next ß bantu↑.next
                                                bantu↑.next ß baru
                                    EndIf
                          Else
                                    Output(“Data yang akan disisipkan tidak ada”);
                        EndIf
            EndIf
EndProcedure




Algoritma Sisip Belakang untuk Single Linked List

Algoritma Sisip Belakang untuk Single Linked List



Procedure sisip_belakang_single(Input  elemen : tipedata, I/O  awal, akhir : nama_pointer)
{I.S. : data yang akan disisipkan (elemen), pointer penunjuk awal dan pointer penunjuk akhir sudah terdifinisi}
{F.S. : menghasilkan satu simpul yang disisipkan di belakang pada single linked list}
Kamus :
            baru : nama_pointer
Algoritma :
            Alloc(baru)
            baru↑.info ß elemen
            baru↑.next ß nil
            If (awal = nil)
              Then
                        awal ß baru
              Else
                        akhir↑.next ß baru
            EndIf
            akhir ß baru
EndProcedure



Jangan lupa tinggalkan komentar ...., Terimaksih



Algoritma Sisip Depan untuk Single Linked List

Algoritma Sisip Depan untuk Single Linked List



Procedure sisip_depan_single(Input  elemen : tipedata, I/O  awal, akhir : nama_pointer)
{I.S. : data yang akan disisipkan (elemen), pointer penunjuk awal dan pointer penunjuk akhir sudah terdifinisi}
{F.S. : menghasilkan satu simpul yang disisipkan di depan pada single linked list}
Kamus :
            baru : nama_pointer
Algoritma :
            Alloc(baru)
            baru↑.info ß elemen
            If (awal = nil)
              Then
                        baru↑.next ß nil
                        akhir ß baru
              Else
                        baru↑.next ß awal
            EndIf
            awal ß baru

EndProcedure



Jangan lupa tinggalkan komentar ...., Terimaksih