Novità

Metodo fortissimo x ambata

solare

Advanced Member >PLATINUM<
Rubino, allora la procedura che deve fare il listato è questa: guarda il 1 estratto della decina (BA) del 2/5/19 risulta essere 87. Quindi la decina da considerare è la 80----89.
adesso elenco tutti i nr della decina compreso quelli sortiti assieme all'84.
84-89-89-88-80-88-85-80-84-87. adesso filtro escludendo i doppioni, quindi: 84-89-88-80-85-87
Gli ultimi numeri utili per la giocata sono 87-85-80.
Attuando questa mia procedura ricavo la stessa previsione data dall'autore del metodo.
 
R

Rubino

Guest
ciao solare

guarda o io ho le estrazioni sbagliate in archivio oppure c'è qualcosa che non va.

io a bari ho

CatturaBA.GIF
come vedi il primo estratto è 84 e non 87 come dici tu il 2/5/2019

questa è l'estrazioni del sito lottoced sempre del 2/5/2019

che conferma i miei numeri del mio archivio

Catturay.GIF

come dobbiamo fare, controllando anche sotto i dati dello script e quelli realmente usciti mi sembra che sono esatti ?


lo script rintraccia questi estratti dell'ottantina.

Catturaz.GIF

Catturaw.GIF
 
Ultima modifica di un moderatore:
R

Rubino

Guest
ho ricontrollato facendo le prove a mano è esatta la previsione di bari 80-85-87



se questa è la previsione esatta deduco

85 e 87 usciti 1 volta sola
80 è uscito 2 volte, ma diciamo che è tra gli ultimi usciti.


ho capito, la funzione eliminaripetuti di spaziometria lavora in questo modo

con ripetuti...84.89.89.88.80.88.85.80.84.87 Senza ripetuti...80.84.85.87.88.89

elimina i ripetuti ma ordina automaticamente i numeri dal più basso al più alto.
 
Ultima modifica di un moderatore:

solare

Advanced Member >PLATINUM<
A me sembra che lo script non considera i numeri sortiti nell'estrazione del 2 maggio e cioè l'84 e 89 infatti non mi sembra siano elencati in blu
 

solare

Advanced Member >PLATINUM<
resta il fatto che la previsione data dal listato in merito all'esempio fatto dall'autore del metodo sia differente.
 

solare

Advanced Member >PLATINUM<
oltretutto vedo che tanti hanno visualizzato ma nessuno interviene per cercare di condividere il completamento esatto di questo metodo.
Magari l'opinione di tanti porta ad una soluzione esatta.
Speriamo
 
R

Rubino

Guest
mettiamo a fuoco bene questi passaggi, quelli degli ultimi 3 mesi

Cattura.GIF

dove parto?

da dx verso sinistra, cioè dagli ultimi estratti usciti del mese a retrocedere oppure in quale altro modo?

mi fermo solo ai numeri usciti 1 volta sola?

solo ricavando per forza tre numeri e quando sono solo 2 , cosa devo fare ?
 
R

Rubino

Guest
in attesa di disposizioni precise

