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
 
Cinzia27 ha scritto:
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
Clicca per espandere...
i legend ha scritto:
Hai messo il filtro che non possono cadere in amb magarii?
Clicca per espandere...
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.
 
Alien. ha scritto:
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.
Clicca per espandere...


OK MA AL POSTO DI QUEI POLLICI VERSO IL BASSO COSA SONO " DELLE APICI ?
 
i legend ha scritto:
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.
Clicca per espandere...
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 :)
 
i legend ha scritto:
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 :)
Clicca per espandere...

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... 👌👍👋🙂
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto