Metode Numerik - Eliminasi Gauss Seidel dengan Bahasa C

Postingan kali ini membahas tentang mata kuliah Metode Numerik tentang Metode Eliminasi Gauss Seidel dengan menggunakan pemrograman bahasa C. Berikut ini adalah listing codenya:

#include
#include

double A[50][50], nilai_awal[50], hasil[50], e;

void inisial(int n);
int input();
void tampil(int n);
void gauss_seidel(int n,int *val);
void iterasi_proses(int n);

void main()
{
int n;


puts("     -------- Metode Gauss Seidel --------\n");

n = input();

puts("\n");
tampil(n);

puts("\n");

iterasi_proses(n);
puts("\n\t\t =======> |*| END |*| <=======\n");
}

void inisial(int n)
{
int i;
double nilai;
printf("Input nilai awal\t: ");
scanf("%lf",&nilai);

for(i=0;i
nilai_awal[i] = nilai;
}

int input()
{
int i,j,n;
printf("Masukkan toleransi error\t: ");
scanf("%lf",&e);
printf("Masukkan ordo matriks\t: ");
scanf("%d",&n);
puts("\nMasukkan matriks + vektor\t:");

for(i=0;i
{
for(j=0;j<=n;j++)
{
printf("Matriks A[%d][%d] : ",i+1,j+1);
scanf("%lf",&A[i][j]);
}
}
return(n);
}

void tampil(int n)
{
int i,j;

puts("Matriks mula-mula -->");
puts("=================================");
for(i=0;i
{
for(j=0;j<=n;j++)
{
printf("%.4f\t",A[i][j]);

}
puts("");
}
puts("=================================\n");
}

void iterasi_proses(int n)
{
int iterasi, i=0, val=0;

printf("Masukkan jumlah iterasi   : ");
scanf("%d",&iterasi);

inisial(n);

puts("=============================================================");
printf("i\t");

for(i=0;i
printf("x[%d]\t",i+1);
for(i=0;i
printf("e[%d]\t",i+1);

printf("\n");
puts("=============================================================");

i=0;
printf("%d",i);

for(i=0;i
printf("\t%.4f",nilai_awal[i]);

puts("");

for(i=1;i<=iterasi;i++)
{
printf("%d",i);

gauss_seidel(n, &val);
puts("");

if(val==1)
break;
}
puts("=====================================================");
puts("\nhasil\t: ");

for(i=0;i
{
printf("x[%d] : %f\n",i+1,nilai_awal[i]);
}
}

void gauss_seidel(int n,int *val)
{
int i,j;
double sigma=0,temp[50];

for(i=0;i
{
sigma = 0;
for(j=0;j
{
if(i!=j)
{
sigma = sigma + nilai_awal[j] * A[i][j];
}
}

hasil[i] = (A[i][n] - sigma)/A[i][i];
temp[i] = nilai_awal[i];
nilai_awal[i] = hasil[i];

printf("\t%.4f",nilai_awal[i]);
}

for(i=0;i
{
if(fabs(fabs(temp[i]-hasil[i]))>100)
{
printf("\n\nHasil Divergen!!! :-( \n");
puts("\n\t\t =======> |*| END |*| <=======\n");
exit(1);
}

printf("\t%.4f",fabs(temp[i]-hasil[i]));
if(fabs(temp[i]-hasil[i])<=e)
{
*val=1;
}
}
}



Output:

Untuk source code bisa didownload di sini:

https://www.dropbox.com/s/lybi1d0zpoj6ytg/seidel.c

Read More

Pemrograman Java - Menampilkan Deret Bilangan Fibonacci dengan Array

Pada postingan kali ini saya inging sharing listing code menampilkan deret bilangan Fibonacci dengan array menggunakan pemrograman Java. So, langsung cek di bawah:

import java.util.Scanner; //untuk input bilangan

public class latihan2{

    public static void main(String dede[]) {

   System.out.print ("Masukkan jumlah deret Fibonacci : ");

   Scanner inputan = new Scanner (System.in); //pengambilan inputan

   int x = inputan.nextInt(); //inisialisasi x

   int [] fibo = new int [x]; //inisialisasi dan deklarasi array

    fibo[0]=0;

     fibo[1]=1;

   for(x=2;x=2;x

fibo[x]=fibo[x-1]+fibo[x-2]; //rumus mencari bilangan Fibonacci

System.out.print("Bilangan Fibonacci: ");

   for(x=0;x

System.out.print(fibo[x]+" ");

}

}

Output:

Sekian postingan kali ini. Semoga bermanfaat.

Read More

PENS Sapu Bersih Juara KRI 2013 Regional IV di GOR UNESA

Hasil KRI 2013 Regional IV di UNESA, 27 April 2013

Surabaya - Tim robot "ERSION" dari Politeknik Elektronika Negeri Surabaya (PENS) akhirnya menjuarai Kontes Robot Indonesia (KRI) 2013 Regional IV di GOR Bima Universitas Negeri Surabaya, Sabtu malam.

"Prestasi itu diraih Tim PENS setelah mampu mengalahkan tim robot 'RI-Vet' dari ITS saat bertemu dalam babak final KRI 2013. Sebelumnya, mereka mengikuti babak semifinal bersama Miracle SWC-8, dan New Rengganis," kata kepala Humas PENS Andri Suryandari.

Pertandingan semifinal pertama antara RI-Vet asal ITS melawan Miracle SWC-8 asal STMIK Surabaya membawa sukses tim RI-Vet dengan pencapaian Green Planet, namun tim dari STMIK Surabaya tidak kecewa, karena ketujuh "leaves" mampu menempati "hole" secara tepat.

Dalam pertandingan semifinal kedua antara New Rengganis dari Unesa dengan ERSION dari PENS juga mengundang antusiasme penonton, karena unjuk kebolehan ERSION dalam "duet spesial" antara robot manual dan automatic mencapai "The Green Planet" sebelum waktu selesai.

Hasil itu menandai "All Final's ITS" terulang untuk ke sekian kalinya pada Final KRI Regional IV dengan keunggulan PENS atas ITS secara "green planet", sedangkan juara ketiga diraih tim Miracle-SWC 08 dari STIMIK Surabaya.

Untuk juara ke 1, 2 dan 3 akan mewakili KRI Regional IV untuk melaju ke tingkat nasional di Semarang. Mereka menjuarai KRI yang diikuti 68 tim dari 25 perguruan tinggi negeri dan swasta se-Jawa Timur.

Lima jenis kompetisi dalam KRI 2013 adalah KRI, Kontes Robot Pemadam Api Indonesia (KRPAI, divisi robot beroda dan robot berkaki), Kontes Robot Seni Indonesia (KRSI), dan Kontes Robot Sepak Bola Indonesia (KRSBI) atau Humanoid.

Tahun ini, PENS mengikuti semua divisi dengan menurunkan lima tim robotnya, yakni ERSION, EILERO, EFFIRO, EROS, dan ERISA. Seleksi KRPAI divisi beroda menyaring tiga wakil dari Regional 4 yaitu Arus (Universitas Dr. Soetomo), EFFIRO (PENS), dan Al-Jazari (ITS).

Di divisi berkaki, dipilihlah EILERO (PENS) di peringkat pertama, lalu Ulil Albab (Polinema) dan terakhir Child13Sh (Unmuh Malang).

Untuk divisi berkaki, skor ditentukan melalui jarak tempuh dan banyak ruangan yang dilaluinya. Poin tambahan akan diperoleh jika robot mampu memadamkan api.

Pada divisi KRSI, enam robot berlenggok menarikan tarian Hanoman Duta. Robot V-Nara, IBRAHIMI, eSPe'04, SUGRIWA, KETEUS, dan ERISA. Akhirnya, terpilihlah ERISA, V-Nara dan eSPe'04 di peringkat 1-3 yang berlaga di KRI Nasional.

Untuk final KRSBI, EROS (PENS) bertemu dengan Ichiro (ITS). Dalam pertandingan yang terbagi dalam dua babak ini, EROS berhasil memenangkan pertandingan dengan skor 10-0.

Hingga kini, seleksi telah terlaksana di 2 regional, yaitu regional 1 (Sumatera) dan regional 4 (Jawa Timur). Masih ada tiga seleksi lagi yakni seleksi regional 2 (Jakarta dan Jabar), regional 3 (Jawa Tengah) dan regional 5 (Indonesia Timur).

Sumber: http://www.centroone.com/index.php/news/2013/04/4y/robot-ersion-juarai-kri-region-iv/

Read More

Program Eliminasi Metode Gauss dengan Bahasa C

Pada kali ini saya akan memposting listing code program eliminasi metode Gauss (atau Gauss Naive) dengan menggunakan bahasa pemrograman C. So, cek this out:


#include
#include
#include

void input();
void tampil();

float A[25][25]; //{{1,1,1,6},{1,2,-1,2},{2,1,2,10}}
float x[25];
int n;

void main()
{
int i,j,k;
float sigma, flag, b[25];

puts("Program Eliminasi Gauss\n");

input();

for(j=0; j
{
for(i=j+1; i
{
flag = A[i][j] / A[j][j];

for(k=0;k
{
A[i][k] = A[i][k] - flag * A[j][k];
}
}
}

for(i=0;i
{
b[i] = A[i][n];
}

x[n-1] = b[n-1]/A[n-1][n-1];

for(k=n-2; k >= 0; k--)
{
sigma = 0;

for(j=k+1; j < n ; j++)
{
sigma = sigma + A[k][j] * x[j];
}

x[k] = (b[k] - sigma) / A[k][k];
}

printf("Matriks setalah dilakukan OBE\n\n");
tampil();

printf("\nHasil Penyelesaian persamaan simultan\n\n");
for(i=0;i
{
printf("x%d = %g\n",i+1,x[i]);
}
puts("\n----- END -----\n");
puts("");
}

void input()
{
int i,j;
float vek[100];

printf("Input ordo matriks : ");

scanf("%d",&n);
puts("");

for(i=0;i
{
for(j=0;j
{
printf("matrik A[%d][%d] = ",i+1,j+1);
scanf("%f",&A[i][j]);
}
}

printf("\nInput vektor matriks : \n");

for(i=0;i
{
printf("vektor [%d] = ",i+1);
scanf("%f",&vek[i]);
A[i][j] = vek[i];
}

printf("\nMatriks awal:\n");
tampil();
puts("\n");
}

void tampil()
{
static int i,j;

puts("===========================================");
for(i=0;i
{
for(j=0;j<=n;j++)
{
printf("%4g",A[i][j]);
}
printf("\n");
}
puts("===========================================");
puts("");
}

Output:

Demikian postingan kali ini, selamat mencoba dan semoga bermanfaat

Read More

Jalur Pendakian Gunung Merbabu

          Hallo sobat blogger, setelah lama absen dari dunia blogging sekarang saya ingin posting jalur pendakian Gunung Merbabu (berhubung yang nulis juga mau ke sana). Oke, silakan membaca . . .

Gunung Merbabu - Sumber Google

     Gunung Merbabu adalah gunung tua yang sudah tak aktif lagi yang berada di Jawa Tengah dan bersebelahan dengan gunung Merapi. Gunung ini mempunyai ketinggian 3.145 mdpl. Merbabu cukup populer sebagai ajang kegiatan pendakian (biasanya pendakian dibarengkan dengan pendakian Gunung Mearpi yang terkenal dengan dobel M). 

Read More

Windows 8.1 Tinggalkan Desain Kotak-Kotak

Bocoran Windows 8.1 (cnet)

Jakarta - Rumor kehadiran penerus Windows 8 kembali menyeruak. Kali ini dikabarkan sistem operasi yang akan hadir sebagai Windows 8.1 tersebut akan menghilangkan tampilan Live Tile yang selama ini menjadi ciri khas Windows 8.

Read More