Pada M-File :
clear all;
clc;
format rat;
a=0;
b=1;
while a~=b;
disp('PROGRAM PENYELESAIAN PERSAMAAN LINEAR');
disp(' MENGGUNAKAN METODE
CRAMMER');
disp('=====================================');
disp(' ');
a=input('Masukkan Banyaknya Baris = ');
b=input('Masukkan Banyaknya Kolom = ');
if a~=b;
disp(' ');
disp('Maaf,,,
banyaknya kolom dan baris matriks harus sama');
input('silahkan
tekan enter!');
clc;
end
end
disp(' ');
disp('=> Nilai Untuk Matriks A :');
for x=1:a
for y=1:b
A(x,y)=input([' inputkan matriks A[',num2str(x),',',num2str(y),'] = ']);
end
end
disp(' ');
disp('=> Nilai Untuk Matriks B :');
for x=1:a
B(x,1)=input([' inputkan
matriks B[',num2str(x),',1] = ']);
end
disp(' ');
disp('Jadi : ');
disp('*.Matriks A :');
disp(A);
disp('*.Matriks B :');
disp(B);
disp('dengan menggunakan metode crammer diperoleh :');
X=det(A);
z=1;
while z<=x;
Y=A;
for i=1:x;
Y(i,z)=B(i);
end
D=det(Y)/X;
disp(['x',num2str(z),' = ',num2str(D)]);
z=z+1;
end
Hasil
:
setelah tekan enter, maka akan diperoleh tampilan sebagai berikut :
Tidak ada komentar:
Posting Komentar