enamp.m

safsdrghfydjg kukugilihg b nmvhjtdyewrtwert

function [m]=EnAmp(A)

s=size(A);
for k=1:s(1)
    m(k,k)=A(k,k);
     m(s(1)+k,s(1)+k)=A(k,k);
      m(2*s(1)+k,2*s(1)+k)=A(k,k);
end