Numeri random

Hai un problema con Excel?

Nuova discussione

Numeri random
di Pistolero (utente non iscritto) data: 18/09/2013 20:41:56
Buona ...

Qualcuno mi ha detto che:
Lanciando un dado con le facce numerate da 1 a 6, è più probabile tra queste risposte la (E)...

A. l'uscita di un numero dispari
B. l'uscita di un numero pari
C. l'uscita di un numero divisibile per tre
D. l'uscita di un numero maggiore di tre
E. l'uscita di un numero minore di 5

Secondo voi è possibile dimostrarla con VBA???
di gaetanopr (utente non iscritto) data: 18/09/2013 20:53:41
Intanto verifichiamo, le percentuali dovrebbero essere queste:
A:50
B:50
C:33,33
D:50
E:66
di Pistolero (utente non iscritto) data: 18/09/2013 21:14:00
Ma tutto questo si può dimostrare utilizzando vba?
di gaetanopr data: 18/09/2013 21:41:12
ti allego un piccolo esempio

di gaetanopr data: 18/09/2013 21:55:37
la macro presente nel file allegato può essere ridotta, è inutile fare 5 cicli uguali

Sub Quiz2()

 Rem Probabilità A
  For i = 1 To 6
    If i Mod 2 = 0 Then
      Pari = Pari + 1
    End If
 Rem Probabilità B
    If i Mod 2 <> 0 Then
      Dispari = Dispari + 1
    End If
 Rem Probabilità C
   If i Mod 3 = 0 Then
      Divis = Divis + 1
    End If
 Rem Probabilità D
    If i > 3 Then
      Maggiore = Maggiore + 1
    End If
 Rem Probabilità E
    If i < 5 Then
      Minore = Minore + 1
    End If
  
  Next i
  
  Cells(2, 6) = (Pari / 6) * 100
  Cells(3, 6) = (Dispari / 6) * 100
  Cells(4, 6) = (Divis / 6) * 100
  Cells(5, 6) = (Maggiore / 6) * 100
  Cells(6, 6) = (Minore / 6) * 100

   MaggProb = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max([F2:F6]), [F2:F6], 0)
   MsgBox "La maggiore probabilità è data dall'opzione " & Cells(MaggProb + 1, 1)


End Sub

di HarryBosch data: 18/09/2013 23:19:33
Ciao Ragazzi...
vi allego un file dove si può verificare sia la dimostrazione teorica (come già illustrato bene anche da gaetanopr) sia anche la dimostrazione pratica:
- in particolare, per testare quest'ultima, si deve inserire un numero di lanci da effettuare nella cella J2 e premere INVIO. Più alto è il numero dei lanci effettuati e più la frequenza di uscita si avvicinerà alle probabilità dimostrate teoricamente.

Trovate anche il foglio "gioco" dove ho inserito un estrapolato di un gioco da tavola che avevo creato qualche tempo fa, visto che si parlava di dadi ^_^
di Vecchio Frac data: 19/09/2013 09:46:11
@Harry
Modello davvero carino, complimenti ^_^
Sarebbe interessante oltre ad un'analisi delle frequenze anche la deviazione dal modello teorico.
di gaetanopr data: 19/09/2013 13:05:01
@Harry
veramente fatto bene
di HarryBosch data: 19/09/2013 14:55:24
Grazie ragazzi ^_^
In effetti avevo pensato di inserire anche il calcolo della deviazione dal modello teorico, il che dimostrerebbe ancor più (nel caso ci fossero dubbi) quanto affermato precedentemente in base alla legge dei grandi numeri, ovvero che spostando l'osservazione all'infinito il risultato convergerà sarà sempre più verso distribuzione attesa e, di conseguenza, la devianza standard sarà sempre più piccola.
Ma guarda un pò! Ripassando la materia su Wikipedia è saltato fuori proprio l'esempio su dadi!!
fondo pagina ^_^
h t t p://it.wikipedia.org/wiki/Legge_dei_grandi_numeri
di Pistolero (utente non iscritto) data: 19/09/2013 16:36:58
Grazie Gaetano ma soprattutto Grazie Harry... Sei eccizzionale!!!

Vuoi Approfondire?