0001
0002
0003
0004
0005
0006
0007
0008
0009 function p = pesos_overlapping(M,N,ov);
0010
0011 p = zeros(M);
0012
0013 tam =N+ov*2;
0014
0015 centro = ones(tam);
0016
0017 v = linspace(.9,.1,2*ov);
0018
0019 vr = repmat(v,tam-4*ov,1);
0020 vl = repmat(reverse(v),tam-4*ov,1);
0021 vb = repmat(v',1,tam-4*ov);
0022 vt = repmat(reverse(v)',1,tam-4*ov);
0023
0024 esquinabr = simrev(v);
0025 esquinatr = flipud(esquinabr);
0026
0027 esquinabl = fliplr(esquinabr);
0028 esquinatl = fliplr(esquinatr);
0029
0030 centro(1:2*ov,1:2*ov) = esquinatl;
0031 centro(1:2*ov,2*ov+1:tam-2*ov) = vt;
0032 centro(1:2*ov,N+1:N+2*ov) = esquinatr;
0033
0034 centro(2*ov+1:tam-2*ov,1:2*ov) = vl;
0035 centro(2*ov+1:tam-2*ov,tam-2*ov+1:tam) = vr;
0036
0037 centro(tam-2*ov+1:tam,1:2*ov) = esquinabl;
0038 centro(tam-2*ov+1:tam,2*ov+1:tam-2*ov) = vb;
0039 centro(tam-2*ov+1:tam,tam-2*ov+1:tam) = esquinabr;
0040
0041
0042 p((M-tam)/2+1:M-(M-tam)/2,(M-tam)/2+1:M-(M-tam)/2)=centro;