8.2

 bae a de nantis            torra a segus

Si ponzat contivizu e atentu mannu a totu sos possibiles risurtados chi poden essire tirande duos dados. Custos risurtados pesan unu ispaziu campionariu cando sinnamus su numeru chi si presentat in sa faze superiore issoro e dd'annotamus comente coppia ordinada, ( 1 in sa prima faze e batoro in s'atera est diferente de batoro in sa prima e unu in sa segunda).

 

Cr[l_List]:=

  Table[

      Append[{l[[k]]},l[[i]]],

        {k,1,Length[l]},{i,1,Length[l]}]

dados:={1,2,3,4,5,6}

Cr[dados]

{{{1, 1}, {1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}},

 {{2, 1}, {2, 2}, {2, 3}, {2, 4}, {2, 5}, {2, 6}},

 {{3, 1}, {3, 2}, {3, 3}, {3, 4}, {3, 5}, {3, 6}},

  {{4, 1}, {4, 2}, {4, 3}, {4, 4}, {4, 5}, {4, 6}},

  {{5, 1}, {5, 2}, {5, 3}, {5, 4}, {5, 5}, {5, 6}},

 {{6, 1}, {6, 2}, {6, 3}, {6, 4}, {6, 5}, {6, 6}}}

 Si pesamus in artu duos sodditos, chi essat una faze masprestu che ateruna est unu eventu casuale: sas possibiles coppias de risurtados de sos eventos pesan una variabile casuale.

 Cr[{Capos,Rughes}]

{{{Capos, Capos}, {Capos, Rughes}},

 {{Rughes, Capos}, {Rughes, Rughes}}}

 Sos risurtados de su tiru de duos dados tenen onniunu de issos probabilidade 1/36 de si presentare. Sos possibiles risurtados de su tiru de duos soddos, Rughes o Capos chi sian, tenen onniunu probabilidade 1/4. In su tiru de sos dados si ponzat attenzione a sa possibile summa de sos numeros chi cumparin. Podet essire solu:

 Table[k,{k,2,12}]

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

 A onniunu de custos risurtados si assinnat una probabilidade in custa manera:

 summas={p[2]=1/36,p[3]=2/36,p[4]=3/36,p[5]=4/36,p[6]=5/36,

p[7]=6/36,p[8]=5/36,p[9]=4/36,p[10]=3/36,p[11]=2/36,

p[12]=1/36}

  1   1    1    1   5   1    5   1    1      1   1

 {--, --, --,   --, --, -, --,  , --,   --,   --  --    }

36     18  12  9  36  6  36  9  12  18   36

 Si cherzo verificare si sa summa de sas probabilidades est unu:

 Apply[Plus,summas]

1

 Si cherzo ischire cantu alet sa probabilidade de unu eventu elementare:

 p[3]

1

--

18

 Si cherzo ischire cant'est sa probabilidade chi sa summa siat o batoro o sette:

 p[4]+p[7]

1

-

4

 E in finis si cherzo verificare chi totus sas probabilidades sian tra zero e unu:

 tr[n_]:=If[n>0&&n<1,veru,farzu]

Table[tr[summas[[i]]],{i,1,Length[summas]}]

{veru, veru, veru, veru, veru, veru, veru, veru, veru, veru, veru}

 tr[argumentu numericu] testat si su numeru est prus mannu de unu, tra zero e unu, minore de zero.

 {tr[-1],tr[0.4],tr[2]}

{farzu, veru, farzu}