I have this code but I get error. It just does not run.
m=vander(2:4)';
e=m(2:3,:);
r=e(end:-1:1);
r=[-r,0,r(end:-1:1)];
y=kron([3,6,8],[1,1]);
x=[y,10,y(end:-1:1)];
m=@()rand(151,1)*10;
a=m()-5;
s=m();i=inpolygon(a,s,r,x);hold on;
fill(r,x,'g');plot(-a(inpolygon(a,s,r,x)),s(inpolygon(a,s,r,x)),'-y','LineW',8);plot(a(inpolygon(a,s,r,x)),s(inpolygon(a,s,r,x)),'.r',[109 97 114,'',107 101 114 115],50)
Added
Now it works, thanks @excaza!