%KARTKA 3
clear;
clc;
%zad3)
%ad1)
N=5 %(N=input('podaj wartosc N: '))
A= normrnd(3,10,[1,N])
save liczby.mat A
%ad2)
Z1=randn
Z2=randn
U=sqrt(-2*log(Z1)*cos(Z2))
%ad3)
w=1
k=5
B=randn(w,k)
sr=mean(B) %średnia arytmetyczna wierszowa
mediana=median(B) %mediana
odchylenie=std(B)     %odchylenie standardowe
Kwartyle = quantile(B,[0.25, 0.5, 0.75])
skosnosc=skewness(B)
kurtoza= kurtosis(B)        %kurtoza
subplot(3,1,1)
boxplot(B)      %wykres pudełkowy
subplot(3,1,2)
hist(B)         %histogram
subplot(3,1,3)
qqplot(B)       %wykres kwantylowy

4)
clc
clear
format compact
load liczby.mat
x=input('Podaj ilość par: ');

X1=zeros(x,0);%tworzenie pustej macierzy o X miejscach
X2=zeros(x,0);
for i=1:x
 losowanko = randperm(length(r),1);
 x1 = r(losowanko);
 X1(i)=x1;
 losowanko = randperm(length(r),1);
 x2 = r(losowanko);
 X2(i)=x2;
end

Y=X1-X2
histogram(Y)
Srednia =mean(Y)
Odchylenie =std(Y)

%savefile = 'losowanko.mat';
%save(savefile, 'X1', 'X2');
6)
clc
clear
format compact

x=input('Podaj ilość x razy: ');
X=zeros(x,0);
  a=0.01;
   for i=1:x
 x1 = a*x;
 a=a+0.01;
 X(i)=x1;
end

X
Y=X.^2
histogram(Y)

7)
clc
clear
format compact
load liczby.mat

x=input('Podaj ilość wylosowanych liczb K: ');
M=input('Podaj ile razy podtworzyc procedure M: ');

X1=zeros(x,0);%tworzenie pustej macierzy o X miejscach
X2=zeros(x,0);
X3=zeros(x,0);
X4=zeros(x,0);
X5=zeros(x,0);
X6=zeros(x,0);
X7=zeros(x,0);
X8=zeros(x,0);
X9=zeros(x,0);
X10=zeros(x,0);
X11=zeros(x,0);
X12=zeros(x,0);
X13=zeros(x,0);
X14=zeros(x,0);
for z=1:M
   for i=1:x
    losowanko = randperm(length(r),1);
    x1 = r(losowanko);
    X1(i)=x1;
   end

end