Option Explicit
Sub Main()
'by lottotom x verifica colpi teorici rimanenti x sorte voluta by gruppo base desiderato
'x analisi valutando usciti per ogni estrazione con verificatore x 22abs di Cinzia e non solo
'modulo filtra presenze su TT o su NZ con seriefreq by joe
'nessuna certezza solo poca probabilità
Dim N,Es,Ru,Nu(1),P
Dim x
Dim carrelloraccoltausciti
Dim casirilevati
Dim colpomassimo
colpomassimo = 0
Dim colpomassimogenerale
colpomassimogenerale = 0
Dim Classemassimagufinale
Classemassimagufinale = 0
Dim Classeminimagufinale
Classeminimagufinale = 90
Dim colpomassimoxclasse2
Dim colpomassimoxclasse3
Dim colpomassimoxclasse4
Dim colpomassimoxclasse5
Dim colpomassimoxclasse6
Dim colpomassimoxclasse7
Dim colpomassimoxclasse8
Dim colpomassimoxclasse9
Dim colpomassimoxclasse10
Dim colpomassimoxclasse11
Dim colpomassimoxclasse12
Dim colpomassimoxclasse13
Dim colpomassimoxclasse14
Dim colpomassimoxclasse15
Dim colpomassimoxclasse16
Dim colpomassimoxclasse17
Dim colpomassimoxclasse18
Dim colpomassimoxclasse19
Dim colpomassimoxclasse20
Dim colpomassimoxclasse21
Dim colpomassimoxclasse22
Dim colpomassimoxclasse23
Dim colpomassimoxclasse24
Dim colpomassimoxclasse25
Dim colpomassimoxclasse26
Dim colpomassimoxclasse27
Dim colpomassimoxclasse28
Dim colpomassimoxclasse29
Dim colpomassimoxclasse30
Dim colpomassimoxclasse31
Dim colpomassimoxclasse32
Dim colpomassimoxclasse33
Dim colpomassimoxclasse34
Dim colpomassimoxclasse35
Dim colpomassimoxclasse36
Dim colpomassimoxclasse37
Dim colpomassimoxclasse38
Dim colpomassimoxclasse39
Dim colpomassimoxclasse40
Dim colpomassimoxclasse41
Dim colpomassimoxclasse42
Dim colpomassimoxclasse43
Dim colpomassimoxclasse44
Dim colpomassimoxclasse45
Dim colpomassimoxclasse46
Dim colpomassimoxclasse47
Dim colpomassimoxclasse48
Dim colpomassimoxclasse49
Dim colpomassimoxclasse50
Dim colpomassimoxclasse2ok
Dim colpomassimoxclasse3ok
Dim colpomassimoxclasse4ok
Dim colpomassimoxclasse5ok
Dim colpomassimoxclasse6ok
Dim colpomassimoxclasse7ok
Dim colpomassimoxclasse8ok
Dim colpomassimoxclasse9ok
Dim colpomassimoxclasse10ok
Dim colpomassimoxclasse11ok
Dim colpomassimoxclasse12ok
Dim colpomassimoxclasse13ok
Dim colpomassimoxclasse14ok
Dim colpomassimoxclasse15ok
Dim colpomassimoxclasse16ok
Dim colpomassimoxclasse17ok
Dim colpomassimoxclasse18ok
Dim colpomassimoxclasse19ok
Dim colpomassimoxclasse20ok
Dim colpomassimoxclasse21ok
Dim colpomassimoxclasse22ok
Dim colpomassimoxclasse23ok
Dim colpomassimoxclasse24ok
Dim colpomassimoxclasse25ok
Dim colpomassimoxclasse26ok
Dim colpomassimoxclasse27ok
Dim colpomassimoxclasse28ok
Dim colpomassimoxclasse29ok
Dim colpomassimoxclasse30ok
Dim colpomassimoxclasse31ok
Dim colpomassimoxclasse32ok
Dim colpomassimoxclasse33ok
Dim colpomassimoxclasse34ok
Dim colpomassimoxclasse35ok
Dim colpomassimoxclasse36ok
Dim colpomassimoxclasse37ok
Dim colpomassimoxclasse38ok
Dim colpomassimoxclasse39ok
Dim colpomassimoxclasse40ok
Dim colpomassimoxclasse41ok
Dim colpomassimoxclasse42ok
Dim colpomassimoxclasse43ok
Dim colpomassimoxclasse44ok
Dim colpomassimoxclasse45ok
Dim colpomassimoxclasse46ok
Dim colpomassimoxclasse47ok
Dim colpomassimoxclasse48ok
Dim colpomassimoxclasse49ok
Dim colpomassimoxclasse50ok
Dim numeroEsitidiambo
Dim numeroEsitiditerno
Dim numeroEsitidiquaterna
Dim numeroEsitidicinquina
numeroEsitidiambo = 0
numeroEsitiditerno = 0
numeroEsitidiquaterna = 0
numeroEsitidicinquina = 0
casirilevati = 0
Dim casipositivi
casipositivi = 0
Dim casinegativi
casinegativi = 0
Dim casiattuali
casiattuali = 0
carrelloraccoltausciti = Array(0)
Ru = Array(1,2,3,4,5,6,7,8,9,10,12)
ReDim numeri(0)
Call ScegliNumeri(numeri)
Dim Mesedesiderato
Mesedesiderato = CInt(InputBox("quale mese considerare es. 1 gen",,6))
'For Es = EstrazioneFin - 15 To EstrazioneFin
For Es = 7440 To EstrazioneFin
' For N = 1 To 90 : Nu(1) = N
If Mese(Es) = Mesedesiderato Then
Scrivi
Scrivi "mese intercettato " & MeseNome(Mesedesiderato)
Scrivi
For x = 1 To UBound(numeri) 'numero
N = numeri(x)
Nu(1) = N
P = PresenzeInEstrazione(Es,Nu,Ru)
If P >= 1 And Mese(Es) = Mesedesiderato Then
casirilevati = casirilevati + 1
Scrivi GetInfoEstrazione(Es) & " - " & DataEstrazione(Es) & " " & " nu. " & Format2(N) & " pr. " & P
'Scrivi GetInfoEstrazione(Es)
carrelloraccoltausciti = array_push(carrelloraccoltausciti,N)
OrdinaMatrice carrelloraccoltausciti,1
Scrivi
Scrivi "usciti nel mese di " & MeseNome(Mesedesiderato) & " anno " & Anno(Es) & " : " & StringaNumeri(carrelloraccoltausciti)
Scrivi
EliminaRipetuti carrelloraccoltausciti,True
Scrivi "usciti senza ripetuti nel mese di " & MeseNome(Mesedesiderato) & " anno " & Anno(Es) & " : " & StringaNumeri(carrelloraccoltausciti) & " classe " & " [ " & UBound(carrelloraccoltausciti) & " ] "
Scrivi
End If
If ScriptInterrotto Then Exit For
Next
Else
'Scrivi "mese non valido..."
End If 'x indice mensile
If ScriptInterrotto Then Exit For
AvanzamentoElab 7440,EstrazioneFin,Es
Messaggio "es. " & GetInfoEstrazione(Es)
'verifico l'eventuale sfaldamento a colpo di almeno A su TT del relativo GU...
Dim colpidiverifica,sortediverifica,entroilcolpo,idestrazioneuscita,Esitoverifica,Estrattiusciti
sortediverifica = 2
colpidiverifica = 162
ReDim Ruote(11)
Ruote(1) = BA_
Ruote(2) = CA_
Ruote(3) = FI_
Ruote(4) = GE_
Ruote(5) = MI_
Ruote(6) = NA_
Ruote(7) = PA_
Ruote(8) = RO_
Ruote(9) = TO_
Ruote(10) = VE_
Ruote(11) = NZ_
If Mese(Es) = Mesedesiderato And UBound(carrelloraccoltausciti) > 1 Then
If UBound(carrelloraccoltausciti) > Classemassimagufinale Then
Classemassimagufinale = UBound(carrelloraccoltausciti)
End If
If UBound(carrelloraccoltausciti) < Classeminimagufinale Then
Classeminimagufinale = UBound(carrelloraccoltausciti)
End If
VerificaEsitoTurbo carrelloraccoltausciti,Ruote,Es + 1,sortediverifica,colpidiverifica,,Esitoverifica,entroilcolpo,Estrattiusciti,idestrazioneuscita
If Esitoverifica <> "" Then
Scrivi "<font color=green>OK " & Esitoverifica & " al colpo numero " & entroilcolpo & " su " & colpidiverifica & " impostati " & " es. di uscita n. " & idestrazioneuscita & " estratti usciti " & Estrattiusciti
casipositivi = casipositivi + 1
Select Case(Esitoverifica)
Case "Ambo"
numeroEsitidiambo = numeroEsitidiambo + 1
Case "Terno"
numeroEsitiditerno = numeroEsitiditerno + 1
Case "Quaterna"
numeroEsitidiquaterna = numeroEsitidiquaterna + 1
Case "Cinqina"
numeroEsitidicinquina = numeroEsitidicinquina + 1
End Select
If entroilcolpo > colpomassimo Then
colpomassimo = entroilcolpo
colpomassimogenerale = entroilcolpo
End If
Select Case(UBound(carrelloraccoltausciti))
Case 2
If entroilcolpo > colpomassimoxclasse2 Then
colpomassimoxclasse2 = entroilcolpo
colpomassimoxclasse2ok = entroilcolpo
End If
'colpomassimo = 0
Case 3
If entroilcolpo > colpomassimoxclasse3 Then
colpomassimoxclasse3 = entroilcolpo
colpomassimoxclasse3ok = entroilcolpo
End If
'colpomassimo = 0
Case 4
If entroilcolpo > colpomassimoxclasse4 Then
colpomassimoxclasse4 = entroilcolpo
colpomassimoxclasse4ok = entroilcolpo
End If
'colpomassimo = 0
Case 5
If entroilcolpo > colpomassimoxclasse5 Then
colpomassimoxclasse5 = entroilcolpo
colpomassimoxclasse5ok = entroilcolpo
End If
'colpomassimo = 0
Case 6
If entroilcolpo > colpomassimoxclasse6 Then
colpomassimoxclasse6 = entroilcolpo
colpomassimoxclasse6ok = entroilcolpo
End If
'colpomassimo = 0
Case 7
If entroilcolpo > colpomassimoxclasse7 Then
colpomassimoxclasse7 = entroilcolpo
colpomassimoxclasse7ok = entroilcolpo
End If
'colpomassimo = 0
Case 8
If entroilcolpo > colpomassimoxclasse8 Then
colpomassimoxclasse8 = entroilcolpo
colpomassimoxclasse8ok = entroilcolpo
End If
'colpomassimo = 0
Case 9
If entroilcolpo > colpomassimoxclasse9 Then
colpomassimoxclasse9 = entroilcolpo
colpomassimoxclasse9ok = entroilcolpo
End If
'colpomassimo = 0
Case 10
If entroilcolpo > colpomassimoxclasse10 Then
colpomassimoxclasse10 = entroilcolpo
colpomassimoxclasse10ok = entroilcolpo
End If
Case 11
If entroilcolpo > colpomassimoxclasse11 Then
colpomassimoxclasse11 = entroilcolpo
colpomassimoxclasse11ok = entroilcolpo
End If
Case 12
If entroilcolpo > colpomassimoxclasse12 Then
colpomassimoxclasse12 = entroilcolpo
colpomassimoxclasse12ok = entroilcolpo
End If
Case 13
If entroilcolpo > colpomassimoxclasse13 Then
colpomassimoxclasse13 = entroilcolpo
colpomassimoxclasse13ok = entroilcolpo
End If
Case 14
If entroilcolpo > colpomassimoxclasse14 Then
colpomassimoxclasse14 = entroilcolpo
colpomassimoxclasse14ok = entroilcolpo
End If
Case 15
If entroilcolpo > colpomassimoxclasse15 Then
colpomassimoxclasse15 = entroilcolpo
colpomassimoxclasse15ok = entroilcolpo
End If
Case 16
If entroilcolpo > colpomassimoxclasse16 Then
colpomassimoxclasse16 = entroilcolpo
colpomassimoxclasse16ok = entroilcolpo
End If
Case 17
If entroilcolpo > colpomassimoxclasse17 Then
colpomassimoxclasse17 = entroilcolpo
colpomassimoxclasse17ok = entroilcolpo
End If
Case 18
If entroilcolpo > colpomassimoxclasse18 Then
colpomassimoxclasse18 = entroilcolpo
colpomassimoxclasse18ok = entroilcolpo
End If
Case 19
If entroilcolpo > colpomassimoxclasse19 Then
colpomassimoxclasse19 = entroilcolpo
colpomassimoxclasse19ok = entroilcolpo
End If
Case 20
If entroilcolpo > colpomassimoxclasse20 Then
colpomassimoxclasse20 = entroilcolpo
colpomassimoxclasse20ok = entroilcolpo
End If
'-----------------------------------------------------------------------------
Case 21
If entroilcolpo > colpomassimoxclasse21 Then
colpomassimoxclasse21 = entroilcolpo
colpomassimoxclasse21ok = entroilcolpo
End If
Case 22
If entroilcolpo > colpomassimoxclasse22 Then
colpomassimoxclasse22 = entroilcolpo
colpomassimoxclasse22ok = entroilcolpo
End If
Case 23
If entroilcolpo > colpomassimoxclasse23 Then
colpomassimoxclasse23 = entroilcolpo
colpomassimoxclasse23ok = entroilcolpo
End If
Case 24
If entroilcolpo > colpomassimoxclasse24 Then
colpomassimoxclasse24 = entroilcolpo
colpomassimoxclasse24ok = entroilcolpo
End If
Case 25
If entroilcolpo > colpomassimoxclasse25 Then
colpomassimoxclasse25 = entroilcolpo
colpomassimoxclasse25ok = entroilcolpo
End If
Case 26
If entroilcolpo > colpomassimoxclasse26 Then
colpomassimoxclasse26 = entroilcolpo
colpomassimoxclasse26ok = entroilcolpo
End If
Case 27
If entroilcolpo > colpomassimoxclasse27 Then
colpomassimoxclasse27 = entroilcolpo
colpomassimoxclasse27ok = entroilcolpo
End If
Case 28
If entroilcolpo > colpomassimoxclasse28 Then
colpomassimoxclasse28 = entroilcolpo
colpomassimoxclasse28ok = entroilcolpo
End If
Case 29
If entroilcolpo > colpomassimoxclasse29 Then
colpomassimoxclasse29 = entroilcolpo
colpomassimoxclasse29ok = entroilcolpo
End If
Case 30
If entroilcolpo > colpomassimoxclasse30 Then
colpomassimoxclasse30 = entroilcolpo
colpomassimoxclasse30ok = entroilcolpo
End If
'---------------------------------------------------------------------------------------------------------
Case 31
If entroilcolpo > colpomassimoxclasse31 Then
colpomassimoxclasse31 = entroilcolpo
colpomassimoxclasse31ok = entroilcolpo
End If
Case 32
If entroilcolpo > colpomassimoxclasse32 Then
colpomassimoxclasse32 = entroilcolpo
colpomassimoxclasse32ok = entroilcolpo
End If
Case 33
If entroilcolpo > colpomassimoxclasse33 Then
colpomassimoxclasse33 = entroilcolpo
colpomassimoxclasse33ok = entroilcolpo
End If
Case 34
If entroilcolpo > colpomassimoxclasse34 Then
colpomassimoxclasse34 = entroilcolpo
colpomassimoxclasse34ok = entroilcolpo
End If
Case 35
If entroilcolpo > colpomassimoxclasse35 Then
colpomassimoxclasse35 = entroilcolpo
colpomassimoxclasse35ok = entroilcolpo
End If
Case 36
If entroilcolpo > colpomassimoxclasse36 Then
colpomassimoxclasse36 = entroilcolpo
colpomassimoxclasse36ok = entroilcolpo
End If
Case 37
If entroilcolpo > colpomassimoxclasse37 Then
colpomassimoxclasse37 = entroilcolpo
colpomassimoxclasse37ok = entroilcolpo
End If
Case 38
If entroilcolpo > colpomassimoxclasse38 Then
colpomassimoxclasse38 = entroilcolpo
colpomassimoxclasse38ok = entroilcolpo
End If
Case 39
If entroilcolpo > colpomassimoxclasse39 Then
colpomassimoxclasse39 = entroilcolpo
colpomassimoxclasse39ok = entroilcolpo
End If
Case 40
If entroilcolpo > colpomassimoxclasse40 Then
colpomassimoxclasse40 = entroilcolpo
colpomassimoxclasse40ok = entroilcolpo
End If
'----------------------------------------------------------------------------------
Case 41
If entroilcolpo > colpomassimoxclasse41 Then
colpomassimoxclasse41 = entroilcolpo
colpomassimoxclasse41ok = entroilcolpo
End If
Case 42
If entroilcolpo > colpomassimoxclasse42 Then
colpomassimoxclasse42 = entroilcolpo
colpomassimoxclasse42ok = entroilcolpo
End If
Case 43
If entroilcolpo > colpomassimoxclasse43 Then
colpomassimoxclasse43 = entroilcolpo
colpomassimoxclasse43ok = entroilcolpo
End If
Case 44
If entroilcolpo > colpomassimoxclasse44 Then
colpomassimoxclasse44 = entroilcolpo
colpomassimoxclasse44ok = entroilcolpo
End If
Case 45
If entroilcolpo > colpomassimoxclasse45 Then
colpomassimoxclasse45 = entroilcolpo
colpomassimoxclasse45ok = entroilcolpo
End If
Case 46
If entroilcolpo > colpomassimoxclasse46 Then
colpomassimoxclasse46 = entroilcolpo
colpomassimoxclasse46ok = entroilcolpo
End If
Case 47
If entroilcolpo > colpomassimoxclasse47 Then
colpomassimoxclasse47 = entroilcolpo
colpomassimoxclasse47ok = entroilcolpo
End If
Case 48
If entroilcolpo > colpomassimoxclasse48 Then
colpomassimoxclasse48 = entroilcolpo
colpomassimoxclasse48ok = entroilcolpo
End If
Case 49
If entroilcolpo > colpomassimoxclasse49 Then
colpomassimoxclasse49 = entroilcolpo
colpomassimoxclasse49ok = entroilcolpo
End If
Case 50
If entroilcolpo > colpomassimoxclasse50 Then
colpomassimoxclasse50 = entroilcolpo
colpomassimoxclasse50ok = entroilcolpo
End If
End Select
'End If
Else
Scrivi
Dim colpirimanenti
colpirimanenti = colpidiverifica -(EstrazioneFin - Es)
If colpirimanenti < 0 Then
Scrivi "<font color=blue>" & GetInfoEstrazione(Es)
Scrivi "<font color=red>esito entro " & colpidiverifica & " colpi di verifica : negativo"
casinegativi = casinegativi + 1
Scrivi
Else
Scrivi "<font color=blue>" & GetInfoEstrazione(Es)
Scrivi "<font color=black>colpi rimanenti teorici " & colpirimanenti
casiattuali = casiattuali + 1
End If
End If
End If ' controllo mese desiderato per verifica
'dopo ogni estrazione, del mese e anno desiderati azzero il vettore carrellousciti...
Erase carrelloraccoltausciti
carrelloraccoltausciti = Array(0)
' colpomassimoxclasse10 = 0
' colpomassimoxclasse9 = 0
' colpomassimoxclasse8 = 0
' colpomassimoxclasse7 = 0
' colpomassimoxclasse6 = 0
' colpomassimoxclasse5 = 0
' colpomassimoxclasse4 = 0
' colpomassimoxclasse3 = 0
' colpomassimoxclasse2 = 0
'
' colpomassimo= 0
Next
Scrivi
Scrivi "verifica effettuata solo su GU finali di classe > 1"
Scrivi "sorte di verifica " & sortediverifica
Scrivi "colpi di verifica " & colpidiverifica
Scrivi "ruote di verifica n. " & StringaNumeri(Ruote)
Scrivi "casi totali rilevati " & casirilevati
Scrivi "casi positivi " & casipositivi
Scrivi "casi negativi " & casinegativi
Scrivi "classe gu massima raggiunta " & Classemassimagufinale
Scrivi "classe gu minima raggiunta " & Classeminimagufinale
Scrivi "colpo massimo raggiunto generale " & colpomassimogenerale
Scrivi "colpo massimo raggiunto x classe gu 2: " & colpomassimoxclasse2ok
Scrivi "colpo massimo raggiunto x classe gu 3: " & colpomassimoxclasse3ok
Scrivi "colpo massimo raggiunto x classe gu 4: " & colpomassimoxclasse4ok
Scrivi "colpo massimo raggiunto x classe gu 5: " & colpomassimoxclasse5ok
Scrivi "colpo massimo raggiunto x classe gu 6: " & colpomassimoxclasse6ok
Scrivi "colpo massimo raggiunto x classe gu 7: " & colpomassimoxclasse7ok
Scrivi "colpo massimo raggiunto x classe gu 8: " & colpomassimoxclasse8ok
Scrivi "colpo massimo raggiunto x classe gu 9: " & colpomassimoxclasse9ok
Scrivi "colpo massimo raggiunto x classe gu 10: " & colpomassimoxclasse10ok
Scrivi "colpo massimo raggiunto x classe gu 11 : " & colpomassimoxclasse11ok
Scrivi "colpo massimo raggiunto x classe gu 12 : " & colpomassimoxclasse12ok
Scrivi "colpo massimo raggiunto x classe gu 13 : " & colpomassimoxclasse13ok
Scrivi "colpo massimo raggiunto x classe gu 14 : " & colpomassimoxclasse14ok
Scrivi "colpo massimo raggiunto x classe gu 15 : " & colpomassimoxclasse15ok
Scrivi "colpo massimo raggiunto x classe gu 16 : " & colpomassimoxclasse16ok
Scrivi "colpo massimo raggiunto x classe gu 17 : " & colpomassimoxclasse17ok
Scrivi "colpo massimo raggiunto x classe gu 18 : " & colpomassimoxclasse18ok
Scrivi "colpo massimo raggiunto x classe gu 19 : " & colpomassimoxclasse19ok
Scrivi "colpo massimo raggiunto x classe gu 20 : " & colpomassimoxclasse20ok
Scrivi "colpo massimo raggiunto x classe gu 21 : " & colpomassimoxclasse21ok
Scrivi "colpo massimo raggiunto x classe gu 22 : " & colpomassimoxclasse22ok
Scrivi "colpo massimo raggiunto x classe gu 23 : " & colpomassimoxclasse23ok
Scrivi "colpo massimo raggiunto x classe gu 24 : " & colpomassimoxclasse24ok
Scrivi "colpo massimo raggiunto x classe gu 25 : " & colpomassimoxclasse25ok
Scrivi "colpo massimo raggiunto x classe gu 26 : " & colpomassimoxclasse26ok
Scrivi "colpo massimo raggiunto x classe gu 27 : " & colpomassimoxclasse27ok
Scrivi "colpo massimo raggiunto x classe gu 28 : " & colpomassimoxclasse28ok
Scrivi "colpo massimo raggiunto x classe gu 29 : " & colpomassimoxclasse29ok
Scrivi "colpo massimo raggiunto x classe gu 30 : " & colpomassimoxclasse30ok
Scrivi "colpo massimo raggiunto x classe gu 31 : " & colpomassimoxclasse31ok
Scrivi "colpo massimo raggiunto x classe gu 32 : " & colpomassimoxclasse32ok
Scrivi "colpo massimo raggiunto x classe gu 33 : " & colpomassimoxclasse33ok
Scrivi "colpo massimo raggiunto x classe gu 34 : " & colpomassimoxclasse34ok
Scrivi "colpo massimo raggiunto x classe gu 35 : " & colpomassimoxclasse35ok
Scrivi "colpo massimo raggiunto x classe gu 36 : " & colpomassimoxclasse36ok
Scrivi "colpo massimo raggiunto x classe gu 37 : " & colpomassimoxclasse37ok
Scrivi "colpo massimo raggiunto x classe gu 38 : " & colpomassimoxclasse38ok
Scrivi "colpo massimo raggiunto x classe gu 39 : " & colpomassimoxclasse39ok
Scrivi "colpo massimo raggiunto x classe gu 40 : " & colpomassimoxclasse40ok
Scrivi "colpo massimo raggiunto x classe gu 41 : " & colpomassimoxclasse41ok
Scrivi "colpo massimo raggiunto x classe gu 42 : " & colpomassimoxclasse42ok
Scrivi "colpo massimo raggiunto x classe gu 43 : " & colpomassimoxclasse43ok
Scrivi "colpo massimo raggiunto x classe gu 44 : " & colpomassimoxclasse44ok
Scrivi "colpo massimo raggiunto x classe gu 45 : " & colpomassimoxclasse45ok
Scrivi "colpo massimo raggiunto x classe gu 46 : " & colpomassimoxclasse46ok
Scrivi "colpo massimo raggiunto x classe gu 47 : " & colpomassimoxclasse47ok
Scrivi "colpo massimo raggiunto x classe gu 48 : " & colpomassimoxclasse48ok
Scrivi "colpo massimo raggiunto x classe gu 49 : " & colpomassimoxclasse49ok
Scrivi "colpo massimo raggiunto x classe gu 50 : " & colpomassimoxclasse50ok
Scrivi
Scrivi "N. di ambi " & numeroEsitidiambo
Scrivi "N. di terni " & numeroEsitiditerno
Scrivi "N. di quaterne " & numeroEsitidiquaterna
Scrivi "N. di cinquine " & numeroEsitidicinquina
Scrivi "casi attuali " & casiattuali
Scrivi
End Sub
Function PresenzeInEstrazione(Es,Nu,Ru) 'By Joe
PresenzeInEstrazione = SerieFreq(Es,Es,Nu,Ru,1)
End Function
Function array_push(arr,vars)
' Dimensiono le variabili interne alla funzione
Dim k,newelem,newarrsize,elem
' Verifico se arr è una array
If IsArray(arr) Then
' Verifico che vars non sia vuoto
If Len(vars) > 0 Then
' Verifico se vars ospita una o più virgole e quindi
' se è uno solo o un elenco di elementi.
' Se è un solo elemento...
If InStr(vars,",") = False Then
' Incremento di uno il numero di elementi
newarrsize = CInt(UBound(arr) + 1)
ReDim Preserve arr(newarrsize)
' Aggiungo in coda il nuovo elemento
arr(newarrsize) = vars
' Se vars è un elenco di elementi...
Else
' Definisco un contatore interno con valore di partenza
' pari al numero di elementi dell'array originale + 1
k =(UBound(arr) + 1)
' Creo una array con tutti i nuovi elementi da aggiungere
newelem = Split(vars,",")
' Incremento il numero di elementi per contenere quelli nuovi
newarrsize = CInt(UBound(arr) + UBound(newelem) + 1)
ReDim Preserve arr(newarrsize)
' Ciclo i nuovi elementi per aggiungerli all'array originale
For Each elem In newelem
arr(k) = Trim(elem)
k = k + 1
Next
End If
End If
array_push = arr
' Se arr non è una array la nostra funzione restituisce false
Else
array_push = False
End If
End Function
'note di ricerca
' xla 9ina rs9 il massimo tempo di realizzo con 0 casi negativi x A su TT o NZ anche in classe 2 sembrerebbe essere 162 colpi.
Per l'elenco nel report finale invece mi sono servito di excel e dei suoi numeri dinamici progressivi... Puoi vedere il risultato se vuoi nel mio thread indicato prima 
:
Ad ogni modo da questa domanda e da alcuni passi della tua risposta ad ilegend, non sono proprio sicuro che anche tu abbia centrato in pieno la questione... 
