Matlab (matrik 3x3)

%Matrik
clear all;
clc;
disp('_________________________________________________________________________________________________________________________________________')
disp('Nama   :Refki Fatoni')
disp('Prodi  :1 Teknik Informatika (A)')
disp('                               MATRIK BERORDO 3X3')
disp('_________________________________________________________________________________________________________________________________________')
a11 = input ('masukkan nilai a11=');
a12 = input ('masukkan nilai a12=');
a13 = input ('masukkan nilai a13=');
a14 = input ('masukkan nilai a14=');
a21 = input ('masukkan nilai a21=');
a22 = input ('masukkan nilai a22=');
a23 = input ('masukkan nilai a23=');
a24 = input ('masukkan nilai a24=');
a31 = input ('masukkan nilai a31=');
a32 = input ('masukkan nilai a32=');
a33 = input ('masukkan nilai a33=');
a34 = input ('masukkan nilai a34=');
disp('=-=-=--=-=-=-=--=-=-=--=-=-=-=D E T E R M I N A N=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-')

A11 = (a22*a33-a32*a33)
A12 = -(a21*a33-a31*a23)
A13 = (a21*a32-a31*a22)
DetA = a11*A11+a12*A12+a13*A13

disp('=-=-=--=-=-=-=--=-=-=--=-=-=-=--=K O F A K T O R=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-')

k11 = (a22*a33-a32*a23)
k12 = -(a21*a33-a31*a23)
k13 = (a21*a32-a31*a22)
k21 = -(a12*a33-a32*a13)
k22 = (a11*a33-a31*a13)
k23 = -(a11*a32-a31*a12)
k31 = (a12*a23-a22*a13)
k32 = -(a11*a23-a21*a13)
k33 = (a11*a22-a21*a12)

disp('=-=-=--=-=-=-=--=-=-=--=-=-=-=--=-T R A N P O S=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-')

Tranpos = [k11 k21 k31; k12 k22 k32; k13 k23 k33]

Invers = (Tranpos/DetA)

disp('=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=B A R I S=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-')
B1 = [a11 a12 a13 a14]
B2 = [a21 a22 a23 a24]
B3 = [a31 a32 a33 a34]
A  = [B1;B2;B3]
disp('=-=-=-=-=--=-=-=-=-=-=--=-=-=-=E L I M I N A S I 1=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=-=--==-=-=-=-=--=-=-=-=--=-=-=-=-=-=-=-')
E21 = a11*B2-a21*B1;
E31 = a11*B3-a31*B1;
A1 = [B1 ; E21; E31]
disp('=-=-=-=-=--=-=-=-=-=-=--=-=-=-=E L I M I N A S I 2=-=-=-=-=--=-=-=-=-=-=--=-=-=-==-=-=-=-=--=-=-=-=-=-=--=-=-=-==-=-=-=-=--=-=-=-=-=-=--=-=-=-=')
G12 = A1(1,2);
G22 = A1(2,2);
G32 = A1(3,2);
E12 = G22*B1-G12*E21;
E33 = G22*E31-G32*E21;
A2  = [E12;E21;E33]
disp('=-=-=-=-=-=--=-=-=-=-=--=-=-=-=E L I M I N A S I 3=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=--=-=-=-=-=--=')
G31 = A2(1,3);
G32 = A2(2,3);
G33 = A2(3,3);
E13 = G33*E12-G31*E33;
E23 = G33*E21-G32*E33;
AH  = [E13; E23; E33]
disp('=-=-=-=-=-=--=-=-=-=-=--=-=-=--N I L A I X,Y,Z=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-=-=-=--=-=-=-=--=-=-=--=-=-=-=--==-=-=-=-=-=-=-')
X = AH(1,4)/AH(1,1)
Y = AH(2,4)/AH(2,2)
Z = AH(3,4)/AH(3,3)