%Testování webu obci
%*******************
format long g
clc
clear all

%Výpoèet normovaných vah pro jednotlivá kriteria:
%-------------------------------------------------
%a)Metoda bodovací:
%- - - - - - - - - -
%rozdìlení bodù od 1-8, kde 8=nejdùležitìjší kritérium
%bodovalo 10 nezávislých a zcela odlišných lidí
%Matice A:
%øádky = jednotlivá kritéra: 
    %Interaktivní mapu (zoomavací, s fotkami…)
    %Virtuální prohlídku (3D zobrazení èehokoli)
    %Fotogalerii (mìsto, zajímavosti, akce…)
    %Kontakt (e-mail z webu, telefon, adresu)
    %Celkový pìkný design
    %Aktuální informace (celková aktuálnost)
    %Turistické zajímavosti (kultura, zajímavá místa, možnost ubytování …)
    %Pøehlednost (jednoduchost pro uživatele)
%sloupce = jednotlivé osoby

A=[ 5	6	4	5	4	6	2	8	6	5
    4	6	2	4	4	6	1	3	7	5
    7	8	6	8	5	6	3	7	7	7
    8	8	8	8	7	8	4	5	6	8
    7	7	6	6	6	7	6	5	8	5
    8	8	7	7	8	8	8	8	6	8
    8	8	8	6	7	8	5	7	7	6
    8	7	7	8	8	8	7	4	8	6 ];

%souèet bodù pro jednotlivá kritéria:
a=sum(A');
%souèet všech bodù:
b=sum(a);
%výpoèet normovaných vah pro jednotlivá kritéria:
norm_vahy_1=(a/b)'

%b)Metoda klasifikace kritérií do tøíd:
%- - - - - - - - - - - - - - - - - - - - 
%roztøídìní do 4 tøíd, kde: 
    %1- kritérium je považováno za velmi dùležité 
    %2- kritérium je považováno za støednì dùležité 
    %3- kritérium je považováno za ménì dùležité 
    %4- kritérium je považováno za nedùležité 

%bodovalo 10 nezávislých a zcela odlišných lidí
%Matice A:
%øádky = jednotlivá kritéra: 
    %Interaktivní mapu (zoomavací, s fotkami…)
    %Virtuální prohlídku (3D zobrazení èehokoli)
    %Fotogalerii (mìsto, zajímavosti, akce…)
    %Kontakt (e-mail z webu, telefon, adresu)
    %Celkový pìkný design
    %Aktuální informace (celková aktuálnost)
    %Turistické zajímavosti (kultura, zajímavá místa, možnost ubytování …)
    %Pøehlednost (jednoduchost pro uživatele)
%sloupce = jednotlivé osoby

B=[ 3	2	3	3	3	3	3	1	2	3
    3	2	3	4	3	4	4	4	2	3
    1	1	2	1	3	3	2	2	2	2
    1	1	1	1	1	1	1	2	2	1
    2	2	2	3	2	2	1	3	1	3
    1	1	2	2	1	1	2	1	2	1
    2	1	1	2	1	1	1	2	2	2
    1	1	1	1	1	1	1	3	1	2];

%váhy pro jednotlivé tøídy zvolím takto:
%	        váha tøídy
%1. tøída	0,9
%2. tøída	0,7
%3. tøída	0,4
%4. tøída	0,1
c=[0.9 0.7 0.4 0.1];

%nyní urèím matici C, kde øádky jsou opìt jednotlivá kriteria a sloupce
%budou obsahovat èíslo, kolikrát bylo dané kritérium zaøazeno do dané
%skupiny (sloupce jsou øazeny od 1. do 4. tøídy):
C=[ 1	2	7	0
    0	2	4	4
    3	5	2	0
    8	2	0	0
    2	5	3	0
    6	4	0	0
    5	5	0	0
    8	1	1	0];

