clear;clc
int = readtable('dKukulova.xls', 'Sheet', '1005', 'ReadVariableNames', false, 'Range', 'a2:a547');
int = [int;int;int];
int = table2array(int);

%B392:469 sobota;B470:547 ned

dKukulova1 = readtable('dKukulova.xls', 'Sheet', '0706', 'ReadVariableNames', false, 'Range', 'B2:B547');
dVitezne2 = readtable('dKukulova.xls', 'Sheet', '1406', 'ReadVariableNames', false, 'Range', 'B2:B547');
dKukulova3 = readtable('dKukulova.xls', 'Sheet', '2106', 'ReadVariableNames', false, 'Range', 'B2:B547');
dKukulova = [dKukulova1; dVitezne2; dKukulova3];
dKukulova = table2array(dKukulova); 

dVitezne21 = readtable('dVitezne2.xls', 'Sheet', '0607', 'ReadVariableNames', false, 'Range', 'B2:B547');
dVitezne22 = readtable('dVitezne2.xls', 'Sheet', '0614', 'ReadVariableNames', false, 'Range', 'B2:B547');
dVitezne23 = readtable('dVitezne2.xls', 'Sheet', '0621', 'ReadVariableNames', false, 'Range', 'B2:B547');
dVitezne2 = [dVitezne21; dVitezne22; dVitezne23];
dVitezne2 = table2array(dVitezne2);

rychlost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin4', 'ReadVariableNames', false, 'Range', 'A1:A546');
rychlost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin4', 'ReadVariableNames', false, 'Range', 'C1:C546');
rychlost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin4', 'ReadVariableNames', false, 'Range', 'E1:E546');
obsazenost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin4', 'ReadVariableNames', false, 'Range', 'B1:B546');
obsazenost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin4', 'ReadVariableNames', false, 'Range', 'D1:D546');
obsazenost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin4', 'ReadVariableNames', false, 'Range', 'F1:F546');
Rychlost = [rychlost1; rychlost2; rychlost3; ];
Obsazenost = [obsazenost1; obsazenost2; obsazenost3];
Rychlost = table2array(Rychlost); Obsazenost = table2array(Obsazenost); 

rychlost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin5', 'ReadVariableNames', false, 'Range', 'A1:A546');
rychlost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin5', 'ReadVariableNames', false, 'Range', 'C1:C546');
rychlost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin5', 'ReadVariableNames', false, 'Range', 'E1:E546');
obsazenost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin5', 'ReadVariableNames', false, 'Range', 'B1:B546');
obsazenost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin5', 'ReadVariableNames', false, 'Range', 'D1:D546');
obsazenost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'zlicin5', 'ReadVariableNames', false, 'Range', 'F1:F546');
Rychlost2 = [rychlost1; rychlost2; rychlost3; ];
Obsazenost2 = [obsazenost1; obsazenost2; obsazenost3];
Rychlost2 = table2array(Rychlost2); Obsazenost2 = table2array(Obsazenost2);

rychlost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'dejvicka5', 'ReadVariableNames', false, 'Range', 'A1:A546');
rychlost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'dejvicka5', 'ReadVariableNames', false, 'Range', 'C1:C546');
rychlost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'dejvicka5', 'ReadVariableNames', false, 'Range', 'E1:E546');
obsazenost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'dejvicka5', 'ReadVariableNames', false, 'Range', 'B1:B546');
obsazenost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'dejvicka5', 'ReadVariableNames', false, 'Range', 'D1:D546');
obsazenost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'dejvicka5', 'ReadVariableNames', false, 'Range', 'F1:F546');
Rychlost3 = [rychlost1; rychlost2; rychlost3; ];
Obsazenost3 = [obsazenost1; obsazenost2; obsazenost3];
Rychlost3 = table2array(Rychlost3); Obsazenost3 = table2array(Obsazenost3);

rychlost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'JGpart', 'ReadVariableNames', false, 'Range', 'A1:A546');
rychlost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'JGpart', 'ReadVariableNames', false, 'Range', 'C1:C546');
rychlost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'JGpart', 'ReadVariableNames', false, 'Range', 'E1:E546');
obsazenost1 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'JGpart', 'ReadVariableNames', false, 'Range', 'B1:B546');
obsazenost2 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'JGpart', 'ReadVariableNames', false, 'Range', 'D1:D546');
obsazenost3 = readtable('dopravaUpraveno.xlsx', 'Sheet', 'JGpart', 'ReadVariableNames', false, 'Range', 'F1:F546');
Rychlost4 = [rychlost1; rychlost2; rychlost3; ];
Obsazenost4 = [obsazenost1; obsazenost2; obsazenost3];
Rychlost4 = table2array(Rychlost4); Obsazenost4 = table2array(Obsazenost4);

koef = [Rychlost Obsazenost dKukulova dVitezne2];
[R1 P1] = corrcoef(koef,'rows','complete');
writematrix(R1(3),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'A1');
writematrix(R1(4),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'A1');
writematrix(R1(7),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'A2');
writematrix(R1(8),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'A2');
koef2 = [Rychlost2 Obsazenost2 dKukulova dVitezne2];
[R1 P1] = corrcoef(koef2,'rows','complete');
writematrix(R1(3),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'B1');
writematrix(R1(4),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'B1');
writematrix(R1(7),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'B2');
writematrix(R1(8),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'B2');
koef3 = [Rychlost3 Obsazenost3 dKukulova dVitezne2];
[R1 P1] = corrcoef(koef3,'rows','complete');
writematrix(R1(3),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'C1');
writematrix(R1(4),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'C1');
writematrix(R1(7),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'C2');
writematrix(R1(8),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'C2');
koef4 = [Rychlost4 Obsazenost4 dKukulova dVitezne2];
[R1 P1] = corrcoef(koef4,'rows','complete');
writematrix(R1(3),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'D1');
writematrix(R1(4),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'D1');
writematrix(R1(7),'Koeficienty.xls', 'Sheet', 'dKukulova','Range', 'D2');
writematrix(R1(8),'Koeficienty.xls', 'Sheet', 'dVitezne2','Range', 'D2');
