p=[24,10;27,1;35,1;38,4;34,9;44,8;50,19;44,25;24,25;30,18;24,10;27,1]
x=p(:,1);
y=p(:,2);

[~,xmin]=min(x);
[~,xmax]=max(x);
xmin
xmax
%expanded red
%new added green
%poligon red

figure(1)
scatter(x,y);
line(p([1,7],1),p([1,7],2),'Color',[1 0 0])
line(p([1,3],1),p([1,3],2),'Color',[0 1 0])
line(p([7,3],1),p([7,3],2),'Color',[0 1 0])

figure(2)
scatter(x,y);
line(p([1,7],1),p([1,7],2),'Color',[0 0 1])
line(p([7,3],1),p([7,3],2),'Color',[0 0 1])
line(p([1,3],1),p([1,3],2),'Color',[1 0 0])
line(p([1,2],1),p([1,2],2),'Color',[0 1 0])
line(p([3,2],1),p([3,2],2),'Color',[0 1 0])

figure(3)
scatter(x,y);
line(p([1,7],1),p([1,7],2),'Color',[0 0 1])
line(p([7,3],1),p([7,3],2),'Color',[1 0 0])
line(p([1,2],1),p([1,2],2),'Color',[0 0 1])
line(p([3,2],1),p([3,2],2),'Color',[0 0 1])
line(p([7,6],1),p([7,6],2),'Color',[0 1 0])
line(p([3,6],1),p([3,6],2),'Color',[0 1 0])

figure(4)
scatter(x,y);
line(p([1,2],1),p([1,2],2),'Color',[0 0 1])
line(p([3,2],1),p([3,2],2),'Color',[0 0 1])
line(p([7,6],1),p([7,6],2),'Color',[0 0 1])
line(p([3,6],1),p([3,6],2),'Color',[0 0 1])
line(p([9,7],1),p([9,7],2),'Color',[0 1 0])
line(p([9,1],1),p([9,1],2),'Color',[0 1 0])

figure(5)
scatter(x,y);
line(p([1,2],1),p([1,2],2),'Color',[0 0 1])
line(p([3,2],1),p([3,2],2),'Color',[0 0 1])
line(p([7,6],1),p([7,6],2),'Color',[0 0 1])
line(p([3,6],1),p([3,6],2),'Color',[0 0 1])
line(p([9,7],1),p([9,7],2),'Color',[1 0 0])
line(p([9,1],1),p([9,1],2),'Color',[0 0 1])
line(p([9,8],1),p([9,8],2),'Color',[0 1 0])
line(p([8,7],1),p([8,7],2),'Color',[0 1 0])

figure(6)
scatter(x,y);
line(p([1,2],1),p([1,2],2),'Color',[0 0 1])
line(p([3,2],1),p([3,2],2),'Color',[0 0 1])
line(p([7,6],1),p([7,6],2),'Color',[0 0 1])
line(p([3,6],1),p([3,6],2),'Color',[0 0 1])
line(p([9,1],1),p([9,1],2),'Color',[0 0 1])
line(p([9,8],1),p([9,8],2),'Color',[0 0 1])
line(p([8,7],1),p([8,7],2),'Color',[0 0 1])