Posts written by mouse_66

view post Posted: 20/2/2024, 17:08     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
Ho corretto l'immagine per un errato caricamento filtri, ma la sostanza cambia poco
CITAZIONE (orion13 @ 20/2/2024, 14:43) 
Ciao a tutti, mouse-66 se guardo al condizionato ridotto di 2800 colonne con 8 tre e al puro garanzia 3 con 4 tre e 1124 colonne direi che è più performante il ridotto normale se non altro perchè 1124 x 2 = 2248 colonne e 8 tre spendendo 552 colonne in meno stessa resa . (valutazione fatta per un ridotto multivincita che presumibilmente costa anche meno di 2248 colonne ) Chiaramente sono calcoli spiccioli questi , risposte più centrate e magari scientifiche in questo senso le potremmo avere dai tanti e bravi sistemisti che ci sono nel forum. Ma cosi a naso mi viene da pensare che anche considerando le 6 colonne verticali del super in modalità secondo ordine di estrazione in aggiunta a quelle 6 " normali " considerando anche che i punteggi in colonne filtro sono molto simili , il resoconto dello sviluppo colonnare è mediamente vicino a quello che hai mostrato nella tua elaborazione. Ora non ricordo bene ,ma avevo intavolato il condizionamento delle 6 colonne verticali sfruttando i punteggi che abbiamo anche visto sviscerati statisticamente , aggiungendo anche il comportamento di questi punti analizzati dal punto di vista " di quanti" ecco che allora di punti zero ne ho 1 ( che significa avere 15/18 numeri in meno da considerare ,sempre valutato nelle sue possibili permutazioni) o meglio 2 zero e cosi per gli altri punti, in combinazione con i punti su colonna precedente, e tutto questo legato alle posizioni della casella. Mi scuso con chi legge non vorrei risultare antipatico o " maestrino" ho una grande passione e sono sicuro che chi legge ne ha altrettanta.
view post Posted: 20/2/2024, 16:21     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
L'obiettivo è trovare condizionamenti che riducano i 90 numeri, certo quelli di Ros sono i 36 numeri che funzionano!
view post Posted: 20/2/2024, 14:56     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
Ora sto provando lo stesso sistema "simulando" le percentuali di presenza. Tieni infatti conto che qui abbiamo i 3 che normalmente rappresentano al massimo il 5% di probabilità.
view post Posted: 20/2/2024, 14:12     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
Questo sarebbe il risultato con un ridotto puro del 3 senza i filtri
view post Posted: 20/2/2024, 14:10     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
orion13
Ho provato con i filtri precedenti all'estrazione di sabato

EDIT, immagine corretta

Edited by mouse_66 - 20/2/2024, 17:05
view post Posted: 20/2/2024, 11:25     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
orion13
Questa è la riduzione utilizzando le colonne verticali sia progressive che in ordine di estrazione per questo concorso. Non ho impostato percentuali di presenza ne consecutività che ridurrebbero ancora un pochino le colonne
view post Posted: 20/2/2024, 10:42     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
Al momento vorrei sfruttare entrambe le statistiche, tagliando le percentuali più basse. II mio excel mi fornisce le due "strisce" di 6 colonne coi numeri in verticale. Appena chiudo con precisione le percentuali faccio un'elaborazione sui 90 e ti dico.
Per fare un esperimento grossolano ora lancio brutalmente uno 0,1,2,3 sulle colonne filtro per l'estrazione di stasera e ti dico quante colonne otteniamo.
Mi manca purtroppo la possibilità di filtrare anche le statistiche sulle stringhe dei risultati



CITAZIONE (Beppignello @ 20/2/2024, 08:54) 
questo è il sintetico con i punti totali sulle 6 col.verticali e le percentuali come si distribuiscono

TabelloneNuovoSe-4SinteticoPuntiColonne

Immagine%202024-02-20%20085326


