Cinquine non concluse

Marcorun · 30 Agosto 2021

10eLotto serale

Cinzia27 · 30 Agosto 2021

Quindi il 10 e lotto legato all' estrazione del lotto, giusto?

Xeroxs · 30 Agosto 2021

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.

Cinzia27 · 30 Agosto 2021

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

& " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri

& " 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

Marcorun · 30 Agosto 2021

Ciao.....a me lo script non gira.....

Cinzia27 · 30 Agosto 2021

Ciao, eppure a me funziona, prova a ricopiarlo.

Marcorun · 30 Agosto 2021

ho fatto copia incolla....niente.
uso spaziometria.

Cinzia27 · 30 Agosto 2021

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)

Cinzia27 · 30 Agosto 2021

Gentili partecipanti, per continuare a parlare di 10elotto, apro un topic nell' apposita sezione.

Alien. · 30 Agosto 2021

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

& " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri

& " rt " & FormatSpace(rt,4,1)
End If
Next
Next
Next
Next
End Sub

ma non si potrebbe fare per decine ? Grazie.

Cinzia27 · 30 Agosto 2021

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ò.

i legend · 1 Settembre 2021

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

Cinzia27 · 1 Settembre 2021

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

i legend ha scritto:
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.

i legend · 1 Settembre 2021

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. · 1 Settembre 2021

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 & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri & " 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 ?

Cinzia27 · 1 Settembre 2021

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.

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.

Cinzia27 · 1 Settembre 2021

Alien. ha scritto:
OK MA AL POSTO DI QUEI POLLICI VERSO IL BASSO COSA SONO " DELLE APICI ?

Sono niente, li puoi togliere.

i legend · 1 Settembre 2021

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

lotto_tom75 · 1 Settembre 2021

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

Siccome sono curioso come le scimmie...

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?

Grazie se tu o la mia sorellina... (cit. Luigi

) Cinzia, dalla quale mi sembra che sia partito tutto anche in questo caso..., potete spiegarmelo...

i legend · 1 Settembre 2021

ciao Tom

ho cercato di trovare una soluzione alternativa allo script , questo cmq è molto semplice , sono fuori allenamento

Cinquine non concluse

Advanced Member >GOLD<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >GOLD<

Premium Member

Advanced Member >GOLD<

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member