fillotto
Advanced Member >PLATINUM<
Ciao Luigi in un vecchio post del 2013 (basta digitare in cerca Denis COSTANTINI) sei intervenuto per correggere uno script
che funziona perfettamente , io l'ho voluto adattare con gli FT a una lotteria a 30 num 5 estratti di seguito ti metto lo script adattato e l'output che sembrerebbe giusto ma mancano per certo risultati intermedi :
Ecco l'output sbagliato che non contemplano formazioni tra gli ambi , terzine ecc che hanno la caratteristica di esserci inclusi:
che funziona perfettamente , io l'ho voluto adattare con gli FT a una lotteria a 30 num 5 estratti di seguito ti metto lo script adattato e l'output che sembrerebbe giusto ma mancano per certo risultati intermedi :
Codice:
Option Explicit
Sub Main
Dim RitMinimo
Dim NumeriCercati
Dim RitardoMinimo
Dim i,j,k,n,q,w,jj,qqq
Dim Fine
Dim FineCiclo
Dim AmbiRitardoValido
Dim RitardoAttuale
Dim Ritardo
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
'Script realizzato da Denis COSTANTINI - 23/06/2007
'lo script esegue la ricerca delle formazioni da 2 fino a 7 numeri
'in maggior ritardo su PENSY per la sorte di ambo
'tempo stimato (usando i valori indicati in RitMinimo) circa 20 secondi
Scrivi("TABELLONE DELLE PRINCIPALI COMBINAZIONI IN RITARDO PER AMBO Su PENSY ")
Call Scrivi("aggiornato all'estrazione n° " & EstrazioniArchivioFT & " del " & DataEstrazioneFT(EstrazioniArchivioFT))
Call Scrivi("")
'valori di ritardo minimo per velocizzare (!) la ricerca
RitMinimo = Array(0,0,120,55,40,35)
'inizia ricerca combinazioni da 2 a 5 numeri in ritardo per ambo su PENSY
For NumeriCercati = 2 To 5
ReDim MaxRuota(1) ' MaxRuota = VarArrayCreate([0,11],3)
ReDim MaxNumero(30) ' MAxNumero = VarArrayCreate([0,30],3)
'ReDim RuotaCercata(11)' RuotaCercata = VarArrayCreate([0,11],3)
ReDim Minim(30,30)' = VarArrayCreate([0,30,0,30],3)
ReDim RitAmbo(30,30) ' RitAmbo = VarArrayCreate([0,30,0,30],3)
ReDim Numeri(30) ' Numeri = VarArrayCreate([0,0],3)
ReDim OrdCom(20) ' OrdCom = VarArrayCreate([0,20],12)
ReDim OrdRit(20) ' OrdRit = VarArrayCreate([0,20],3)
Scrivi("combinazioni di " & NumeriCercati & " numeri con ritardo minimo di " & RitMinimo(NumeriCercati) & " estrazioni")
Scrivi("")
RitardoMinimo = RitMinimo(NumeriCercati)
For i = 1 To 29
For j =(i + 1) To 30
Minim(i,j) = EstrazioniArchivioFT
If AmboRitardoFT(i,j) < Minim(i,j) Then
Minim(i,j) = AmboRitardoFT(i,j)
End If
Next
Next
For i = 1 To NumeriCercati
MaxNumero(i) = 30 + i - NumeriCercati
Next
n = 1
Numeri(n) = 1
'inizia la ricerca dei numeri
Do
Fine = 1
n = n + 1
Numeri(n) = Numeri(n - 1) + 1
Do
If Numeri(n) > MaxNumero(n) Then
Do
n = n - 1
If n = 0 Then
Fine = 0
Exit Do
End If
Numeri(n) = Numeri(n) + 1
Loop Until Numeri(n) <= MaxNumero(n)
End If
If n > 1 Then
FineCiclo = 1
'controllo ritardo degli ambi
AmbiRitardoValido = 0 : Ritardo = EstrazioniArchivioFT
For j = 1 To(n - 1)
RitardoAttuale = Minim(Numeri(j),Numeri(n))
If RitardoAttuale < RitardoMinimo Then
Exit For
Else
AmbiRitardoValido = AmbiRitardoValido + 1
End If
Next
If AmbiRitardoValido =(n - 1) Then
If n = NumeriCercati Then
'trovato una combinazione
qqq = " "
For q = 1 To n
If Numeri(q) > 9 Then
qqq = qqq & Numeri(q) & " "
Else
qqq = qqq & " " & Numeri(q) & " "
End If
Next
For q = 1 To(n - 1)
For w =(q + 1) To n
If Ritardo > Minim(Numeri(q),Numeri(w)) Then
Ritardo = Minim(Numeri(q),Numeri(w))
End If
Next
Next
'
jj = 0
For j = 1 To 1 Step - 1
If Ritardo > OrdRit(j) Then
jj = j
End If
Next
If jj > 0 Then
If jj = 20 Then
OrdRit(20) = Ritardo
OrdCom(20) = qqq
Else
For j = 20 To jj + 1 Step - 1
OrdRit(j) = OrdRit(j - 1)
OrdCom(j) = OrdCom(j - 1)
Next
OrdRit(jj) = Ritardo
OrdCom(jj) = qqq
End If
End If
Numeri(n) = Numeri(n) + 1
Else
FineCiclo = 0
End If
Else
Numeri(n) = Numeri(n) + 1
FineCiclo = 1
End If
Else
FineCiclo = 0
End If
If Fine = 0 Then Exit Do End If
Loop Until FineCiclo = 0
Loop Until Fine = 0
For j = 1 To 20
If OrdRit(j) > 0 Then
Call Scrivi("PENSY " & OrdCom(j) & " ritardo : " & OrdRit(j))
End If
Next
'
Scrivi("-----------------------------------------------------------------------")
Call AvanzamentoElab(2,5,NumeriCercati)
If ScriptInterrotto Then Exit For
Next
End Sub
Codice:
TABELLONE DELLE PRINCIPALI COMBINAZIONI IN RITARDO PER AMBO Su PENSY
aggiornato all'estrazione n° 2780 del 16.12.2014
combinazioni di 2 numeri con ritardo minimo di 120 estrazioni
PENSY 17 26 ritardo : 255
PENSY 3 16 ritardo : 203
PENSY 2 9 ritardo : 183
PENSY 1 3 ritardo : 121
-----------------------------------------------------------------------
combinazioni di 3 numeri con ritardo minimo di 55 estrazioni
PENSY 3 20 27 ritardo : 139
PENSY 3 10 27 ritardo : 135
PENSY 3 8 27 ritardo : 112
PENSY 1 3 10 ritardo : 94
-----------------------------------------------------------------------
combinazioni di 4 numeri con ritardo minimo di 40 estrazioni
PENSY 3 16 20 27 ritardo : 98
PENSY 1 3 10 27 ritardo : 87
PENSY 1 2 10 27 ritardo : 48
-----------------------------------------------------------------------
combinazioni di 5 numeri con ritardo minimo di 35 estrazioni
PENSY 5 10 16 23 27 ritardo : 67
PENSY 5 7 10 23 27 ritardo : 56
PENSY 3 10 16 20 27 ritardo : 52
PENSY 3 8 16 23 27 ritardo : 42
PENSY 2 6 15 27 28 ritardo : 39
PENSY 1 2 10 20 27 ritardo : 35
-----------------------------------------------------------------------
