Novità

Per chi ne è in grado

claudio8

Premium Member
altra correzione riga 35 sostituire
Ex = Es - ER + 01
con
Ex = Es - ER

Se testate lo script con
ruota=1 Bari
casi=1
esrazioni da esaminare =2
fine range Spaziometria al 7/05/22
numeri da otterrete 5 o 10 o +
avrete come miglior precursore il 50 con freq = 2
qindi vi domanderete
come è possibile che il migliore abbia fre=2 se i casi sono 1

vi riporto quanto ho secificato sopra:
"- quando si opera con ricerche con blocchi di estrazioni ( range colpi ), sia il ciclo for delle estrazioni con annesso quello delle posizioni, che la funzione "serie frequenza" rilevano la totalità delle occorrenze rilevabili, mentre l'analisi deve terminare alla presenza o meno della singola occorrenza nel range in analisi, la sommatoria nuda e cruda quasi sempre falsa la validità della ricerca;"
( in sintesi ciò che ho appena specificato è la differenza che passa tra il concetto di frequenza e quello di copertura)

non me ne voglia Fabri.m ma di queso genere di errori ed altri è pieno il mondo degli scripter principalmente perchè gli utilizzatori non fanno mai test di controllo sui risultati degli script
saluti
 

claudio8

Premium Member
Si claudio esatto ma il mio pensiero dei precursori è : se inserisco il 90 mi dice che dopo l'uscita del 5-30 41 ecc. dovrebbe uscire il 90.
cambiando script
se inserisco il 90 e voglio i frequenti come fa a darmi sempre gli stessi numeri 5-30-41 ?
I precursori sono il passato e i frequenti sono il futuro acc.....
.......ho un pensiero ..errato !
non ti deve dare gli stessi numeri a meno di casi e condizioni paricolare.
Innanzitutto devi usare uno script che trova i frequenti e poi insendo il 5-30-41 quale spia, otterrai tra i frequenti il 90.

ti ho rimesso lo script aggingendoti le estrazioni successive alla spia.
Nota da solo la differenza "fisica" tra precursori e frequenti

Codice:
Option Explicit
Sub Main()
     Call Scrivi()
     Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
     Call Scrivi()
     Dim numero(90,03),num(01),ruota(1),nn(01)
     Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
     If N = "" Then Exit Sub
     Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
     If R = "" Then Exit Sub
     Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,1))
     If ESTR = "" Then Exit Sub
     Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
     If TOT = "" Then Exit Sub
     Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,2))
     If ER = "" Then Exit Sub
     Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
     If Mostra_OUT = "" Then Exit Sub
     Dim Casi : Casi = 00
     Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
     Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
     For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
          If Casi < ESTR Then
               For P = 01 To 05
                    a = Estratto(Es,R,P)
                    If a = N Then 'se trovi N
                         Casi = Casi + 01
                         Cont = 00 ' contatore
                         ix = Es - 01
                         ixx =(ix - ER) + 01
                         For axx = ixx To ix
                              Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
                         Next
                         Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
                         'Ex = Es - ER '+ 01
                         For Ess = Es - ER To Es - 01
                              For Pos = 01 To 05
                                   b = Estratto(Ess,R,Pos)
                                   nn(01) = b
                                   ruota(01) = R
                                   Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                                   numero(b,01) = b
                                   numero(b,02) = numero(b,02) + 01
                                   numero(b,03) = Rit
                                   Cont = Cont + 01
                              Next
                         Next
                    End If
               Next
          End If
     Next
     Call OrdinaMatriceTurbo(numero,- 01,02)
     Call Scrivi()
     If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
     Call Scrivi("NUMERO :  " & Format2(N),True,True)
     Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
     Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
     Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
     Call Scrivi()
     Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
     Call Scrivi()
     Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
     Call Scrivi()
     Dim NR,NSTR,Stringa
     For NR = 01 To TOT
          Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
          NSTR = Format2(numero(NR,01))
          Stringa = Stringa + NSTR
          If NR < TOT Then Stringa = Stringa + "."
     Next
     Call Scrivi()
     Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
     If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & StringaEstratti(axx,r) & "  numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
     Dim x
     If mostra_out = 01 Then
          Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato:    " & Format2(n),True,True)
          For x = 1 To ER
              Call Scrivi("    " & DataEstrazione(es+x) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es + x,r) & "  frequenti dopo spia: ",True,True,,02)
          Next
     End If
End Function

spero di essere chiaro
 

Alien.

Advanced Premium Member
Acc..... grazie claudio per la pazienza credevo che mi inviavi alla prima porta a Destra.:unsure:😂

cosa ne dice di farlo anche per il 10elotto.............adesso ci vado.................
 

claudio8

Premium Member
Acc..... grazie claudio per la pazienza credevo che mi inviavi alla prima porta a Destra.:unsure:😂

cosa ne dice di farlo anche per il 10elotto.............adesso ci vado.................
Adesso sei pregato di ......
attendere il ritorno di fabri.m
Non voglio ulteriormente invadere.
 
Ultima modifica:

Alien.

Advanced Premium Member
prova , vale solo sulla sestina base .
Codice:
Option Explicit
Sub Main()
   Call Scrivi() : Call Scrivi(String(36," ") & "NUMERI RILEVATORI SUPERENALOTTO *",True,True,,01) : Call Scrivi()
   Dim numero(90,03),num(01),nn(01)
   Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1))
   If N = "" Then Exit Sub
   Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10))
   If ESTR = "" Then Exit Sub
   Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
   If TOT = "" Then Exit Sub
   Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10))
   If ER = "" Then Exit Sub
   Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
   If Mostra_OUT = "" Then Exit Sub
   Dim Casi : Casi = 00
   Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivioSE - ESTR : Fin = EstrazioniArchivioSE : IniS = 0001
   Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
   For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
      If Casi < ESTR Then
         For P = 01 To 06
            a = EstrattoSE(Es,P)
            If a = N Then
               Casi = Casi + 01
               Cont = 00
               ix = Es - 01
               ixx =(ix - ER) + 01
               For axx = ixx To ix
                  Call info2(Mostra_OUT,axx)
               Next
               Call info1(Mostra_OUT,Casi,Es,N)
               Ex = Es - ER + 01
               For Ess = Ex To Es - 01
                  For Pos = 01 To 06
                     b = EstrattoSE(Ess,Pos)
                     nn(01) = b
                     Rit = SerieRitardoSE(IniS,Fin,nn,AMBATA_)
                     numero(b,01) = b
                     numero(b,02) = numero(b,02) + 01
                     numero(b,03) = Rit
                     Cont = Cont + 01
                  Next
               Next
            End If
         Next
      End If
   Next
   Call OrdinaMatriceTurbo(numero,- 01,02)
   Call Scrivi()
   If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01)
   Call Scrivi("NUMERO:    " & Format2(N),True,True)
   Call Scrivi("CASI ESAMI SPIATONATI:   " & Format2(Casi),True,True)
   Call Scrivi("ESTR.RETROATTIVE  " & Format2(ER),True,True)
   Call Scrivi()
   Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
   Call Scrivi()
   Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
   Call Scrivi()
   Dim NR,NSTR,Stringa
   For NR = 01 To TOT
      Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
      NSTR = Format2(numero(NR,01))
      Stringa = Stringa + NSTR
      If NR < TOT Then Stringa = Stringa + "."
   Next
   Call Scrivi()
   Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,axx)
   If mostra_out = 01 Then Call Scrivi("    " & DataEstrazioneSE(axx) & "  " & StringaEstrattiSE(axx),True,True,,01)
End Function
Function info1(mostra_out,casi,es,n)
   If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazioneSE(es) & "  " & StringaEstrattiSE(es) & _
   "  Numero spiato: " & Format2(n),True,True)
End Function
Perdonami fabri ma per il Superenalotto mi chiede sempre la ruota ,forse non ho ben capito mi dici: - prova , vale solo sulla sestina base .

cosa intendevi dire, grazie.
 

Alien.

Advanced Premium Member
Si scusami claudio è vero sono andato sopra ho ricopiato il listato e lanciato.........cavoli allora facevo girare sempre quello del lotto sing sing :unsure:😂
 
Ultima modifica:

Zetrix

Advanced Premium Member
Codice:
Option Explicit
Sub Main()
     Call Scrivi()
     Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
     Call Scrivi()
     Dim numero(90,03),num(01),ruota(1),nn(01)
     Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
     If N = "" Then Exit Sub
     Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
     If R = "" Then Exit Sub
     Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,1))
     If ESTR = "" Then Exit Sub
     Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
     If TOT = "" Then Exit Sub
     Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,2))
     If ER = "" Then Exit Sub
     Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
     If Mostra_OUT = "" Then Exit Sub
     Dim Casi : Casi = 00
     Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
     Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
     For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
          If Casi < ESTR Then
               For P = 01 To 05
                    a = Estratto(Es,R,P)
                    If a = N Then 'se trovi N
                         Casi = Casi + 01
                         Cont = 00 ' contatore
                         ix = Es - 01
                         ixx =(ix - ER) + 01
                         For axx = ixx To ix
                              Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
                         Next
                         Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
                         'Ex = Es - ER '+ 01
                         For Ess = Es - ER To Es - 01
                              For Pos = 01 To 05
                                   b = Estratto(Ess,R,Pos)
                                   nn(01) = b
                                   ruota(01) = R
                                   Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                                   numero(b,01) = b
                                   numero(b,02) = numero(b,02) + 01
                                   numero(b,03) = Rit
                                   Cont = Cont + 01
                              Next
                         Next
                    End If
               Next
          End If
     Next
     Call OrdinaMatriceTurbo(numero,- 01,02)
     Call Scrivi()
     If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
     Call Scrivi("NUMERO :  " & Format2(N),True,True)
     Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
     Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
     Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
     Call Scrivi()
     Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
     Call Scrivi()
     Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
     Call Scrivi()
     Dim NR,NSTR,Stringa
     For NR = 01 To TOT
          Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
          NSTR = Format2(numero(NR,01))
          Stringa = Stringa + NSTR
          If NR < TOT Then Stringa = Stringa + "."
     Next
     Call Scrivi()
     Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
     If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & StringaEstratti(axx,r) & "  numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
     Dim x
     If mostra_out = 01 Then
          Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato:    " & Format2(n),True,True)
          For x = 1 To ER
              Call Scrivi("    " & DataEstrazione(es+x) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es + x,r) & "  frequenti dopo spia: ",True,True,,02)
          Next
     End If
End Function



21.10.2017 BA 13.68.85.40.28 numeri precursori
24.10.2017 BA 28.76.33.53.72 numeri precursori
26.10.2017 BA 16.14.46.08.11 numeri precursori
28.10.2017 BA 44.41.13.32.42 numeri precursori
31.10.2017 BA 32.05.31.78.90 numeri precursori
02.11.2017 BA 27.90.38.24.34 numeri precursori

04.11.2017 BA 32.45.05.08.59 numeri precursori
10) 07.11.2017 BA 42.69.53.31.45 Numero spiato: 42
09.11.2017 BA 16.13.32.09.76 frequenti dopo spia:
11.11.2017 BA 47.63.80.36.69 frequenti dopo spia:
14.11.2017 BA 60.30.37.46.83 frequenti dopo spia:
16.11.2017 BA 38.26.04.81.49 frequenti dopo spia:
18.11.2017 BA 55.86.65.13.84 frequenti dopo spia:
21.11.2017 BA 56.47.05.58.34 frequenti dopo spia:
23.11.2017 BA 71.29.47.30.63 frequenti dopo spia:

IN COLORE BLU LE 07 ESTRAZIONI PRECEDENTI ed in rosso le successive
NUMERO : 42 POS 1°
RUOTA DI RICERCA : BA
ESTR DI RICERCA: 07
ESTR.RETROATTIVE : 07



ciao a tutti ..

x claudio8 volevo dirti che questo script deve essere migliorato perche cosi non va bene
intanto i numeri precursori non servono a niente quello che deve fare lo script
e calcolare un numero spia esempio il 42 nella 1 Pos a BA e vedere nelle successive estr
diciamo 7 estr che possono bastare e controllare che in due RUOTE abbiano garantita
sempre l'ambata in quelle due RUOTE e se nel caso si puo fare la ricerca anche nelle tre RUOTE
se nel caso non darebbe risultato in due RUOTE..
per il range delle estr si possono mettere 300 estr perche se mettiamo a ini to fin estr
sarà molto difficile che possa garantire sempre l'ambata sulle due RUOTE..
 
Ultima modifica:

claudio8

Premium Member
Codice:
Option Explicit
Sub Main()
     Call Scrivi()
     Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
     Call Scrivi()
     Dim numero(90,03),num(01),ruota(1),nn(01)
     Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
     If N = "" Then Exit Sub
     Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
     If R = "" Then Exit Sub
     Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,1))
     If ESTR = "" Then Exit Sub
     Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
     If TOT = "" Then Exit Sub
     Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,2))
     If ER = "" Then Exit Sub
     Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
     If Mostra_OUT = "" Then Exit Sub
     Dim Casi : Casi = 00
     Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
     Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
     For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
          If Casi < ESTR Then
               For P = 01 To 05
                    a = Estratto(Es,R,P)
                    If a = N Then 'se trovi N
                         Casi = Casi + 01
                         Cont = 00 ' contatore
                         ix = Es - 01
                         ixx =(ix - ER) + 01
                         For axx = ixx To ix
                              Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
                         Next
                         Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
                         'Ex = Es - ER '+ 01
                         For Ess = Es - ER To Es - 01
                              For Pos = 01 To 05
                                   b = Estratto(Ess,R,Pos)
                                   nn(01) = b
                                   ruota(01) = R
                                   Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                                   numero(b,01) = b
                                   numero(b,02) = numero(b,02) + 01
                                   numero(b,03) = Rit
                                   Cont = Cont + 01
                              Next
                         Next
                    End If
               Next
          End If
     Next
     Call OrdinaMatriceTurbo(numero,- 01,02)
     Call Scrivi()
     If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
     Call Scrivi("NUMERO :  " & Format2(N),True,True)
     Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
     Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
     Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
     Call Scrivi()
     Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
     Call Scrivi()
     Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
     Call Scrivi()
     Dim NR,NSTR,Stringa
     For NR = 01 To TOT
          Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
          NSTR = Format2(numero(NR,01))
          Stringa = Stringa + NSTR
          If NR < TOT Then Stringa = Stringa + "."
     Next
     Call Scrivi()
     Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
     If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & StringaEstratti(axx,r) & "  numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
     Dim x
     If mostra_out = 01 Then
          Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato:    " & Format2(n),True,True)
          For x = 1 To ER
              Call Scrivi("    " & DataEstrazione(es+x) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es + x,r) & "  frequenti dopo spia: ",True,True,,02)
          Next
     End If
End Function



21.10.2017 BA 13.68.85.40.28 numeri precursori
24.10.2017 BA 28.76.33.53.72 numeri precursori
26.10.2017 BA 16.14.46.08.11 numeri precursori
28.10.2017 BA 44.41.13.32.42 numeri precursori
31.10.2017 BA 32.05.31.78.90 numeri precursori
02.11.2017 BA 27.90.38.24.34 numeri precursori

04.11.2017 BA 32.45.05.08.59 numeri precursori
10) 07.11.2017 BA 42.69.53.31.45 Numero spiato: 42
09.11.2017 BA 16.13.32.09.76 frequenti dopo spia:
11.11.2017 BA 47.63.80.36.69 frequenti dopo spia:
14.11.2017 BA 60.30.37.46.83 frequenti dopo spia:
16.11.2017 BA 38.26.04.81.49 frequenti dopo spia:
18.11.2017 BA 55.86.65.13.84 frequenti dopo spia:
21.11.2017 BA 56.47.05.58.34 frequenti dopo spia:
23.11.2017 BA 71.29.47.30.63 frequenti dopo spia:

IN COLORE BLU LE 07 ESTRAZIONI PRECEDENTI ed in rosso le successive
NUMERO : 42 POS 1°
RUOTA DI RICERCA : BA
ESTR DI RICERCA: 07
ESTR.RETROATTIVE : 07



ciao a tutti ..

x claudio8 volevo dirti che questo script deve essere migliorato perche cosi non va bene
intanto i numeri precursori non servono a niente quello che deve fare lo script
e calcolare un numero spia esempio il 42 nella 1 Pos a BA e vedere nelle successive estr
diciamo 7 estr che possono bastare e controllare che in due RUOTE abbiano garantita
sempre l'ambata in quelle due RUOTE e se nel caso si puo fare la ricerca anche nelle tre RUOTE
se nel caso non darebbe risultato in due RUOTE..
per il range delle estr si possono mettere 300 estr perche se mettiamo a ini to fin estr
sarà molto difficile che possa garantire sempre l'ambata sulle due RUOTE..
Vai avanti nel miglioramento
In caso di difficoltà chiedi ne forum.
Mi congratulo per le idee che hai espresso.
Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto