Listing MATLAB Mencari persamaan linear menggunakan metode Gauss jordan

 

TUGAS FISIKA KOMPUTASI

 

[LOGO]

 

Dosen Pengampu: [...]

Disusun Oleh : [....]

 

 

SEMESTER [GANJIL/GENAP]

TAHUN AKADEMIK [.../...]

 

KEMENTERIAN [...]

UNIVERSITAS [...]

FAKULTAS [...]

[KOTA]

[TAHUN]

 

1.      Permasalahan
Mencari persamaan linear menggunakan metode Gauss jordan
14x+5y+7z=24
x+25y-9z=20
25x-12y-3z
 
2.      Listing Program
%program metode Gauss_Jordan
%By: Dicta Delfiani Rahman
disp(' ')
disp('ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo')
disp('o      SOLUSI PERSAMAAN LINIER DENGAN METODE GAUSS-JORDAN     o')
disp('ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo')
disp(' ')
disp('Siapkan Ruang Untuk Matriks A')
m=input('masukkan jumlah baris = ');
n=input('masukkan jumlah kolom = ');
A=zeros(m,n);
disp(' ')
disp('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>')
disp('               MENG-INPUT ELEMEN MATRIKS A               ')
disp('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<')
disp(' ')
for i=1:m
    for j=1:n
        disp(['A' num2str(i) ',' num2str(j)'])
        A(i,j)=input(' =');
    end
end
disp(' ')
disp('Matriks A')
disp('A =')
disp(A)
B=zeros(m,1);
disp(' ')
disp('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>')
disp('                 MENG-INPUT ELEMEN MATRIKS B             ')
disp('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<')
disp(' ')
for i=1:m
    disp(['B' num2str(i) ',1'])
    B(i,1)=input(' =');
end
disp(' ')
disp('Matriks B')
disp('B =')
disp(B)
disp(' ')
disp('ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo')
disp('o       TEKAN ENTER UNTUK FAKTOR ELIMINASI GAUSS-JORDAN       o')
disp('ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo')
pause
[L,U]=lu(A)%Faktor Eliminasi Gauss-Jordan
disp('ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo')
disp('o        TEKAN ENTER UNTUK SOLUSI AKHIR PERSAMAAN LINEAR      o')
disp('ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo')
pause
x=zeros(m,1);
%mengisi matriks x(solusi)dengan metode Eliminasi Gauss
y=L\B;
x=U\y;
X=x;
disp(' ')
disp('X= ')
disp(X)
          
3.  Hasil Running
>> 
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
o        SOLUSI PERSAMAAN LINIER DENGAN METODE GAUSS-JORDAN         o
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 
Siapkan Ruang Untuk Matriks A
masukkan jumlah baris = 3
masukkan jumlah kolom = 3
 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
MENG-INPUT ELEMEN MATRIKS A
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
 
A1,1
 =14
A1,2
 =5
A1,3
 =7
A2,1
 =1
A2,2
 =25
A2,3
 =-9
A3,1
 =25
A3,2
 =-12
A3,3
 =-3
 
Matriks A
A =
    14     5     7
     1    25    -9
    25   -12    -3
 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
MENG-INPUT ELEMEN MATRIKS B
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
 
B1,1
 =24
B2,1
 =20
B3,1
 =17
 
Matriks B
B =
    24
    20
    17
 
 
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
o          TEKAN ENTER UNTUK FAKTOR ELIMINASI GAUSS-JORDAN          o
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 
L =
 
    0.5600    0.4600    1.0000
    0.0400    1.0000         0
    1.0000         0         0
 
 
U =
 
   25.0000  -12.0000   -3.0000
         0   25.4800   -8.8800
         0         0   12.7645
 
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
o          TEKAN ENTER UNTUK SOLUSI AKHIR PERSAMAAN LINEAR          o
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 
X=
    1.1698
    0.9110
    0.4382