% määritelle piirtoväli (tehtävässä -2,2, mutta suppeneminen näkyy paremmin)
x = -5:0.01:5;
% lasketaan halutuille n
for n = 2:2:10
	% lasketaan funktion Sn arvot 
    sn = n*x./(1+(n*n).*x.^2);
	% piirretään arvot ja laitetaan otsikko    
	plot(x,sn),title(['function number',num2str(n)]);
    grid
	% pysäytetään silmukka 1.5 sekunniksi, että käytöstä voi tarkkailla
    pause(1.5);
end
