MATLAB Penyelesaian Gauss-Naif & Gauss-Jordan [PDF]

Citation preview

clc; clear; disp('NAMA disp('NPM disp('KELAS



: Mohammad Khairurijal') : 201143501321 ') : S5K ')



disp('===================================================================') disp('Solusi dari persamaan:') disp(' W - X + 2Y - Z = -8') disp(' 2W - 2X + 3Y - 3Z = -20') disp(' W + X + Y = -2') disp(' W - X + 4Y + 3Z = 4') disp('Menggunakan Metode Eliminasi Gauss-Naif') A=[1 -1 2 -1 -8;2 -2 3 -3 -20;1 1 1 0 -2;1 -1 4 3 4] disp('Baris 2 = Baris 2 - 2 Di kali Baris 1') A(2,:)=A(2,:)- 2*A(1,:) disp('Baris 3 = Baris 3 Baris 1') A(3,:)=A(3,:)- A(1,:) disp('Baris 4 = Baris 4 - Baris 1') A(4,:)=A(4,:)- A(1,:) disp('Antara Baris Ke-2 Dan Baris Ke-3 Harus Di Tukar') A=[1 -1 2 -1 -8;0 2 -1 1 6;0 0 -1 -1 -4;0 0 2 4 12] disp('Baris 4 = Baris 4 - Baris 1') A(4,:)=A(4,:)+ 2*A(3,:) disp('Hasil Yang di Dapat dari Gauss-Naif') Z=A(4,5)/ A(4,4) Y=(A(3,5)- Z*A(3,4))/A(3,3) X=(A(2,5)- Y*A(2,3)- Z*A(2,4))/A(2,2) W=(A(1,5)- Y*A(1,3)- Z*A(1,4)- X*A(1,2))/A(1,1) disp('===================================================================') disp('Di Lanjutkan Dengan Menggunakan Metode Eliminasi Gauss-Jordan') disp('Kita Ambil Data Terakhir dari Gauss-Naif') A=[1 -1 2 -1 -8;0 2 -1 1 6;0 0 -1 -1 -4;0 0 0 2 4] disp('Baris 4 = Baris 4 Di Bagi 2') A(4,:)=A(4,:)/ 2 disp('Baris 3 = Baris 3 + Baris 4') A(3,:)=A(3,:)+ A(4,:) disp('Baris 3 = -Baris 3') A(3,:)=-A(3,:) disp('Baris 2 = Baris 2 Di Bagi 2') A(2,:)=A(2,:)/2 disp('Baris 2 = Baris 2 + (Baris 3 Di Bagi 2)') A(2,:)=A(2,:)+ (A(3,:)/2) disp('Baris 2 = Baris 2 - (Baris 4 Di Bagi 2)') A(2,:)=A(2,:) - (A(4,:)/2) disp('Baris 1 = Baris 1 + Baris 2') A(1,:)=A(1,:) + A(2,:) disp('Baris 1 = Baris 1 - (2 Di Kali Baris 3') A(1,:)=A(1,:) - (2*A(3,:)) disp('Baris 1 = Baris 1 + Baris 4') A(1,:)=A(1,:) + A(4,:) disp('Hingga Didapat Hasil Akhir Gauss-Jordan')



W=A(1,5) X=A(2,5) Y=A(3,5) Z=A(4,5)