Program Penyelesaian SPL dengan Metode Crammer

     Membuat program penyelesaian SPL dengan metode Cramer 

1.    Ketikkan perintah berikut pada M-File:

clear all;

clc;

format rat;

disp(' Program Penyelesaian SPL dengan Metode Cramer');

disp(' ');

a=input('Masukkan banyak baris : ');

b=input('Masukkan banyak kolom : ');

while a>b | a<b

    clear all;

    clc;

    disp(' Program Penyelesaian SPL dengan Metode Cramer');

    disp(' ');

    a=input('Masukkan banyak baris : ');

    b=input('Masukkan banyak kolom : ');

end

for i=1:a;

    for j=1:b;

        A(i,j)=input(['Elemen A [',num2str(i),',',num2str(j),'] = ']);

    end

end

disp(' ');

disp(['Matriks [',num2str(a),',',num2str(b),'] = ']);

A

t=det(A);

disp(['Determinannya = ',num2str(t)]);

disp(' ');

for k=1:a;

B(k,:)=input(['Elemen B [',num2str(k),',1] = ']);

end

B

for j=1:a;

   A1=A;

   for i=1:a;

       A1(i,j)=B(i);

   end

   x(j)=det(A1)/t;

end

disp('Diperoleh nilai X adalah ');

x

Run dengan mengklik ikon  sehingga muncul sebagai berikut :