Ciao Tizi,
ho impostato uno script.
Sub Main()
Dim Ini, Fin, Es, E2, Colpo
Dim R, P, N, I, J
Dim Comuni(90), Frequenze(90)
Dim NumComuni, TotCasi
Dim Temp, MaxFreq, NumMax
Dim Trovato
Ini = 8272
Fin = EstrazioneFin
TotCasi = 0
For N = 1 To 90
Frequenze(N) = 0
Next
Scrivi "STUDIO FIRENZE - GENOVA"
Scrivi "Condizione: almeno 3 numeri uguali"
Scrivi "Estrazione iniziale: " & Ini
Scrivi "Periodo successivo: 9 estrazioni"
Scrivi "--------------------------------"
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
NumComuni = 0
For N = 1 To 90
Trovato = 0
For P = 1 To 5
If Estratto(Es,3,P) = N Then
Trovato = Trovato + 1
End If
If Estratto(Es,4,P) = N Then
Trovato = Trovato + 1
End If
Next
If Trovato = 2 Then
NumComuni = NumComuni + 1
Comuni(NumComuni) = N
End If
Next
If NumComuni >= 3 Then
TotCasi = TotCasi + 1
Scrivi ""
Scrivi "CASO N. " & TotCasi
Scrivi "Estrazione: " & Es
Dim RigaNumeri
RigaNumeri = "Numeri comuni: "
For I = 1 To NumComuni
RigaNumeri = RigaNumeri & Comuni(I) & " "
Next
Scrivi RigaNumeri
For Colpo = 1 To 9
E2 = Es + Colpo
If E2 <= Fin Then
For R = 3 To 4
For P = 1 To 5
N = Estratto(E2,R,P)
Frequenze(N) = Frequenze(N) + 1
Next
Next
End If
Next
End If
Next
Scrivi ""
Scrivi "================================"
Scrivi "RESOCONTO FINALE"
Scrivi "================================"
Scrivi "Totale condizioni: " & TotCasi
Scrivi ""
Scrivi "FREQUENZE NUMERI 1-90"
Scrivi "Nelle 9 estrazioni successive"
Scrivi "Ruote: Firenze e Genova"
Scrivi ""
For I = 1 To 90
MaxFreq = -1
NumMax = 0
For N = 1 To 90
If Frequenze(N) > MaxFreq Then
MaxFreq = Frequenze(N)
NumMax = N
End If
Next
If MaxFreq > 0 Then
Scrivi NumMax & " - Frequenza: " & MaxFreq
End If
Frequenze(NumMax) = -1
Next
End Sub
L'inizio è dall'estrazione 8272 che corrisponde all'11/09/2010.
Calcola i numeri più frequenti dopo l'uscita di un terno uguale su Fi-Ge.