#1 2017-06-14 10:32:54

Przemek

Administrator

Dołączył: 2017-06-13

Liczba postów: 21

Ćwiczenie 3

• Korelacja:

unction  tab=korel(ile)
tabliczka=zeros(1,ile);
xsr=0;
ysr=0;
xod=0;
yod=0;
cxy=0;
for i=1:ile
    zz=floor(rand()*100-50);
    %tabliczka(1,i)=floor(rand()*((zz*1.618))+(zz+3*i+7*zz));
    tabliczka(1,i)=floor(rand()*2*zz+((3*i+7)-zz));   
    %tabliczka(1,i)=floor(rand()*((zz*5)/i-zz)+(3*(i+zz)+zz*2));
end
for i=1:ile
    xsr=xsr+i;
    ysr=ysr+tabliczka(1,i);
end
xsr=xsr/ile;
ysr=ysr/ile;
for i=1:ile
    cxy=cxy+((i-xsr)*(tabliczka(1,i)-ysr));
    xod=xod+((i-xsr)^2);
    yod=yod+((tabliczka(1,i)-ysr)^2);
end
yod=sqrt(yod/ile);
xod=sqrt(xod/ile);
cxy=cxy/ile;
wsp_korelacji=cxy/(xod*yod);
   
for i=1:ile
x=1:ile;
wsp_korelacji;
plot(x,tabliczka,'*',x,3*x+7,'-');
end
wsp_korelacji
end