% Démonstration de l'utilisation de la fonction ZELOTES.M

% jbr, 3-3-97

s=[];
pas=input('Donnez le pas: ');
npers=input('Donnez le nombre de personnes: ');
if pas<=0
	error('Le PAS doit être plus grand que 0')
end
for i=pas:npers
 	n=zelotes(i,pas);
	s=[s;i n];
end
s

% Attente
disp(' ')
disp('Appuyez sur une touche pour la représentation graphique...')
pause

% Représentation graphique de la dernière ligne de la matrice.
plot(0,0)
axis([-1.2 1.2 -1.2 1.2])
axis('square')
axis off
hold on
[h,j]=size(s);
t=0:2*pi/npers:2*pi;
plot(sin(t),cos(t),'*')
for f=1:npers
	text(1.1*sin(t(f)),1.1*cos(t(f)),num2str(f))
end
title([num2str(npers),' suicidaires et ',num2str(pas-1),' survivants'])
pause
for v=2:pas
	plot(sin(t(s(h,v))),cos(t(s(h,v))),'*r')
	text(1.1*sin(t(s(h,v))),1.1*cos(t(s(h,v))),num2str(s(h,v)),'color','r')
end
hold off

