function stellamod(n)
% stellamod.m
% Disegna una stella a n punte
%
% riceve in ingresso n

figure(n)
hold on
a=0.6;
t=linspace(0,2*pi,n+1);
s=linspace(pi/n,2*pi-pi/n,n);

% scrittura compatta
x(1:2:2*n+1)=cos(t);
x(2:2:2*n)=a*cos(s);

% scrittura estesa equivalente
for i = 1:2:2*n+1
    k = (i-1)/2 + 1;
    y(i) = sin(t(k));
end
% equivalente a 
% y(1:2:2*n+1)=sin(t);
y(2:2:2*n)=a*sin(s);
plot(x,y);
axis('square');

axis off