CODICE
Option Explicit
Sub Main
  Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
  Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu,i1,i2,t1,t2
  Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b,punti1,punti2,punti3,punti4,punti5,punti6,h
  Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90),punteggio(7,7)
  Dim p1,p2,p3,p4,p5,p6
  k = 1
  f = EstrazioniArchivioSE
  fpre = InputBox("Estrazione n.",,f)
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  For t1 = 1 To 6
  For t2 = 1 To 6
  punteggio(t1,t2) = 0
  Next
  Next
 
  '''loop dell'archivio estrazioni superenalotto
  For b = 1 To f
     Fine = fpre - 1
     Messaggio(fpre & " / " & Fine)
     fin1 = Fine - 89
     CICLOAMBIVERGINI = 380
     Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""
     ReDim aNum(90),stella(90),an(90),en(1)
     For k = 1 To Fine
        ''' calcola RitardoCombinazione
        For n = 1 To 90
           aNum(n) = aNum(n) + 1
           stella(n) = stella(n) + 1
        Next
        aNum(EstrattoSE(k,1)) = 0
        aNum(EstrattoSE(k,2)) = 0
        aNum(EstrattoSE(k,3)) = 0
        aNum(EstrattoSE(k,4)) = 0
        aNum(EstrattoSE(k,5)) = 0
        aNum(EstrattoSE(k,6)) = 0
        stella(EstrattoSE(k,8)) = 0
        '''''''''''''''''
        If k >= fin1 Then
           fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
           fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
           fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
           fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
           fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
           fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
        End If
        '''''''''''''''''
     Next
     ''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
     For x = 0 To 200
        riga = ""
        ReDim nun(6)
        For y = 1 To 90
           If x = aNum(y) Then
              riga = riga & Format2(y) & " "
              ctnpr = ctnpr + 1
              po = PosizioneSE(Fine - x,y)
              nun(po) = Format2(y)
           End If
        Next
        If x < 10 Then
           rit = "00" & x
        End If
        If x > 9 And x < 100 Then
           rit = "0" & x
        End If
        If x > 99 Then
           rit = x
        End If
        ReDim Orig(8)
        Orig(1) = Format2(EstrattoSE(Fine - x,1))
        Orig(2) = Format2(EstrattoSE(Fine - x,2))
        Orig(3) = Format2(EstrattoSE(Fine - x,3))
        Orig(4) = Format2(EstrattoSE(Fine - x,4))
        Orig(5) = Format2(EstrattoSE(Fine - x,5))
        Orig(6) = Format2(EstrattoSE(Fine - x,6))
        Orig(8) = Format2(EstrattoSE(Fine - x,8))
        Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
        riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
        '   '''elenco ritardi
        '   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
        '   xqt = UBound(aRetRitardi)
        '   xq = xqt - 11 : rita = ""
        '   For xq = xq + 1 To xqt - 1
        '      rita = rita & Format2(aRetRitardi(xq)) & "."
        '   Next
        teo =((14/15)^rit)*6
        teo90 =((14/15)^rit)*90
        trenta = ""
        For y = 1 To 90
           If Int(aNum(y)) >= 31 Then
              trenta = trenta & Format2(y) & "."
           End If
        Next
        If riga <> "" Then
           '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
           Linea = ""
           For w1 = 1 To 6
              vv = 0
              For w2 = 1 To 6
                 If nun(w2) = Orig(w1) Then
                    Linea = Linea & Orig(w1) & " "
                    If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
                    If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
                    If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
                    If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
                    If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
                    If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
                    vv = 1
                 End If
              Next
              If vv <> 1 Then Linea = Linea & "-- "
           Next
           ''''accumula estratti usciti verticali nelle 6 posizioni
           rigav(1,Orig(1)) = Orig(1)
           rigav(2,Orig(2)) = Orig(2)
           rigav(3,Orig(3)) = Orig(3)
           rigav(4,Orig(4)) = Orig(4)
           rigav(5,Orig(5)) = Orig(5)
           rigav(6,Orig(6)) = Orig(6)
           ''''
           If(90 - ctnpr) >= teo90 Then
              ReDim av(20),av5(90)
              Call SplitByChar(riga1," ",av)
              last = UBound(av)
              For t = 0 To last - 1
                 If av(t) <> "" Then
                    av5(t + 1) = av(t)
                    q = q + 1
                    an(q) = av(t)
                 End If
              Next
              filtro = filtro & StringaNumeri(av5,".") & "."
           End If
        End If
     Next
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
     Inizio = ""
     ReDim nr(6)
     For a = 1 To 6
        Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
        nr(a) = Format2(EstrattoSE(fpre,a))
     Next
     Scrivi fpre & " " & DataEstrazioneSE(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
     fpre = fpre - 1
     ''''''''''''''''''''''''''1 colonna
     ReDim av1(50)
     Call SplitByChar(Vert1,".",av1)
     last = UBound(av1) - 1
     punti1 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti1 = punti1 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti1 = punti1 + 1
     Next
     punteggio(1,punti1) = punteggio(1,punti1) + 1
     '''''''''''''''''''''''''2 colonna
     ReDim av1(50)
     Call SplitByChar(Vert2,".",av1)
     last = UBound(av1) - 1
     punti2 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti2 = punti2 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti2 = punti2 + 1
     Next
     punteggio(2,punti2) = punteggio(2,punti2) + 1
     '''''''''''''''''''''''3 colonna
     ReDim av1(50)
     Call SplitByChar(Vert3,".",av1)
     last = UBound(av1) - 1
     punti3 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti3 = punti3 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti3 = punti3 + 1
     Next
     punteggio(3,punti3) = punteggio(3,punti3) + 1
     ''''''''''''''''''''''''''4 colonna
     ReDim av1(50)
     Call SplitByChar(Vert4,".",av1)
     last = UBound(av1) - 1
     punti4 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti4 = punti4 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti4 = punti4 + 1
     Next
     punteggio(4,punti4) = punteggio(4,punti4) + 1
     ''''''''''''''''''''''''''5 colonna
     ReDim av1(50)
     Call SplitByChar(Vert5,".",av1)
     last = UBound(av1) - 1
     punti5 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti5 = punti5 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti5 = punti5 + 1
     Next
     punteggio(5,punti5) = punteggio(5,punti5) + 1
     ''''''''''''''''''''''''6 colonna
     ReDim av1(50)
     Call SplitByChar(Vert6,".",av1)
     last = UBound(av1) - 1
     punti6 = 0
     For h = 0 To last
        If Int(nr(1)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(2)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(3)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(4)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(5)) = Int(av1(h)) Then punti6 = punti6 + 1
        If Int(nr(6)) = Int(av1(h)) Then punti6 = punti6 + 1
     Next
     punteggio(6,punti6) = punteggio(6,punti6) + 1
     '''''''''''''''''''''''
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
     Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
     Scrivi Fine & " Punti   " & punti1 & "  Vert.1  :  " & Vert1,1
     Scrivi Fine & " Punti   " & punti2 & "  Vert.2  :  " & Vert2,1
     Scrivi Fine & " Punti   " & punti3 & "  Vert.3  :  " & Vert3,1
     Scrivi Fine & " Punti   " & punti4 & "  Vert.4  :  " & Vert4,1
     Scrivi Fine & " Punti   " & punti5 & "  Vert.5  :  " & Vert5,1
     Scrivi Fine & " Punti   " & punti6 & "  Vert.6  :  " & Vert6,1
     Scrivi "-------------------------------------------------------------------------------------"
     Scrivi
     If fpre = 50 Then Exit For
  Next
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '''riepilogo percentuali punteggi delle 6 colonne verticale
  Scrivi "Totale Estrazioni esaminate  " & f,1,2,4
  Scrivi "Riepilogo Percentuali punteggi delle 6 colonne verticali",1
  Scrivi "Col.Vert.  -01-   -02-   -03-   -04-   -05-   -06-"
  For i2 = 2 To 6
  Scrivi i2 & ")  Punti  " & FormattaStringa(punteggio(1,i2),"0000") & "   " & FormattaStringa(punteggio(2,i2),"0000") & "   " & FormattaStringa(punteggio(3,i2),"0000") & "   " & FormattaStringa(punteggio(4,i2),"0000") & "   " & FormattaStringa(punteggio(5,i2),"0000") & "   " & FormattaStringa(punteggio(6,i2),"0000")
  Next
  Scrivi
  Scrivi "Col.Vert.  - % -   - % -   - % -   - % -   - % -   - % -"

  For i2 = 2 To 6
  p1 = Round(punteggio(1,i2) / f,2)
  p2 = Round(punteggio(2,i2) / f,2)
  p3 = Round(punteggio(3,i2) / f,2)
  p4 = Round(punteggio(4,i2) / f,2)
  p5 = Round(punteggio(5,i2) / f,2)
  p6 = Round(punteggio(6,i2) / f,2)  
  Scrivi i2 & ")  Punti   " & Round(p1,2) & "    " & Round(p2,2) & "    " & Round(p3,2) & "    " & Round(p4,2) & "    " & Round(p5,2) & "    " & Round(p6,2)
  Next



End Sub

Ti chiedo, e me ne scuso, se è possibile avere dal programma un listato dei punteggi ottenuti, al momento ho i primi 100 a partire dall'ultima estrazione di sabato
0 2 1 3 0 0
1 0 1 1 2 1
0 3 0 1 2 0
0 3 1 1 1 0
1 1 1 2 0 1
1 1 1 1 0 2
1 1 0 1 2 1
1 0 1 2 1 1
2 2 1 0 1 0
0 0 0 1 2 3
0 0 2 2 2 0
0 1 1 1 1 2
1 1 1 1 1 1
2 1 1 0 2 0
1 1 1 1 0 2
0 2 0 2 1 1
1 2 1 0 1 1
1 1 1 1 2 0
3 1 1 0 1 0
1 0 1 1 2 1
0 2 0 2 0 2
2 0 0 2 1 1
1 2 1 1 0 1
1 0 2 2 0 1
1 1 1 1 1 1
0 2 3 0 0 1
2 0 2 1 1 0
1 0 1 1 2 1
2 1 0 0 1 2
3 2 0 0 0 1
1 0 0 1 3 1
0 1 1 2 0 2
1 2 1 2 0 0
1 1 2 0 1 1
1 1 0 1 2 1
0 1 3 0 0 2
2 1 1 1 0 1
2 1 1 1 0 1
2 0 2 0 0 2
1 1 1 0 2 1
1 1 2 0 2 0
0 1 0 1 3 1
1 1 2 2 0 0
0 3 1 1 0 1
1 0 2 0 2 1
1 0 0 1 1 3
1 0 1 2 0 2
0 1 2 1 2 0
1 1 0 3 0 1
1 1 3 0 1 0
1 0 3 1 0 1
0 1 0 1 3 1
0 2 2 1 1 0
2 1 0 1 1 1
1 2 1 0 1 1
1 1 1 2 0 1
0 1 0 0 1 4
0 1 1 0 2 2
3 1 0 0 1 1
1 1 1 2 0 1
1 0 1 2 1 1
0 2 1 1 2 0
0 2 0 0 2 2
1 2 0 1 1 1
1 1 0 1 1 2
1 1 2 1 1 0
2 2 0 0 1 1
1 3 1 1 0 0
1 0 0 2 1 2
2 1 1 0 1 1
1 2 2 0 1 0
0 1 1 1 1 2
3 0 1 1 1 0
0 1 0 2 2 1
2 1 1 0 0 2
2 1 0 1 2 0
1 1 0 2 1 1
1 1 1 1 0 2
1 2 1 0 2 0
0 0 1 3 2 0
1 1 0 0 1 3
0 0 0 3 2 1
2 0 1 1 1 1
2 0 3 1 0 0
2 2 0 0 1 1
0 1 1 0 2 2
1 1 0 1 1 2
0 2 2 1 0 1
2 1 1 1 1 0
1 1 0 2 2 0
0 0 2 2 1 1
0 1 0 0 2 3
2 0 2 1 0 1
2 2 0 1 1 0
0 2 2 0 2 0
2 0 2 0 2 0
0 1 2 2 1 0
2 0 2 0 1 1
0 1 2 1 1 1
1 1 0 2 1 1
view post Posted: 20/2/2024, 09:45     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
Io invece sto ricopiando a manina tutte le stringhe...ci vorrà un bel po

PS nessuna news invece per le estrazioni 2009-2014?
view post Posted: 19/2/2024, 18:27     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
CITAZIONE (Beppignello @ 19/2/2024, 09:59) 
questo script calcola i punti realizzati dall'ultima sestina estratta rispetto alla sisposizione nel tabellone estrazione precedente

per ognuna delle 6 colonne verticali
name = TabelloneNuovoSe-3SinteticoPuntiColonne

CODICE
Option Explicit
Sub Main
Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu
Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b,punti1,punti2,punti3,punti4,punti5,punti6,h
Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90)
k = 1
f = EstrazioniArchivioSE
fpre = InputBox("Estrazione n.",,f)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''loop dell'archivio estrazioni superenalotto
For b = 1 To f

If b = 50 Then Exit Sub

Fine = fpre - 1
Messaggio(fpre & " / " & Fine)
fin1 = Fine - 89
CICLOAMBIVERGINI = 380
Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""

ReDim aNum(90),stella(90),an(90),en(1)
For k = 1 To Fine
   ''' calcola RitardoCombinazione
   For n = 1 To 90
      aNum(n) = aNum(n) + 1
      stella(n) = stella(n) + 1
   Next
   aNum(EstrattoSE(k,1)) = 0
   aNum(EstrattoSE(k,2)) = 0
   aNum(EstrattoSE(k,3)) = 0
   aNum(EstrattoSE(k,4)) = 0
   aNum(EstrattoSE(k,5)) = 0
   aNum(EstrattoSE(k,6)) = 0
   stella(EstrattoSE(k,8)) = 0
   '''''''''''''''''
   If k >= fin1 Then
      fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
      fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
      fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
      fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
      fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
      fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
   End If
   '''''''''''''''''
Next
''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
For x = 0 To 200
   riga = ""
    ReDim nun(6)
   For y = 1 To 90
      If x = aNum(y) Then
         riga = riga & Format2(y) & " "
         ctnpr = ctnpr + 1
       po = PosizioneSE(Fine - x,y)
       nun(po) = Format2(y)
      End If
   Next
   If x < 10 Then
      rit = "00" & x
   End If
   If x > 9 And x < 100 Then
      rit = "0" & x
   End If
   If x > 99 Then
      rit = x
   End If
   ReDim Orig(8)
   Orig(1) = Format2(EstrattoSE(Fine - x,1))
   Orig(2) = Format2(EstrattoSE(Fine - x,2))
   Orig(3) = Format2(EstrattoSE(Fine - x,3))
   Orig(4) = Format2(EstrattoSE(Fine - x,4))
   Orig(5) = Format2(EstrattoSE(Fine - x,5))
   Orig(6) = Format2(EstrattoSE(Fine - x,6))
   Orig(8) = Format2(EstrattoSE(Fine - x,8))
   Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
   riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
   '''elenco ritardi
   Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
   xqt = UBound(aRetRitardi)
   xq = xqt - 11 : rita = ""
   For xq = xq + 1 To xqt - 1
      rita = rita & Format2(aRetRitardi(xq)) & "."
   Next
   teo =((14/15)^rit)*6
   teo90 =((14/15)^rit)*90
   trenta = ""
   For y = 1 To 90
      If Int(aNum(y)) >= 31 Then
         trenta = trenta & Format2(y) & "."
      End If
   Next
   If riga <> "" Then
 
   '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale
   Linea = ""
 
   For w1 = 1 To 6
   vv = 0
   For w2 = 1 To 6
   If nun(w2) = Orig(w1) Then
   Linea = Linea & Orig(w1) & " "
   If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "."
   If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "."
   If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "."
   If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "."
   If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "."
   If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "."
   vv = 1
   End If
   Next
    If vv <> 1 Then Linea = Linea & "-- "
   Next
       
      ''''accumula estratti usciti verticali nelle 6 posizioni
      rigav(1,Orig(1)) = Orig(1)
      rigav(2,Orig(2)) = Orig(2)
      rigav(3,Orig(3)) = Orig(3)
      rigav(4,Orig(4)) = Orig(4)
      rigav(5,Orig(5)) = Orig(5)
      rigav(6,Orig(6)) = Orig(6)
      ''''
      If(90 - ctnpr) >= teo90 Then
         ReDim av(20),av5(90)
         Call SplitByChar(riga1," ",av)
         last = UBound(av)
         For t = 0 To last - 1
            If av(t) <> "" Then
               av5(t + 1) = av(t)
               q = q + 1
               an(q) = av(t)
            End If
         Next
         filtro = filtro & StringaNumeri(av5,".") & "."
      End If
   End If
Next

Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4
Inizio = ""
ReDim nr(6)
For a = 1 To 6
Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " "
nr(a) = Format2(EstrattoSE(fpre,a))
Next
Scrivi fpre & " " & DataEstrazione(fpre) & "  Sestina Estratta  " & Inizio,1,2,4
fpre = fpre - 1
''''''''''''''''''''''''''1 colonna
         ReDim av1(50)
         Call SplitByChar(Vert1,".",av1)
         last = UBound(av1)-1
         punti1 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti1 = punti1 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti1 = punti1 + 1
         Next
'''''''''''''''''''''''''2 colonna
         ReDim av1(50)
         Call SplitByChar(Vert2,".",av1)
         last = UBound(av1)-1
         punti2 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti2 = punti2 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti2 = punti2 + 1
         Next
'''''''''''''''''''''''3 colonna
         ReDim av1(50)
         Call SplitByChar(Vert3,".",av1)
         last = UBound(av1)-1
         punti3 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti3 = punti3 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti3 = punti3 + 1
         Next
''''''''''''''''''''''''''4 colonna
         ReDim av1(50)
         Call SplitByChar(Vert4,".",av1)
         last = UBound(av1)-1
         punti4 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti4 = punti4 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti4 = punti4 + 1
         Next
''''''''''''''''''''''''''5 colonna
         ReDim av1(50)
         Call SplitByChar(Vert5,".",av1)
         last = UBound(av1)-1
         punti5 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti5 = punti5 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti5 = punti5 + 1
         Next
''''''''''''''''''''''''6 colonna
         ReDim av1(50)
         Call SplitByChar(Vert6,".",av1)
         last = UBound(av1)-1
         punti6 = 0
         For h = 0 To last      
         If Int(nr(1)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(2)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(3)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(4)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(5)) = Int(av1(h)) Then punti6 = punti6 + 1
         If Int(nr(6)) = Int(av1(h)) Then punti6 = punti6 + 1
         Next
'''''''''''''''''''''''

Scrivi "-------------------------------------------------------------------------------------"
Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2
Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1
Scrivi Fine & " Punti   " & punti1 & "  Vert.1  :  " & Vert1,1
Scrivi Fine & " Punti   " & punti2 & "  Vert.2  :  " & Vert2,1
Scrivi Fine & " Punti   " & punti3 & "  Vert.3  :  " & Vert3,1
Scrivi Fine & " Punti   " & punti4 & "  Vert.4  :  " & Vert4,1
Scrivi Fine & " Punti   " & punti5 & "  Vert.5  :  " & Vert5,1
Scrivi Fine & " Punti   " & punti6 & "  Vert.6  :  " & Vert6,1
Scrivi "-------------------------------------------------------------------------------------"
Scrivi

Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End Sub

Ho finito i pollici.
LAVORO MONUMENTALE

Grazie mille!!!!
view post Posted: 19/2/2024, 10:41     Estrazioni in ordine di sortita al Superenalotto - SUPERENALOTTO & WinForLife
:o: :woot:
stasera ci sarà da fare!

EDIT:
Posso chiedere se qualcuno ha idea di quanti numeri al massimo ci sono stati nelle colonne vincenti che chiudono il ciclo?
view post Posted: 18/2/2024, 12:49     salve forum - LOTTO
Stasera controllo il risultato. Però preciso che la serie che avevo postato io era relativa alla serie progressiva e non quella in ordine di estrazione
view post Posted: 17/2/2024, 12:07     salve forum - LOTTO
Ciao Beppe e grazie per l'impegno e la dedizione nell'ascoltare questi matti!
Per quante estrazioni? Deve confrontare l'estrazione con il tabellone analitico dell'estrazione precedente, quindi ragionerei pensando a quanto ritardo potrebbe avere un numero..150 estrazioni per cautelarsi o più?
Poi non mi tornano i risultati, il confronto come detto avviene con la situazione del tabellone analitico esistente perciò formatosi con l'estrazione immediatamente precedente. Ti allego i due tabelloni che considererei per le estrazioni che hai considerato e in cui ho evidenziato la sestina emersa
view post Posted: 16/2/2024, 18:04     salve forum - LOTTO
Mi pare non esiste nulla nemmeno a pagamento che lavori com reale vero?
view post Posted: 16/2/2024, 15:43     salve forum - LOTTO
Resta il fatto che comunque è rimasto un buco dal 2009 al 2014 nell'archivio Venus :P
view post Posted: 16/2/2024, 15:26     salve forum - LOTTO
CITAZIONE (Beppignello @ 16/2/2024, 15:14) 
ALTRA domanda:

Immagine%202024-02-16%20142334-17080926573011

il tre evidenziato in giallo in terza posizione
è il risultato derivante dall'ultima sestina, esaminando la terza posizione verticale , cioè le presenze
tre numeri dell'ultima sestina erano appartenenti alla terza posizione verticale.

ma il range per esaminare e ricavare questo dato da ... a qual'è?

L'ultimo stato del Tabellone precedente l'estrazione
94 replies since 8/11/2022
Filter forums
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity