8.3

indighe                       torra a segus

 Si narat variabile casuale discreta una funzione chi a onni risurtadu de una prova, finzas issa casuale, assoziet unu de sos valores apartenentes a unu imparis, chi siat o finidu o infinidu  numerabile, de numeros reales x[k], tales chi a onniunu de custos valores x [k=1,2,3,4...] abarret assoziada una probabilidade p chi su risurtadu de sa prova amustret su valore x.

De solitu sas variabiles si iscrien a literas mannas e sos valores issoro a literas minoreddas. Sa leze chi in carchi manera istabilit sos valores de una variabile casuale cun sas rispetivas probabilidades si narat leze de distribuzione de probabilidades de sa variabile casuale discreta, o finzas funzione de probabilidade, e podet tenner una rapresentazione tabellare comente custa chi sighit.

 MatrixForm[

{{X},{x1,x2,x3,x4,x5,xk},{p},{p1,p2,p3,p4,p5,pk}}]

{X}

 {x1, x2, x3, x4, x5, xk}

 {p}

 {p1, p2, p3, p4, p5, pk}

 Si podet pensare de rapresentare graficamente sa variabile casuale in d unu graficu chi si narat poligono de distribuzione de probabilidades. Sa linea chi unit s'estremu urtimu de sa perpendiculare a s'ascissa disinnat unu poligono e indicat s'andamentu de sa variabile.

lista={{1,1/8},{2,2/8},{3,1/8},

{4,3/8},{5,1/8}};

graf1=ListPlot[lista,DisplayFunction->Identity,

PlotStyle->{RGBColor[1,0,0],PointSize[0.015]}];

graf2=Graphics[Line[lista]];

graf3=Graphics[Line[{{1,0},{1,1/8}}]];

graf4=Graphics[Line[{{2,0},{2,2/8}}]];

graf5=Graphics[Line[{{3,0},{3,1/8}}]];

graf6=Graphics[Line[{{4,0},{4,3/8}}]];

graf7=Graphics[Line[{{5,0},{5,1/8}}]];

Show[graf1,graf2,graf3,graf4,graf5,graf6,graf7,

PlotRange->{{0,6},{0,1/2}},Axes->True,

DisplayFunction->$DisplayFunction];

 

 O mancari in forma de unu graficu chi si narat ortogramma o graficu a cannas de organu:

 Show[graf1,graf3,graf4,graf5,graf6,graf7,

PlotRange->{{0,6},{0,1/2}},Axes->True,

DisplayFunction->$DisplayFunction];