GENERIRANJE PODATAKA IZ UNIFORMNE DISKRETNE RAZDIOBE

Generiranje niza od n pseudoslučajnih brojeva iz uniformne diskretne razdiobe U(m) ; m-broj različitih jednakovjerojatnih ishoda u jednom eksperimentu: Uzorak od n=20 pseudoslučajnih podataka iz distribucije U(10).   

m = 10 ;

n = 20 ;

dunifd = DiscreteUniformDistribution[m] ;

datadunif = RandomArray[dunifd, n]

{9, 5, 2, 8, 3, 6, 3, 4, 7, 6, 6, 10, 5, 5, 8, 3, 10, 7, 10, 5}


Definiranje tablice frekvencija {frekvencija, x}

fr = Frequencies[datadunif]

{{1, 2}, {3, 3}, {1, 4}, {4, 5}, {3, 6}, {2, 7}, {2, 8}, {1, 9}, {3, 10}}

<<Graphics`Graphics`

BarChart[fr]

[Graphics:../HTMLFiles/vismathematica_35.gif]

-Graphics -


Izračunati vjerojatnost da slučajna varijabla poprimi vrijednost 7.
Izračunati vjerojatnost da slučajna varijabla poprimi vrijednost manju ili jednaku 7.
Definiranje funcije gustoće vjerojatnosti PDF[dist,x] =P(X=x). f(7)=?
Definiranje funkcije distribucije vjerojatnosti  CDF[dist,x]=P(X≤x). F(7)=?

Clear[dunifd]

Clear[fvjer]

Clear[Fdist]

dunifd = DiscreteUniformDistribution[10] ;

fvje = PDF[dunifd, x]

Fdist = CDF[dunifd, x]

1/10

Floor[x]/10

fvje/.x→7

Fdist/.x→7

1/10

7/10

Created by Mathematica  (March 24, 2006) Valid XHTML 1.1!