GENERIRANJE DVODIMENZIONALNE NORMALNE RAZDIOBE

Dvodimenzionalni slučajni vektor veličine n gdje su obe komponente iz normalne razdiobe: (X1,X2), X1 i X2 su N(8,1), n=20 (d-broj decimala).

normald = NormalDistribution[8, 1] ;

n = 20 ;          (* broj podataka *)

dim = 2 ;            (* broj varijabli *)

datavekt = IntegerPart[RandomArray[normald, {n, dim}] 10^d]/10^d//N

Razdvojiti podatke iz dvodimenzionalne razdiobe možemo koristeći paket <<Statistics`DataManipulation`.

<<Statistics`DataManipulation`

Uzorak slučajne varijable X1

datax1 = Column[datavekt, 1]

{6.76, 7.39, 7.69, 8.58, 7.96, 8.03, 6.91, 8.32, 8.8, 7.5, 9.35, 7.78, 7.57, 8.96, 8.11, 7.39, 6.4, 5.85, 8., 7.6}

datax2 = Column[datavekt, 2]

{7.99, 7.42, 7.75, 6.71, 8.61, 7.8, 9.58, 7.18, 9.2, 8.07, 7.67, 6.07, 8.1, 8.81, 7.85, 10.16, 6.91, 7.83, 8.07, 6.73}

Izdvojiti  sve podatke iz uzorka  od početka dok zadovoljavaju uvjet,  npr. podatak manji od 8.
TakeWhile[uzorak,uvjet]
Naći broj podataka iz uzorka koji zadovoljavaju uvjet, npr.podatci manji od 8.
LengthWhile[uzorak, uvjet]

TakeWhile[datax1, #≤8&]

{6.76, 7.39, 7.69}

LengthWhile[datax1, #≤8&]

3

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