Max Ritardi Teorici formazioni eterogenee, (funziona anche su Lottodesk)

'Script di base per il monitoraggio dei ritardi storici teorici - Gam 22.07.2019 - v.1.0
Sub Main
Dim es,r,p,est,eIni,eFin
Dim Rok,Ambi,ruotaEstrattaNulla
Dim RitMaxRCTeoEs,RitMaxRCTeoAmbo

eIni = EstrazioneIni
eFin = EstrazioneFin

For es = eIni To eFin

Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12

For p = 1 To 1
If Estratto(es,r,p) > 0 Then
est = est + 5
Ambi = Ambi + 10
Rok=Rok +1
Else
ruotaEstrattaNulla = ruotaEstrattaNulla +1
End If
Next

Next
Next

Scrivi "Analisi effettuata con seguente estensione archivio: "
Scrivi
Scrivi "[" & FormattaStringa(eIni,"0000") & "] [" & DataEstrazione(eIni) & "]"
Scrivi "[" & FormattaStringa(eFin,"0000") & "] [" & DataEstrazione(eFin) & "]"
Scrivi
Scrivi "Ovvero [ " & (eFin-eIni+1) & " ]",1,0
Scrivi " estrazioni TOTALI, nelle quali sono sortiti: ",0,1
Scrivi
Scrivi "n° Estratti : " & est ,1
Scrivi "n° Ambi/Terni : " & Ambi ,1
Scrivi "n° Quaterne : " & Rok*6 ,1
Scrivi "n° Cinquine : " & Rok ,1
Scrivi
Scrivi String(100,"-"),1

Scrivi "Costante Decadimento Estratto su 1 numero : " & Log(18/17)
Scrivi "Costante Decadimento Ambo in 2 numeri : " & Log(4005/3995)

Scrivi

RitMaxRCTeoEs = Log(est)/Log(18/17)
RitMaxRCTeoAmbo = Log(Ambi)/Log(4005/3995)

Scrivi String(100,"-"),1

Scrivi "RC Max Teorico di un Estratto a Ruota : " & RitMaxRCTeoEs
Scrivi "RC MAx Teorico di un Ambo in 2 numeri : " & RitMaxRCTeoAmbo

Scrivi String(100,"-"),1
Scrivi

Scrivi "Archivio dal 1871 al 20.07.2019 -> Massa Estratti = 456.795 -> RcMax Teorico Estratto => 228 colpi"
Scrivi "Archivio dal 1939 al 20.07.2019 -> Massa Estratti = 314.000 -> RcMax Teorico Estratto => 221 colpi"
Scrivi "Archivio dal 1946 al 20.07.2019 -> Massa Estratti = 296.545 -> RcMax Teorico Estratto => 220 colpi"
Scrivi
Scrivi "Archivio dal 1871 al 20.07.2019 -> Massa Ambi = 913.590 -> RcMax Teorico Ambo in 2 numeri => 5.490 colpi"
Scrivi "Archivio dal 1939 al 20.07.2019 -> Massa Ambi = 629.400 -> RcMax Teorico Ambo in 2 numeri => 5.341 colpi"
Scrivi "Archivio dal 1946 al 20.07.2019 -> Massa Ambi = 593.090 -> RcMax Teorico Ambo in 2 numeri => 5.317 colpi"

Scrivi String(100,"-"),1
Scrivi "Tempo di Calcolo: " & TempoTrascorso
End Sub