function pr=polygoneReduit(p,k)
% PR=POLYGONEREDUIT(P,K) réduit un polygone convexe P
% par une homothétie de rapport K et de centr G, 
% barycentre du polygone

[li,co]=size(p);
g=barycentre(p);
pr=ones(li,1)*g+k*(p-ones(li,1)*g);
