Program M-File Untuk Rank Matriks Partisi

%Matriks A harus berukuran mxp

%Matriks B harus berukuran mxq

%Matriks C harus berukuran nxp

%Matriks D harus berukuran nxq

function[P,A,B,C,D,A1,B1,C1,D1,P1]=partisi(M1,M2,M3,M4,m,n,p,q)

A=M1;

B=M2;

C=M3;

D=M4;

for i=1:m

    for j=1:p

        P(i,j)=A(i,j);

    end

end

for i=1:m

    for j=1:q

        P(i,j+p)=B(i,j);

    end

end

for i=1:n

    for j=1:p

        P(i+m,j)=C(i,j);

    end

end

for i=1:n

    for j=1:q

        P(i+m,j+p)=D(i,j);

    end

end

A1=rank(A)

B1=rank(B)

C1=rank(C)

D1=rank(D)

P1=rank(P)