GENERIRANJE PODATAKA IZ UNIFORMNE  RAZDIOBE

Generiranje niza od n pseudoslučajnih brojeva iz uniformne razdiobe U(a,b) ; (d broj decimala): Uzorak od n=20 pseudoslučajnih podataka iz distribucije  U(2,4).   

a = 2 ;

b = 4 ;

n = 10 ;

d = 2 ;

unifd = UniformDistribution[a, b] ;

dataunif = IntegerPart[RandomArray[ud, n] 10^d]/10^d//N

{2.05, 2.58, 2.13, 3.3, 2.25, 3.67, 2.6, 2.98, 3.62, 3.09}


Definiranje tablice frekvencija {frekvencija, x}

frrazredi = BinCounts[dataunif, {2, 4, 0.2}]

{2, 1, 1, 1, 1, 1, 1, 0, 2, 0}

midpoints = {2.1, 2.3, 2.5, 2.7, 2.9, 3.1, 3.3, 3.5, 3.7, 3.9}

{2.1, 2.3, 2.5, 2.7, 2.9, 3.1, 3.3, 3.5, 3.7, 3.9}

<<Graphics`Graphics`

BarChart[Transpose[{frrazredi, midpoints}]]

[Graphics:../HTMLFiles/vismathematica_62.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(2.4)=?
Definiranje funkcije distribucije vjerojatnosti  CDF[dist,x]=P(X≤x). F(2.4)=?

Clear[fvjer]

Clear[Fdist]

unifd = UniformDistribution[2, 4] ;

fvje = PDF[unifd, x]

Fdist = CDF[unifd, x]

 {{1/2, 2≤x≤4}}

 {{1/2 (-2 + x), 2≤x≤4}, {1, x>4}}

fvje/.x→2.4

Fdist/.x→2.4

1/2

0.2

Plot[fvje, {x, 1, 5}]

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

-Graphics -

Plot[Fdist, {x, -3, 8}]

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

-Graphics -

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