% 30 prv.vektor z intervalu od -10 po 30

>> x=round(rand(1,30)*40-10)

x =

  Columns 1 through 13 

    -5     8    19    26     1     0    25    -1    22    26    -1     0    -8

  Columns 14 through 26 

    -7    16    -2    24    -3    -3    30     8     4     3     5     6    14

  Columns 27 through 30 

    -5    -8     8    25

%zoradenie

>> xx=sort(x)

xx =

  Columns 1 through 13 

    -8    -8    -7    -5    -5    -3    -3    -2    -1    -1     0     0     1

  Columns 14 through 26 

     3     4     5     6     8     8     8    14    16    19    22    24    25

  Columns 27 through 30 

    25    26    26    30

%vypocet pre vyskytujuce sa prvky

>> prvky=find(xx(1:(end-1))<xx(2:end))

prvky =

  Columns 1 through 13 

     2     3     5     7     8    10    12    13    14    15    16    17    20

  Columns 14 through 20 

    21    22    23    24    25    27    29

%pridanie posledneho index.prvku

>> prvky=[prvky 30]

prvky =

  Columns 1 through 13 

     2     3     5     7     8    10    12    13    14    15    16    17    20

  Columns 14 through 21 

    21    22    23    24    25    27    29    30

%vypis vyskytujucich sa prvkov vo vektore xx

>> n=xx(prvky)

n =

  Columns 1 through 13 

    -8    -7    -5    -3    -2    -1     0     1     3     4     5     6     8

  Columns 14 through 21 

    14    16    19    22    24    25    26    30

%vyratanie kolko krat sa jednotlive pprvky opakuju

>> pocetnost=histc(xx,n)

pocetnost =

  Columns 1 through 13 

     2     1     2     2     1     2     2     1     1     1     1     1     3

  Columns 14 through 21 

     1     1     1     1     1     2     2     1

%sucet poslednych dvoch intervalov

>> pocetnost=[pocetnost(1:end-2) pocetnost(end-1)+pocetnost(end)]

pocetnost =

  Columns 1 through 13 

     2     1     2     2     1     2     2     1     1     1     1     1     3

  Columns 14 through 20 

     1     1     1     1     1     2     3

%vyratanie siriek intervalov je to potrebne pre vyratanie vysky

>> sirkainterv=n(2:end)-n(1:(end-1))

sirkainterv =

  Columns 1 through 13 

     1     2     2     1     1     1     1     2     1     1     1     2     6

  Columns 14 through 20 

     2     3     3     2     1     1     4

%vyratanie vysky

>> vyskaintervalu=pocetnost./sirkainterv

vyskaintervalu =

  Columns 1 through 8 

    2.0000    0.5000    1.0000    2.0000    1.0000    2.0000    2.0000    0.5000

  Columns 9 through 16 

    1.0000    1.0000    1.0000    0.5000    0.5000    0.5000    0.3333    0.3333

  Columns 17 through 20 

    0.5000    1.0000    2.0000    0.7500

%vynesenie histogramu

>> bar(n,[vyskaintervalu 0],'histc')