%nenormované váhy (10 je souèet každého øádku matice C):
d=(C*c')/10;

%výpoèet normovaných vah pro jednotlivá kritéria:
norm_vahy_2=d/(sum(d))

%------------------------------------------------------------------------
%prùmìrné normované váhy z obou metod:
norm_vahy=(norm_vahy_1+norm_vahy_2)/2

%názorné grafy:
hold on

Y=[ norm_vahy_1(1) norm_vahy(1) norm_vahy_2(1)
    norm_vahy_1(2) norm_vahy(2) norm_vahy_2(2)
    norm_vahy_1(3) norm_vahy(3) norm_vahy_2(3)
    norm_vahy_1(4) norm_vahy(4) norm_vahy_2(4)
    norm_vahy_1(5) norm_vahy(5) norm_vahy_2(5)
    norm_vahy_1(6) norm_vahy(6) norm_vahy_2(6)
    norm_vahy_1(7) norm_vahy(7) norm_vahy_2(7)
    norm_vahy_1(8) norm_vahy(8) norm_vahy_2(8)];

axis([0,9,0.06, 0.183])
bar(Y,1.5)
text(0.7,0.11,'mapa')
text(1.5,0.09,'prohlídka')
text(2.8,0.135,'foto')
text(3.6,0.16,'kontakt')
text(4.6,0.13,'design')
text(5.4,0.153,'aktuálnost')
text(6.5,0.149,'turistika')
text(7.5,0.154,'prehlednost')
xlabel('kritéria')
ylabel('normované váhy') 
title('Normované váhy dùležitosti pro jednotlivá kritéria')
legend('metoda bodovaci', 'prumer', 'klasifikace do trid')





%------------------------------------------------------------------------

%Hodnocení jednotlivých webù obcí a mìst:
%----------------------------------------
%hodnoceno body od 1 do 10, kde 10 je lejlepší (snaha o co nejvìtší objektivnost)
%uspoøádáno do matice M, kde sloupce jseou jednotlivá kritéria ve stále
%stejném poøadí a øádky jsou mìsta a obce v následujícím poøadí:
%Beèice
%Dražièky
%Drhovice
%Chýnov
%Jistebnice
%Libìjice
%Opaøany
%Radenín
%Radkov
%Stádlec
%Vodice
%Dolní Hoøice
%Dobronice
%Košín
%Malšice
%Nová Ves
%Turovec
%Øípec
%Choustník
%Chýnov virtuálnì

M=[ 6	1	7	9	7	8	3	9
    5	1	7	9	7	8	5	9
    6	1	8	10	7	3	5	9
    6	2	2	10	6	6	5	8
    1	1	10	9	8	10	10	8
    1	1	7	5	6	3	1	9
    2	1	10	10	10	10	3	10
    6	1	9	8	6	9	8	8
    2	1	10	4	8	4	1	7
    6	1	10	10	9	8	10	10
    1	1	2	10	8	5	1	9
    1	1	1	4	5	4	7	9
    5	1	10	5	6	8	3	9
    9	1	9	8	10	8	10	10
    5	1	10	8	9	7	6	10
    2	2	10	7	7	6	5	9
    5	3	10	8	9	6	6	8
    6	2	10	6	10	6	3	10
    1	1	9	10	8	9	9	10
    10	10	10	10	7	7	7	8  ];

%výpoèet celkového hodnocení webu pro každou obec:
hodnoceni=M*norm_vahy;

hold on
figure 
barh(hodnoceni)
axis([0,12,0,21])
text(8.6,20,'Chynov virtualne')
text(8,19,'Choustnik')
text(7,18,'Ripec')
text(7.3,17,'Turovec')
text(6.5,16,'Nova Ves')
text(7.5,15,'Malsice')
text(8.6,14,'Kosin')
text(6.3,13,'Dobronice')
text(4.5,12,'Dolni Horice')
text(5.1,11,'Vodice')
text(8.6,10,'Stadlec')
text(4.9,9,'Radkov')
text(7.4,8,'Radenin')
text(7.7,7,'Oparany')
text(4.5,6,'Libejice')
text(7.9,5,'Jistebnice')
text(6,4,'Chynov')
text(6.5,3,'Drhovice')
text(6.9,2,'Drazicky')
text(6.7,1,'Becice')

xlabel('obce a mìsta')
ylabel('celkové hodnocení') 
title('Celkové hodnocení jendotlivých webù obcí a mìst')


%------------------------------------------------------------------------

%Výpoèet závislosti celkového hodnocení na poètu obyvatel v mìstì èi obci:
%- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

%poèet obyvatel v mìstech a obcích, poøadí mìst výše
obyvatelstvo=[
            77
            110
            190
            2112
            2013
            102
            1392
            478
            152
            619
            219
            827
            180
            65
            1694
            233
            196
            290
            512
            2112
            ];


%vzájemná korelace:         
R = xcorr(hodnoceni,obyvatelstvo)

%Funkce CORRCOEF vrací matici korelaèních koeficientù propoèítaných z
%vstupní matice, jejíž øádky jsou zkoumány (mìsta) a jejíž sloupce jsou 
%promìnné (hodnoceni,obyvatelstvo) :
'Matice korelaèních koeficientù: závislost poètu obyvatel na celkovém hodnocení :'
C1 = corrcoef(hodnoceni,obyvatelstvo)



%rozloha mìst a obcí v [ha], poøadí mìst výše
vymera=[341
        512
        426
        3051
        5795
        295
        3144
        2691
        538
        1812
        1522
        3934
        550
        192
        3842
        662
        1325
        739
        1262
        3051];

'Matice korelaèních koeficientù: závislost rozlohy na celkovém hodnocení :'
 C2 = corrcoef(hodnoceni,vymera)

 
 %prùmìrný vìk ve mìstech a obcích, poøadí mìst výše
 vek=[  45
        37.5
        43
        39
        41
        39
        46.4
        41.5
        41.4
        39.96
        51.8
        41.3
        41
        39.3
        38.8
        40.1
        34.6
        39.3
        40.8
        39
        ];
    
'Matice korelaèních koeficientù: závislost prùmìrného vìku obyvatel na celkovém hodnocení :'
C3 = corrcoef(hodnoceni,vek)
    
       
a=[C1(1,2);C2(1,2);C3(1,2)];

fprintf('\n');
fprintf('********************************************************');
fprintf('\n');
fprintf('Korelaèní koeficient závislosti celkového hodnocení na: ');
fprintf('\n');
fprintf('--------------------------------------------------------');
fprintf('\n');
fprintf('obyvatelstvu:    %.6f\n',  a(1,1)) ;
fprintf('\n');
fprintf('rozloze:         %.6f\n',  a (2,1));
fprintf('\n');
fprintf('vìku:           %.6f\n',  a (3,1));
fprintf('\n');
fprintf('--------------------------------------------------------');
fprintf('\n');
fprintf('Z uvedeného nevyplývá žádná závislost!');
fprintf('\n');



%------------------------------------------------------------------------
%------------------------------------------------------------------------
%---------------------Hodnoceno jinou osobou-----------------------------
%------------------------------------------------------------------------
%------------------------------------------------------------------------

%Hodnocení jednotlivých webù obcí a mìst:
%----------------------------------------
%hodnoceno body od 1 do 10, kde 10 je lejlepší (snaha o co nejvìtší objektivnost)
%uspoøádáno do matice M, kde sloupce jseou jednotlivá kritéria ve stále
%stejném poøadí a øádky jsou mìsta a obce v následujícím poøadí:
%Beèice
%Dražièky
%Drhovice
%Chýnov
%Jistebnice
%Libìjice
%Opaøany
%Radenín
%Radkov
%Stádlec
%Vodice
%Dolní Hoøice
%Dobronice
%Košín
%Malšice
%Nová Ves
%Turovec
%Øípec
%Choustník
%Chýnov virtuálnì

M=[ 2	1	8	7	8	5	3	4
    2	1	2	5	5	5	4	4
    3	1	9	8	9	6	5	7
    1	1	8	4	6	5	7	8
    1	1	6	5	6	5	8	8
    1	1	2	2	4	1	1	7
    1	1	4	2	4	7	2	3
    1	1	4	4	4	8	7	5
    1	1	2	2	5	1	1	5
    1	1	6	3	4	3	5	5
    1	1	2	2	4	2	2	3
    1	1	1	1	1	1	3	2
    1	1	4	1	2	2	1	2
    1	1	3	2	3	1	2	3
    1	1	2	2	3	2	2	1
    1	1	7	1	3	2	2	3
    1	1	6	3	3	2	2	3
    1	1	5	2	7	2	3	6
    1	1	4	5	5	1	3	3
    10	10	10	10	10	10	10	10];


%výpoèet celkového hodnocení webu pro každou obec:
hodnoceni=M*norm_vahy;

hold on
figure 
barh(hodnoceni,'r')
axis([0,13,0,21])
text(10.1,20,'Chynov virtualne')
text(3.3,19,'Choustnik')
text(3.8,18,'Ripec')
text(2.9,17,'Turovec')
text(2.8,16,'Nova Ves')
text(2.1,15,'Malsice')
text(2.3,14,'Kosin')
text(1.9,13,'Dobronice')
text(1.7,12,'Dolni Horice')
text(2.5,11,'Vodice')
text(4,10,'Stadlec')
text(2.65,9,'Radkov')
text(4.9,8,'Radenin')
text(3.4,7,'Oparany')
text(2.8,6,'Libejice')
text(5.6,5,'Jistebnice')
text(5.5,4,'Chynov')
text(6.5,3,'Drhovice')
text(4,2,'Drazicky')
text(5.15,1,'Becice')

xlabel('obce a mìsta')
ylabel('celkové hodnocení') 
title('Celkové hodnocení jendotlivých webù obcí a mìst další osobou')


%------------------------------------------------------------------------

%Výpoèet závislosti celkového hodnocení na poètu obyvatel v mìstì èi obci:
%- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

%poèet obyvatel v mìstech a obcích, poøadí mìst výše
obyvatelstvo=[
            77
            110
            190
            2112
            2013
            102
            1392
            478
            152
            619
            219
            827
            180
            65
            1694
            233
            196
            290
            512
            2112
            ];


%vzájemná korelace:         
R = xcorr(hodnoceni,obyvatelstvo)

%Funkce CORRCOEF vrací matici korelaèních koeficientù propoèítaných z
%vstupní matice, jejíž øádky jsou zkoumány (mìsta) a jejíž sloupce jsou 
%promìnné (hodnoceni,obyvatelstvo) :
'Matice korelaèních koeficientù: závislost poètu obyvatel na celkovém hodnocení :'
C1 = corrcoef(hodnoceni,obyvatelstvo)



%rozloha mìst a obcí v [ha], poøadí mìst výše
vymera=[341
        512
        426
        3051
        5795
        295
        3144
        2691
        538
        1812
        1522
        3934
        550
        192
        3842
        662
        1325
        739
        1262
        3051];

'Matice korelaèních koeficientù: závislost rozlohy na celkovém hodnocení :'
 C2 = corrcoef(hodnoceni,vymera)

 
 %prùmìrný vìk ve mìstech a obcích, poøadí mìst výše
 vek=[  45
        37.5
        43
        39
        41
        39
        46.4
        41.5
        41.4
        39.96
        51.8
        41.3
        41
        39.3
        38.8
        40.1
        34.6
        39.3
        40.8
        39
        ];
    
'Matice korelaèních koeficientù: závislost prùmìrného vìku obyvatel na celkovém hodnocení :'
C3 = corrcoef(hodnoceni,vek)
    
       
a=[C1(1,2);C2(1,2);C3(1,2)];

fprintf('\n');
fprintf('********************************************************');
fprintf('\n');
fprintf('Korelaèní koeficient závislosti celkového hodnocení na: ');
fprintf('\n');
fprintf('--------------------------------------------------------');
fprintf('\n');
fprintf('obyvatelstvu:    %.6f\n',  a(1,1)) ;
fprintf('\n');
fprintf('rozloze:         %.6f\n',  a (2,1));
fprintf('\n');
fprintf('vìku:           %.6f\n',  a (3,1));
fprintf('\n');
fprintf('--------------------------------------------------------');
fprintf('\n');
fprintf('Z uvedeného nevyplývá žádná závislost!');
fprintf('\n');

