%%%% Wykonac wykres kwantylowy (q-q plot) dla
%%%%%% Exp(1)+1: ****
n =zeros;
u = zeros;
s = zeros;
m = zeros;
y = zeros;
x = zeros;
y1 = zeros;
y2 = zeros;
y3 = zeros;
y4 = zeros;

% wspolrzedna x-owa
for i=1:70
x (i) = -log(1-(i/71));
endfor



%%%%Exp(1)+1
for i=1:70
s (i) = log(-log(rand)+1);
endfor
y2 = sort (s);
endfor


plot (x, y2, '*')











