%Obliczyc srednia zm. los. z rozkladu Pareto(alpha)

alpha=0.7;
[s (1)] = 0;
for i = 2:10000
m (i) = (rand)^(-1/alpha)-1;
s (i) = m (i) + s (i-1);
d (i) = s (i)/(i-1); 
endfor

plot (d);
