enamp.m

来自「safsdrghfydjg kukugilihg b nmvhjtdyewrtw」· M 代码 · 共 8 行

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