Friday, October 3, 2014

Program M-File Eliminasi Gaus


Berikut adalah script yang bisa digunakan untuk membuat program matlab gaus.. semoga bermanfaat :)

%Program Eliminasi Gauss dengan Pertukaran Baris
%Matrik a ukuran [n,n] dimasukkan
%Matrik b ukuran [1,n] dimasukkan

[m, n] = size (a);
for i = 1:1:(n-1)
g= eye (n,n);
j=i
while a(i,j) == 0
c = a (j, :);
d = b (j) ;
a(j,:) = a (j+1, :);
b(j) = b(j+1);
a(j+1, :) = c;
b (j+1) = d;
end;
for k = 1 : 1 : n
if i == k
g(k,i) = a(k,i) / a(i,i);
else
g(k,i) = -a(k,i) / a(i,i);
end;
end;
a = g * a;
b = g * b;
end;

% Untuk melihat hasil akhir eliminasi gauss
a  % matriks segitiga atas
b
% mencari solusi X1, x2,...., Xn
x = zeros( n, 1);
for i = n : -1 : 1
c=0;
for j = 1 : 1 : n
if i ~= j
c=c + ( a( i, j) * x (j));
end;
end;
x(i,1) = (b(i)-c)  / a (i,i);
end;
%MEnampilkan hasilnya
x

Program M-File Eliminasi Gaus Rating: 4.5 Diposkan Oleh: Unknown