Codice:
Option Explicit
Sub Main()
   Dim n,ru,p,est,d,es,i,f,j,retestratti,retidestr,XI,k,mm,aretritardi,aretidestr,nc,qe,mmaapp,Aanno,cusc,mmu,ne,sel,jh
   Dim ar(1),colpo(14)
   ru = InputBox("Ruota di gioco",,1)
   Scrivi "_____________________________________________________________________________"
   Scrivi "Ruota di " & NomeRuota(ru),1
   Scrivi "Ultima estrazione " & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   Scrivi "_____________________________________________________________________________"
   ar(1) = ru
   '''
   For n = 8945 To EstrazioneFin
      es = n
      If IndiceMensile(n) = 1 Then
         mm = Mid(DataEstrazione(es),4,2)
         ReDim ambate(20,2),an(25)
         f = 0
         est = ""
         For p = 1 To 5
            est = est & Format2(Estratto(n,ru,p)) & "."
         Next
         d = DecinaCabalistica(Format2(Estratto(n,ru,1)))
         Scrivi "---------------------------------------------------------------------------------------------",1
         Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & "..Dec.Cab. da  " & d - 1 & "0" & " : " & d - 1 & "9",1
         ColoreTesto(0)
         ReDim nr(25),ambate(90)
         For es = n To n + 13
            mmu = Mid(DataEstrazione(es),4,2)
            If mmu <> mm Then Exit For
            If es > EstrazioneFin Then Exit For
            For i = 1 To 5
               If DecinaCabalistica(Estratto(es,ru,i)) = Int(d) Then
                  '''        Scrivi "Ambate Uscite nel mese stessa decina....." & es & "/" & DataEstrazione(es) & " ...Dec..." & Estratto(es,ru,i)
                  ne = Estratto(es,ru,i)
                  ambate(ne) = ambate(ne) + 1
                  f = f + 1
                  nr(f) = ne
               End If
            Next
         Next
         If f >= 2 Then
            Scrivi "con ripetuti..." & StringaNumeri(nr,".")
            sel = "" : j = 0
            For jh = 1 To 90
               If Int(ambate(jh)) = 1 Then
                  Scrivi "Estratto uscito 1 volta.." & Format2(jh)
                  sel = sel & Format2(jh) & "."
                  j = j + 1
                  an(j) = Format2(jh)
               End If
            Next
            ColoreTesto(2)
            Scrivi "---> Ambate per gioco prossimo mese.." & MeseNome(mm + 1) & " ..." & sel
            '''verifica esito
            ColoreTesto(1)
            Call VerificaEsitoTurbo(an,ar,n + 13,1,13,,,,retestratti,retidestr)
            If retestratti <> "" Then
               Scrivi "----> Uscito estratto..." & retestratti & "  al conc." & retidestr & " / " & DataEstrazione(retidestr) & "... colpo n." & retidestr -(n + 12)
               XI = 1
               colpo(retidestr -(n + 12)) = colpo(retidestr -(n + 12)) + 1
            Else
               If Mese(n) = Month(Date) And Anno(n) = Year(Date) Then
                  Scrivi " In creazione combinazione per New Mese ",1
               Else
                  If n > EstrazioneFin Then
                     Scrivi " Esito NEGATIVo nei 13 n.colpi ",1
                     colpo(14) = colpo(14) + 1
                     Exit For
                  End If
                  colpo(14) = colpo(14) + 1
                  Scrivi "Attualmente NEGATIVO da 13 n.colpi ",1
               End If
               ColoreTesto(0)
            End If
         End If
      End If
   Next
   ''''' riepilogo successi per ncolpo
   Scrivi
   ColoreTesto(2)
   Scrivi "Ruota di " & NomeRuota(ru),1
   Scrivi "Periodo da estraz.n.8946 " & DataEstrazione(8946) & " a  " & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   ColoreTesto(0)
   Scrivi "Riepilogo successi per n.colpo di gioco",1
   For k = 1 To 13
      Scrivi "Colpo n." & Format2(k) & "...Successi..." & colpo(k),1
   Next
   Scrivi "----------   Negativi..." & colpo(14),1
   Scrivi
   Scrivi "--------------------------d a   co m p l e t a r e-----------------",1
   Call EliminaRipetuti(an)
   ReDim atitoli2(4),avalori2(4)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " Estratti "
   atitoli2(2) = " Ruota "
   atitoli2(3) = " In gioco "
   atitoli2(4) = " UsciteAnniPrec."
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,2,"center",1.7,5,"Cambria")
   avalori2(1) = StringaNumeri(an,".")
   avalori2(2) = SiglaRuota(ru)
   avalori2(3) = MeseNome(mm + 1)
   '''ricerca uscite estratti stesso mese nei 3 anni precedenti
   Call ElencoRitardiTurbo(an,ar,1,EstrazioneFin -(156*4),EstrazioneFin - 120,aretritardi,aretidestr)
   nc = UBound(aretritardi)
   Scrivi "Periodo:" & EstrazioneFin -(156*4) & " :  " & EstrazioneFin
   For qe = 1 To nc
      mmaapp = Mid(DataEstrazione(aretidestr(qe)),4,2)
      Aanno = Mid(DataEstrazione(aretidestr(qe)),7,4)
      If Int(mm) = Int(mmaapp) + 1 Then
         cusc = cusc + 1
         Scrivi "Estratti In gioco " & StringaNumeri(an,".") & "    " & Int(mm) & "...anno..." & Aanno & "......" & Int(mmaapp) + 1 & " Uscite..." & cusc,1
      End If
   Next
   avalori2(4) = cusc
   Call AddRigaTabella(avalori2,Bianco_,"center",1)
   Call CreaTabella
End Sub
 
Ultima modifica di un moderatore:

solare

Advanced Member >PLATINUM<
I numeri vanno elencati tutti compresi quelli o quello sortito alla prima del mese.
non vanno trascritti quelli sortiti più di una volta nel mese
alla fine vanno selezionati gli ultimi 3.
nel caso ci siano solo due numeri saranno quelli da mettere in gioco.
 

solare

Advanced Member >PLATINUM<
Secondo me con il listato devi prima elencare tutti gli estratti compresi sia quelli sortiti alla prima del mese che i duplicati
poi elencare partendo da sx verso dx senza trascrivere i duplicati da questi ultimi 3 sono le ambate da giocare.
 
R

Rubino

Guest
nell'ultimo postato sono scritti qui.

nella voce con ripetuti

Cattura.GIF
 
Ultima modifica di un moderatore:

solare

Advanced Member >PLATINUM<
Io penso che la prova del 9 sia confrontare le previsioni tra il tuo listato e la previsione che da sulla ruota di bari nel metodo proposto
 

solare

Advanced Member >PLATINUM<
Rianalizzando il tuo delle 12.25 sono giusti. Questi vanno filtrati in questa maniera da sx verso dx 84-89-88-80-85-87 otteniamo cosi la terzina 87-85-80 questa volta da dx verso sx.
 
R

Rubino

Guest
ciao solare

provalo e fammi sapere


nb: a volte può capitare che ci sono solo 2 numeri o 1
cosa si deve fare?

esempio per questo mese a Palermo ci sono solo 25.28 (due numeri)





Codice:
Option Explicit
Sub Main()
   Dim n,ru,p,est,d,es,i,f,j,retestratti,retidestr,XI,k,mm,aretritardi,aretidestr,nc,qe,mmaapp,Aanno,cusc,mmu,ne,sel,jh,conta,c,jk,kk
   Dim ar(1),colpo(14)
   ru = InputBox("Ruota di gioco",,1)
   Scrivi "_____________________________________________________________________________"
   Scrivi "Ruota di " & NomeRuota(ru),1
   Scrivi "Ultima estrazione " & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   Scrivi "_____________________________________________________________________________"
   ar(1) = ru
   '''
   For n = 8945 To EstrazioneFin
      es = n
      If IndiceMensile(n) = 1 Then
         conta = conta + 1
         mm = Mid(DataEstrazione(es),4,2)
         ReDim ambate(20,2),an(25)
         f = 0
         est = ""
         For p = 1 To 5
            est = est & Format2(Estratto(n,ru,p)) & "."
         Next
         d = DecinaCabalistica(Format2(Estratto(n,ru,1)))
         Scrivi "---------------------------------------------------------------------------------------------",1
         Scrivi n & " / " & DataEstrazione(n) & "...." & SiglaRuota(ru) & "..." & est & ".1 Estratto.Dec.Cab. da  " & d - 1 & "0" & " : " & d - 1 & "9",1
         ColoreTesto(0)
         ReDim nr(25),ambate(90)
         For es = n To n + 13
            mmu = Mid(DataEstrazione(es),4,2)
            If mmu <> mm Then Exit For
            If es > EstrazioneFin Then Exit For
            For i = 1 To 5
               If DecinaCabalistica(Estratto(es,ru,i)) = Int(d) Then
                  ne = Estratto(es,ru,i)
                  ambate(ne) = ambate(ne) + 1
                  f = f + 1
                  nr(f) = ne
               End If
            Next
         Next
         If f >= 2 Then
            Scrivi "con ripetuti..." & StringaNumeri(nr,".")
            sel = "" : j = 0:c = 1
            ReDim ab(25),bc(3)
            For jh = 1 To f
               '''controllo se già esiste
               For kk = 1 To c
                  If nr(jh) = ab(kk) Then
                     Exit For
                  End If
               Next
               '''aggiunge se nuovo
               If Int(ab(kk)) = 0 And Int(nr(jh)) <> Int(ab(kk)) Then
                  c = c + 1
                  ab(c) = nr(jh)
               End If
            Next

            ''prepara combinazione per nuovo mese con ultimi 3 non ripetuti da dx verso sx
            bc(1) = ab(c)
            bc(2) = ab(c - 1)
            bc(3) = ab(c - 2)
            an(1) = bc(1)
            an(2) = bc(2)
            an(3) = bc(3)
            '''carico numeri per prossimo mese arrays (an)
            sel = Format2(an(1)) & "." & Format2(an(2)) & "." & Format2(an(3))
            ''''''
            Scrivi "Senza Ripetuti " & StringaNumeri(ab,".") & "      Tot.Qt numeri.." & c - 1
            ColoreTesto(2)
            Scrivi "---> Ambate per gioco prossimo mese.." & MeseNome(mm + 1) & " ..." & sel,1
            '''verifica esito nel mese in corso
            ColoreTesto(1)
            Call VerificaEsitoTurbo(an,ar,n + 13,1,13,,,,retestratti,retidestr)
            If retestratti <> "" Then
               Scrivi "----> Uscito estratto..." & retestratti & "  al conc." & retidestr & " / " & DataEstrazione(retidestr) & "... colpo n." & retidestr -(n + 12)
               XI = 1
               colpo(retidestr -(n + 12)) = colpo(retidestr -(n + 12)) + 1
            Else
               If Mese(n) = Month(Date) And Anno(n) = Year(Date) Then
                  Scrivi " In creazione combinazione per New Mese ",1
               Else
                  If n > EstrazioneFin Then
                     Scrivi " Esito NEGATIVO  ",1
                     colpo(14) = colpo(14) + 1
                     Exit For
                  End If
                  colpo(14) = colpo(14) + 1
                  Scrivi "Attualmente NEGATIVO ",1
               End If
               ColoreTesto(0)
            End If
         End If
      End If
   Next
   ''''' riepilogo successi per ncolpo
   Scrivi
   ColoreTesto(2)
   Scrivi "Ruota di " & NomeRuota(ru),1
   Scrivi "Periodo da estraz.n.8946 " & DataEstrazione(8946) & " a  " & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   ColoreTesto(0)
   Scrivi "Riepilogo successi per n.colpo di gioco",1
   For k = 1 To 13
      Scrivi "Colpo n." & Format2(k) & "...Successi..." & colpo(k),1
   Next
   Scrivi "----------   Negativi..." & colpo(14),1
   Scrivi "Combinazioni Totali rintracciate.." & conta,1
   Scrivi
   ColoreTesto(1)
   Scrivi "------Situazione Ciclica Mensile Ultimi Anni -------",1
   Scrivi "Elenca ultime uscite nel Mese degli ultimi anni",1
   ColoreTesto(0)
   ReDim atitoli2(4),avalori2(4)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " Estratti "
   atitoli2(2) = " Ruota "
   atitoli2(3) = " In gioco "
   atitoli2(4) = " UsciteAnniPrec."
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,2,"center",1.7,5,"Cambria")
   avalori2(1) = StringaNumeri(an,".")
   avalori2(2) = SiglaRuota(ru)
   avalori2(3) = MeseNome(mm + 1)
   '''ricerca uscite estratti stesso mese nei 3 anni precedenti
   Call ElencoRitardiTurbo(an,ar,1,EstrazioneFin -(156*4),EstrazioneFin - 50,aretritardi,aretidestr)
   nc = UBound(aretritardi)
   Scrivi "Periodo:" & EstrazioneFin -(156*4) & " :  " & EstrazioneFin
   For qe = 1 To nc
      mmaapp = Mid(DataEstrazione(aretidestr(qe)),4,2)
      Aanno = Mid(DataEstrazione(aretidestr(qe)),7,4)
      If Int(mm+1) = int(mmaapp) Then
         cusc = cusc + 1
         Scrivi "Estratti In gioco " & StringaNumeri(an,".") & "  Mese.." & Int(mm+1) & "...anno..." & Aanno &  " Uscite..." & cusc,1
      End If
   Next
   avalori2(4) = cusc
   Call AddRigaTabella(avalori2,Bianco_,"center",1)
   Call CreaTabella
End Sub
 
Ultima modifica di un moderatore:

solare

Advanced Member >PLATINUM<
sembra che ci siamo quasi. in data 30/5/19 sulla ruota di genova è sortito l'80 che il listato non considera
 

solare

Advanced Member >PLATINUM<
Ottimo ho controllato tutte le ruote.
Ottimo risultato a parte genova che non considera l'80 sortito il 30/5
 
R

Rubino

Guest
essendo impostato con la decina cabalistica, il nr.80 rientra nella decina 80,81,82,83,84,85,86,87,88,89 e non fa parte della 71:80
 

solare

Advanced Member >PLATINUM<
Scusami, non ti ho risposto alle tue domande.
Quando ci sono 1 o 2 numeri si gioca lo stesso, l'unica accortezza, secondo me, valutare la frequenza degli anni precedenti facilmente visibile grazie al tuo completamento sul listato.
Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto