0001 function iamp=ampliaconborde(im,borde)
0002
0003 iamp=rand(size(im)+[2*borde,2*borde]);
0004
0005
0006
0007 iamp(1+borde:end-borde,1+borde:end-borde)=im;
0008
0009
0010 iamp(1+borde:end-borde,1:borde)=repmat(im(:,1),1,borde);
0011
0012
0013 iamp(1+borde:end-borde,end-borde+1:end)=repmat(im(:,end),1,borde);
0014
0015
0016 iamp(1:borde,1+borde:end-borde)=repmat(im(1,:),borde,1);
0017
0018
0019 iamp(end-borde+1:end,1+borde:end-borde)=repmat(im(end,:),borde,1);
0020
0021
0022 iamp(1:borde,1:borde)=im(1,1);
0023
0024
0025 iamp(1:borde,end-borde+1:end)=im(1,end);
0026
0027
0028 iamp(end-borde+1:end,1:borde)=im(end,1);
0029
0030
0031 iamp(end-borde+1:end,end-borde+1:end)=im(end,end);
0032