% 
function concentric_perimeters(a0,b0,length0,n0)

a=a0;
b=b0;
length=length0;
n=n0;
delta=10;


for i=1:n0  
  perimetric_squares(a,b,length,n);
  side_small=length/n;
  n=n-1;
  a=a+side_small;
  b=b+side_small;
  length=length-2*side_small;
end