Persamaan Linier Dengan Metode Eliminasi Gauss Jordan

Metode Eliminasi Gauss 

Metode yang dikembangkan dari metode eliminasi, yaitu menghilangkan atau mengurangi jumlah variable sehingga dapat diperoleh nilai dari suatu variable bebas. Metode eliminasi gauss: metode dimana bentuk matrik augmented, pada bagian kiri diubah menjadi matrik segitiga atas/segitiga bawah dg menggunakan OBE (Operasi Baris Elementer).

Sehingga penyelesaian dapat diperoleh dengan:

SOURCE CODE MATLAB

         %Metode Gauss Jordan

%Penyelesaian persamaan linier dengan Metode Eliminasi Gauss Jordan

clc

clear

disp('Metode Eliminasi Gauss Jordan');

disp('==============================');

n=input('Masukkan ukuran matrik : ');

for i=1:n

    for j=1:n+1

        x=sprintf('A(%g,%g) : ',i,j);

        A(i,j)=input(x);

    end;

end;

%A ==>cetak Hasil Matrik Input

for k=1:n

    dummy=A(k,k);

    for j=1:n+1

        A(k,j)=A(k,j)/dummy;

    end;A

    for i=1:n

        if i==k;

            dummy=A(i,k);

            for j=1:n+1;

                %A(i,j)=A(i,j)-dummy*A(k,j);

            end

        end;

    end;

end;