GENERIRANJE UZORKA IZ BINOMNE DISTRIBUCIJE (RAZDIOBE)

Generiranje niza od n pseudoslučajnih podataka pomoću binomne razdiobe  B(m,p):
Uzorak od n=20 pseudoslučajnih podataka iz distribucije B(10,0.75).

m = 10 ;

p = .75 ;

n = 20 ;

bind = BinomialDistribution[m, p] ;

databin = RandomArray[bind, n]

{8, 7, 6, 6, 8, 9, 8, 7, 6, 9, 5, 8, 7, 6, 8, 7, 8, 8, 5, 6}


Definiranje tablice frekvencija {frekvencija, x}

fr = Frequencies[databin]

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


Grafički prikaz -histogram frekvencija

<<Graphics`Graphics`

BarChart[fr]

[Graphics:../HTMLFiles/vismathematica_12.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[bind]

Clear[fvjer]

Clear[Fdist]

bind = BinomialDistribution[10, 0.75] ;

fvje = PDF[bind, x]

Fdist = CDF[bind, x]

0.25^(10 - x) 0.75^x Binomial[10, x]

BetaRegularized[0.25, 10 - Floor[x], 1 + Floor[x]]

fvje/.x→7

Fdist/.x→7

0.250282

0.474407

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