function stl(m,n)
% stl(m,n) plottar successiva medelvärden av 1,2,...,n stycken
% simulerade  exponentialfördelade observationer med väntevärde m.
% väntevärdet m inlagt i plotten
% m och n skall anges i anropet
% Observera hur medelvärdet närmar sig m, om n är stort.

x=-m*log(rand(1,n)); % vektor av n exponentialfördelade slumptal

y=cumsum(x)./(1:n); % vektor av successiva medelvärden
 
plot(1:n,y, [1 n],[m m]);

