Persamaan Linier Simultan Metode Eliminasi Gauss Jordan

Dengan Algoritma Metode Eliminasi Gauss-Jordan:

Yang pertama ,Masukkan matrik A, dan vektor B beserta ukurannya n



Yang kedua  Buat augmented matrik [A|B] namakan dengan A

Untuk baris ke i dimana i=1 s/d n

Saatnya Perhatikan apakah nilai ai,i sama dengan nol :
Bila ya :
pertukarkan baris ke i dan baris ke i+k≤n, dimana ai+k,i tidak sama dengan nol, bila tidak ada berarti perhitungan tidak bisa dilanjutkan dan proses dihentikan dengan tanpa penyelesaian.
Bila tidak : lanjutkan
bJadikan nilai diagonalnya menjadi satu, dengan cara untuk setiap kolom k dimana k=1 s/d n+1, hitung

Untuk baris ke j, dimana j = i+1 s/d n

Lakukan operasi baris elementer: untuk kolom k dimana k=1 s/d n

Hitung c = aj,i

Hitung a j,k  = a j,k  - c.ai,

Penyelesaian, untuk i = n s/d 1 (bergerak dari baris ke n sampai baris pertama)

xi  = ai,n+1

 

#include
#include
#include main(){
int n=3,i,j,k,s,t;
double A[3][4] = {{1,1,1,6},{1,2,-1,2},{2,1,2,10}};
double c,b;

printf("The Augmented Matrikn");
for(i=0; i<n; i++){
for(j=0; j<(n+1); j++)
printf("%2g ",A[i][j]);
printf("n");
}

printf("nProses Operasi Baris Elementer: n");
for(i=0;i<n;i++){
b = A[i][i];
for(k=0;k<=n;k++)
A[i][k] = A[i][k] / b;
for(j=0;j<n;j++){
if(j != i){
c=A[j][i];
for(k=0;k<=n;k++)
A[j][k]=A[j][k]-c*A[i][k];
for(s=0;s<n;s++){
for(t=0;t<n+1;t++)
printf("%2g ", fabs(A[s][t]));
printf("n");
}
printf("================n");
}
}
}

printf("Nilai variable yg dicari : n");
for(i=0; i<n; i++)
printf("X[%d] = %2g n",i+1,A[i][n]);
getch();
}

terima kasih atas kunjungannya,semoga bermafaat untuk kita semua