vincenzo4221
Advanced Member >PLATINUM<
Ciao Beppi, ho un tuo script sulla distribuzione di poisson, puoi dirmi se è utile per conoscere dopo 12 estrazioni quanti numeri sono in frequenza 0, quanti sono in frequenza 1 ecc.,
...io non so utilizzarlo mi sembra che sia adatto per un analisi di 25 estrazioni , è cosi? oppure se hai un altro script con "distribuzione binominale", se è più adatto.....mi sembra di capire che la distribuzione di poisson, va bene se si considerano poche estrazioni, mentre da 90 estr.ni in su si dovrebbe usare la binominale, è cosi?
comunque sia conoscere almeno i dati per 12 estrazioni e 9 estrazioni, al momento dovrebbe bastare..grazie
se lo script qui sotto va bene, puoi insegnarci ad utilizzarlo? come si modificano il numero di estrazioni da analizzare?
Option Explicit
Sub Main
Dim t,teo,fatt,y,ntot,nmax
Dim i,ris
Dim datiT(25,2),datiR(25,2)
For t = 0 To 24
ris = 1
''''''''''''''''''''''''''''''''''''''''''
'''''fattoriale
For i = 2 To t
ris = ris*i
Next
fatt = ris
''''''''''''''''''''''''''''''''''''''''
'''''formula teoriche
teo =(5^t*(Exp(1)^(- 5))/fatt)*90
'''''''''''''''''''''''''''''''''''''''
Scrivi t & "...." & Round(teo,6)
y = y + 1
datiT(y,1) = y
datiT(y,2) = Round(teo,6)
datiR(y,1) = y
If teo > 0 Then
datiR(y,2) = Int(teo + 0.2)
Else
datiR(y,2) = Int(teo + 0.5)
End If
Next
ntot = 12.5
nmax = 20
Const nsezioni = 2
ntot = y
Call PreparaGrafico("Distribuzione Poisson ",0,ntot,0,ntot,ntot*nsezioni,ntot)
Call DisegnaLineaGrafico(datiT,1,"Presenze Teoriche")
Call DisegnaLineaGrafico(datiR,2,"Presenze Reali")
InserisciGrafico
End Sub
...io non so utilizzarlo mi sembra che sia adatto per un analisi di 25 estrazioni , è cosi? oppure se hai un altro script con "distribuzione binominale", se è più adatto.....mi sembra di capire che la distribuzione di poisson, va bene se si considerano poche estrazioni, mentre da 90 estr.ni in su si dovrebbe usare la binominale, è cosi?
comunque sia conoscere almeno i dati per 12 estrazioni e 9 estrazioni, al momento dovrebbe bastare..grazie
classi di frequenza | ||||||||
estr.ni | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 |
9 | ? | ? | ? | ? | ? | |||
12 | ? | ? | ? | ? | ? | |||
15 | 38,18 | 33,69 | 13,87 | 3,53 | 0,62 | |||
18 | 32,17 | 34,06 | 17,03 | 5,34 | 1,18 | 0,19 | ||
36 | 11,5 | 24,35 | 25,06 | 16,71 | 8,11 | 3,05 | 0,93 | 0,23 |
Option Explicit
Sub Main
Dim t,teo,fatt,y,ntot,nmax
Dim i,ris
Dim datiT(25,2),datiR(25,2)
For t = 0 To 24
ris = 1
''''''''''''''''''''''''''''''''''''''''''
'''''fattoriale
For i = 2 To t
ris = ris*i
Next
fatt = ris
''''''''''''''''''''''''''''''''''''''''
'''''formula teoriche
teo =(5^t*(Exp(1)^(- 5))/fatt)*90
'''''''''''''''''''''''''''''''''''''''
Scrivi t & "...." & Round(teo,6)
y = y + 1
datiT(y,1) = y
datiT(y,2) = Round(teo,6)
datiR(y,1) = y
If teo > 0 Then
datiR(y,2) = Int(teo + 0.2)
Else
datiR(y,2) = Int(teo + 0.5)
End If
Next
ntot = 12.5
nmax = 20
Const nsezioni = 2
ntot = y
Call PreparaGrafico("Distribuzione Poisson ",0,ntot,0,ntot,ntot*nsezioni,ntot)
Call DisegnaLineaGrafico(datiT,1,"Presenze Teoriche")
Call DisegnaLineaGrafico(datiR,2,"Presenze Reali")
InserisciGrafico
End Sub
Ultima modifica: