Novità

Cinquine non concluse

Ciao Cinzia27,
Ti Anticipo questo

I numeri del 10 e lotto sono strettamente legati al Lotto.
I 20 estratti del 10eLotto corrispondono ai numeri delle prime due colonne della tabella delle estrazioni del Lotto, ruota Nazionale esclusa. In caso di numeri duplicati si prendono i numeri della terza colonna, a cominciare dalla prima ruota, Nazionale esclusa.

Sperando di essere di Aiuto.
 
Grazie, Xeroxs della conferma.
Allora, non è stato tempo perso.
Ho impostato la ricerca sulle quartine per terno che hanno avuto il massimo storico più basso, ma si può sostituire con la ricerca sulle formazioni che hanno avuto la frequenza più alta .
Cercando i casi con massimo storico < 110 sono risultate 1683 formazioni.


Sub Main()
'10 e lotto storici quartine per terno(Cinzia)

Dim n(4)
w = 3
For a = 1 To 87
For b = a + 1 To 88
For c = b + 1 To 89
If ScriptInterrotto Then Exit For
For d = c + 1 To 90
n(1) = a
n(2) = b
n(3) = c
n(4) = d
rt = SerieStoricoDL(1,EstrazioneFinDL,n,w)
If rt < 110 Then 'con questo paramentro 1683 serie - si consiglia <105 per non avere troppi casi
cc = cc + 1
Messaggio FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
End If
Next
Next
Next
Next
End Sub

Vi posto i più interessanti, ma se volete ve li posto tutti.

33) 1.15.88.89 rt 96
693) 12.40.72.81 rt 98
795) 14.51.60.76 rt 98
1287) 30.73.81.84 rt 99
1679) 76.79.81.86 rt 97
1478) 43.49.69.70 rt 100
1567) 51.55.64.82 rt 100
17) 1.12.32.44 rt 101
242) 4.76.80.81 rt 101
1251) 29.44.68.74 rt 101
1405) 37.52.70.81 rt 101
1562) 50.62.79.86 rt 101
1563) 50.63.70.85 rt 101
 
Se non ti dà errore, forse ti sembra che non giri perché prima che trovi quartine con ritardi massimi così bassi ci vuole un pò di tempo.
Prova ad alzare
If rt < 110
e poi se vedi che gira lo riporti a 110 ( anzi 105)
 
Ciao Cinzia, mi si blocca anche con 90


Sub Main()
'10 e lotto storici quartine per terno(Cinzia)

Dim n(4)
w = 3
For a = 1 To 87
For b = a + 1 To 88
For c = b + 1 To 89
If ScriptInterrotto Then Exit For
For d = c + 1 To 90
n(1) = a
n(2) = b
n(3) = c
n(4) = d
rt = SerieStoricoDL(1,EstrazioneFinDL,n,w)
If rt < 90 Then 'con questo paramentro 1683 serie - si consiglia <105 per non avere troppi casi
cc = cc + 1
Messaggio FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
End If
Next
Next
Next
Next
End Sub


ma non si potrebbe fare per decine ? Grazie.
 
Ciao, Alien, storici inferiori a 90 non ce ne sono.
Leggi post 64.
La discussione su 10 e lotto ora è nell' apposita sezione.
Qui possiamo continuare a parlare di cinquine non concluse.
Per le decine non credo si possa fare, solo per le quartine ci ha messo un giorno ma ci proverò.
 
ciao Cinzia , ho provato a compilare un piccolo script , ma visto che sono fuori allenamento ho ottenuto un diverso risultato da tuo
mi potresti spiegare il perchè delle differenze?
ho considerato solo le cinquine con gli estratti caduti solo una volta.
Hai messo il filtro che non possono cadere in amb magarii?
se capisco la differenza tra i due script allora correggo e ti posto il mio .
stesso risultato due procedure diverse :)
ciao :)perCinzia.png
 
Questo script più di manica larga esclude le cinquine che hanno già dato ambo.

Codice:
Scrivi "Prima della conclusione della cinquina(Cinzia)" & Chr(10)


ColoreTesto 6

Scrivi String(80,"*")

ColoreTesto 0

Sub Main()

Dim n1(1),n2(1),n3(1),n4(1),n5(1),ru(1),nu(5),nr(5)

Dim s(5)

fin = EstrazioneFin

ini = 9800

Scrivi "Estrazione finale " & Fin & "  " & DataEstrazione(fin) : Scrivi


For es = ini To fin

Messaggio(es)

   For r = 1 To 11

      If r = 11 Then r = 12

 

ru(1) = r


n1(1) = Estratto(es,r,1)

n2(1) = Estratto(es,r,2)

n3(1) = Estratto(es,r,3)

n4(1) = Estratto(es,r,4)

n5(1) = Estratto(es,r,5)

nr(1) = n1(1)

nr(2) = n2(1)

nr(3) = n3(1)

nr(4) = n4(1)

nr(5) = n5(1)

fra = SerieFreq(es + 1,fin - 1,nr,ru,2)
If fra=0 Then




      ex = es + 1

      If ex <= fin Then

s(1) = SeriePrima(ex,fin - 1,n1,ru,1)

s(2) = SeriePrima(ex,fin - 1,n2,ru,1)

s(3) = SeriePrima(ex,fin - 1,n3,ru,1)

s(4) = SeriePrima(ex,fin - 1,n4,ru,1)

s(5) = SeriePrima(ex,fin - 1,n5,ru,1)

OrdinaMatrice s,1

         If s(1) = 0 And s(2) > 0 Then


fra1 = SerieFreq(fin,fin,nr,ru,2)
If fra1>0 Then usc1=usc1+1
fra2 = SerieFreq(fin,fin,nr,ru,3)
If fra2>0 Then usc2=usc2+1

Scrivi


'If s(5)=0 Or s(4)=0 Or s(3)=0  Or s(2)=0 Or s(1)=0  Then

rt = fin - es

c = c + 1

Scrivi FormatSpace(c,4,1) & "  " & es & "  " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "   Ritardo " & FormatSpace(rt,4,1) & " ---> ",0,0

frr1 = SerieFreq(es + 1,fin - 1,n1,ru,1)

frr2 = SerieFreq(es + 1,fin - 1,n2,ru,1)

frr3 = SerieFreq(es + 1,fin - 1,n3,ru,1)

frr4 = SerieFreq(es + 1,fin - 1,n4,ru,1)

frr5 = SerieFreq(es + 1,fin - 1,n5,ru,1)

If frr1 > 0 Then Scrivi Format2(n1(1)) & " ",0,0

If frr2 > 0 Then Scrivi Format2(n2(1)) & " ",0,0

If frr3 > 0 Then Scrivi Format2(n3(1)) & " ",0,0

If frr4 > 0 Then Scrivi Format2(n4(1)) & " ",0,0

If frr5 > 0 Then Scrivi Format2(n5(1)) & " ",0,0


fr1 = SerieFreq(fin,fin,n1,ru,1)

fre1 = SerieFreq(es + 1,fin - 1,n1,ru,1)

If fr1 > 0 And fre1 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n1(1)) & " ",1,0

If fr1 > 0 And fre1 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n1(1)) & " ",0,0

 

fr2 = SerieFreq(fin,fin,n2,ru,1)

fre2 = SerieFreq(es + 1,fin - 1,n2,ru,1)

If fr2 > 0 And fre2 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n2(1)) & " ",1,0

If fr2 > 0 And fre2 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n2(1)) & " ",0,0


fr3 = SerieFreq(fin,fin,n3,ru,1)

fre3 = SerieFreq(es + 1,fin - 1,n3,ru,1)

If fr3 > 0 And fre3 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n3(1)) & " ",1,0

If fr3 > 0 And fre3 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n3(1)) & " ",0,0


fr4 = SerieFreq(fin,fin,n4,ru,1)

fre4 = SerieFreq(es + 1,fin - 1,n4,ru,1)

If fr4 > 0 And fre4 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n4(1)) & " ",1,0

If fr4 > 0 And fre4 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n4(1)) & " ",0,0


fr5 = SerieFreq(fin,fin,n5,ru,1)

fre5 = SerieFreq(es + 1,fin - 1,n5,ru,1)

If fr5 > 0 And fre5 = 0 Then usc = usc + 1: ColoreTesto 2: Scrivi " sortito " & Format2(n5(1)) & " ",1,0

If fr5 > 0 And fre5 > 0 Then usc = usc + 1: ColoreTesto 0: Scrivi " sortito " & Format2(n5(1)) & " ",0,0

ColoreTesto 0

            End If

         End If

     End If

   Next

Next

Scrivi : Scrivi "Ambate sortite all'ultima estrazione " & usc & " numeri"
Scrivi : Scrivi "Ambi sortiti all'ultima estrazione " & usc1
Scrivi : Scrivi "Terni sortiti all'ultima estrazione " & usc2

End Sub
Hai messo il filtro che non possono cadere in amb magarii?
Esatto.
Lo script che richiede che siano stati estratti 4 numeri una sola volta presenta pochissimi casi. Allora ho tolto questo limite, l' importante che tutti e quattro siano uscita non importa quante volte e non sia ancora uscito l' ambo.
 
Cinzia allora non so se dipenda dall archivio, ma nell esempio evidenziato dopo la cinquina tutti e quattro gli estratti sono sortiti una volta. Fine analisi è estrazionefin. Tu consideri la penultima? Forse è l unica discrepanza.
Ciao.
 
Ciao Cinzia, mi si blocca anche con 90


Sub Main()
'10 e lotto storici quartine per terno(Cinzia)

Dim n(4)
w = 3
For a = 1 To 87
For b = a + 1 To 88
For c = b + 1 To 89
If ScriptInterrotto Then Exit For
For d = c + 1 To 90
n(1) = a
n(2) = b
n(3) = c
n(4) = d
rt = SerieStoricoDL(1,EstrazioneFinDL,n,w)
If rt < 90 Then 'con questo paramentro 1683 serie - si consiglia <105 per non avere troppi casi
cc = cc + 1
Messaggio FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
End If
Next
Next
Next
Next
End Sub


ma non si potrebbe fare per decine ? Grazie.


OK MA AL POSTO DI QUEI POLLICI VERSO IL BASSO COSA SONO " DELLE APICI ?
 
Cinzia allora non so se dipenda dall archivio, ma nell esempio evidenziato dopo la cinquina tutti e quattro gli estratti sono sortiti una volta. Fine analisi è estrazionefin. Tu consideri la penultima? Forse è l unica discrepanza.
Ciao.
Si, io porto avanti fino alla finale -1, quindi l' estrazione 9942 non c' è ancora poiché l' ultimo il caso nasce alla 9971. Si vedrà alla 9972
In pratica rinuncio all' estrazione a ritardo 0 per visualizzare i casi usciti.
 
ciao Cinzia :)
ti posto lo script, con tutti i casi in corso , quelli sfaldati non essendo piu utili non li filtra.
controlla che sia tutto corretto perchè è da tanto che non listo .
ripeto per tutti , non garantisco sui dati filtrati
ho commentato lo script per chiarire tutti i passaggi per chi è alle prime armi,
spero sia abastanza leggibile
Codice:
Option Explicit
' non si garantisce la correttezza dei dati riportati e filtrati dallo script
' eventuali bugs sono sempre possibili
Sub Main
   Dim aN(1),aR(1)
   Dim UltRigTab,ConcRit
   Dim Ru,P
   Dim bRet,L1,M
   Dim IdEstr,EstrFin
   Dim Freq
   EstrFin = EstrazioneFin
   UltRigTab = EstrFin
   ' cerco l ultimo concorso utile del tabellone analitico
   For Ru = 1 To 11
      If Ru = 11 Then Ru = 12
      aR(1) = Ru
      aN(1) = PiuRitardatarioTurbo(EstrFin,Ru)
      ConcRit = SerieUltima(EstrFin - 350,EstrFin,aN,aR,1)
      If UltRigTab > ConcRit Then UltRigTab = ConcRit
   Next 'Ru
   ' scrivo info su   titolo tabella
   Scrivi " Range concorso utile del tabellone analitico : " & UltRigTab & " - " & EstrFin
   Scrivi
   Scrivi " ",,0: Scrivi "|                                                  |",1,,RGB(53,189,255),RGB(242,251,255)
   Scrivi " ",,0: Scrivi "|  DATA COND | CONC  | RC  | RU |   SORTITI   | L1 |",1,,RGB(53,189,255),RGB(242,251,255)
   ' comincio eleborazione dati con i filtri imposti
   ' nessuna cinquina deve sfaldare in ambo
   ' i 4 numeri  non devono essere estratti piu di una volta
   For IdEstr = UltRigTab To EstrFin
      For Ru = 1 To 11
         If Ru = 11 Then Ru = 12
         aR(1) = Ru
         ReDim aEstr(0)
         Call GetArrayNumeriRuota(IdEstr,aR(1),aEstr)
         ' filtro tutte le cinquine che non si sono sfadate in ambo
         If SerieFreqTurbo(IdEstr + 1,EstrFin,aEstr,aR,2) = 0 Then
            bRet = True
            M = 0
            L1 = 0
            ReDim aL1(5)
            ReDim aSort(5)
            For P = 1 To 5
               aN(1) = aEstr(P)
               Freq = SerieFreqTurbo(IdEstr + 1,EstrFin,aN,aR,1)
               If Freq = 0 Then
                  L1 = L1 + 1
                  aL1(L1) = aN(1)
               ElseIf Freq = 1 Then
                  M = M + 1
                  aSort(M) = aN(1)
               Else
                  ' escludo le cinquine che hanno visto sortire piu volte anche solo un estrattto
                  bRet = False
               End If
            Next 'P
            If L1 = 1 And bRet = True Then
               Scrivi " | " & DataEstrazione(IdEstr) & " | " & FormatSpace(IdEstr,5) & " | " & FormatSpace(EstrFin - IdEstr,3) & " | " & _
               SiglaRuota(Ru) & " | " & StringaNumeri(aSort,,True) & " | " & StringaNumeri(aL1,,True) & " | "
            End If
         End If ' escludo le cinquine sfaldate in ambo
      Next 'Ru
   Next 'IdEstr
End Sub
ciao :)
 
ciao Cinzia :)
ti posto lo script, con tutti i casi in corso , quelli sfaldati non essendo piu utili non li filtra.
controlla che sia tutto corretto perchè è da tanto che non listo .
ripeto per tutti , non garantisco sui dati filtrati
ho commentato lo script per chiarire tutti i passaggi per chi è alle prime armi,
spero sia abastanza leggibile
Codice:
Option Explicit
' non si garantisce la correttezza dei dati riportati e filtrati dallo script
' eventuali bugs sono sempre possibili
Sub Main
   Dim aN(1),aR(1)
   Dim UltRigTab,ConcRit
   Dim Ru,P
   Dim bRet,L1,M
   Dim IdEstr,EstrFin
   Dim Freq
   EstrFin = EstrazioneFin
   UltRigTab = EstrFin
   ' cerco l ultimo concorso utile del tabellone analitico
   For Ru = 1 To 11
      If Ru = 11 Then Ru = 12
      aR(1) = Ru
      aN(1) = PiuRitardatarioTurbo(EstrFin,Ru)
      ConcRit = SerieUltima(EstrFin - 350,EstrFin,aN,aR,1)
      If UltRigTab > ConcRit Then UltRigTab = ConcRit
   Next 'Ru
   ' scrivo info su   titolo tabella
   Scrivi " Range concorso utile del tabellone analitico : " & UltRigTab & " - " & EstrFin
   Scrivi
   Scrivi " ",,0: Scrivi "|                                                  |",1,,RGB(53,189,255),RGB(242,251,255)
   Scrivi " ",,0: Scrivi "|  DATA COND | CONC  | RC  | RU |   SORTITI   | L1 |",1,,RGB(53,189,255),RGB(242,251,255)
   ' comincio eleborazione dati con i filtri imposti
   ' nessuna cinquina deve sfaldare in ambo
   ' i 4 numeri  non devono essere estratti piu di una volta
   For IdEstr = UltRigTab To EstrFin
      For Ru = 1 To 11
         If Ru = 11 Then Ru = 12
         aR(1) = Ru
         ReDim aEstr(0)
         Call GetArrayNumeriRuota(IdEstr,aR(1),aEstr)
         ' filtro tutte le cinquine che non si sono sfadate in ambo
         If SerieFreqTurbo(IdEstr + 1,EstrFin,aEstr,aR,2) = 0 Then
            bRet = True
            M = 0
            L1 = 0
            ReDim aL1(5)
            ReDim aSort(5)
            For P = 1 To 5
               aN(1) = aEstr(P)
               Freq = SerieFreqTurbo(IdEstr + 1,EstrFin,aN,aR,1)
               If Freq = 0 Then
                  L1 = L1 + 1
                  aL1(L1) = aN(1)
               ElseIf Freq = 1 Then
                  M = M + 1
                  aSort(M) = aN(1)
               Else
                  ' escludo le cinquine che hanno visto sortire piu volte anche solo un estrattto
                  bRet = False
               End If
            Next 'P
            If L1 = 1 And bRet = True Then
               Scrivi " | " & DataEstrazione(IdEstr) & " | " & FormatSpace(IdEstr,5) & " | " & FormatSpace(EstrFin - IdEstr,3) & " | " & _
               SiglaRuota(Ru) & " | " & StringaNumeri(aSort,,True) & " | " & StringaNumeri(aL1,,True) & " | "
            End If
         End If ' escludo le cinquine sfaldate in ambo
      Next 'Ru
   Next 'IdEstr
End Sub
ciao :)

Siccome sono curioso come le scimmie... :D e dato che anche per i tuoi lavori grande i legend ho un'ammirazione spropositata... che cosa farebbe questa tua ultima chicca e come potrebbe tornare utile ai fini previsionali o riduzionali? :unsure:🐵 Grazie se tu o la mia sorellina... (cit. Luigi 😆) Cinzia, dalla quale mi sembra che sia partito tutto anche in questo caso..., potete spiegarmelo... 👌👍👋🙂
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto