Metodo fortissimo x ambata

solare · 14 Giugno 2019

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.

Rubino · 14 Giugno 2019

ciao solare

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

io a bari ho

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

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.

Rubino · 14 Giugno 2019

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.

solare · 14 Giugno 2019

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 · 14 Giugno 2019

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

solare · 14 Giugno 2019

secondo me la procedura esatta è quella che ti ho indicato nel mess. delle 9.57

solare · 14 Giugno 2019

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

Rubino · 14 Giugno 2019

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

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 ?

Rubino · 14 Giugno 2019

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

solare · 14 Giugno 2019

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 · 14 Giugno 2019

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.

Rubino · 14 Giugno 2019

nell'ultimo postato sono scritti qui.

nella voce con ripetuti

solare · 14 Giugno 2019

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 · 14 Giugno 2019

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.

Rubino · 14 Giugno 2019

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

solare · 14 Giugno 2019

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

solare · 14 Giugno 2019

Ottimo ho controllato tutte le ruote.
Ottimo risultato a parte genova che non considera l'80 sortito il 30/5

Rubino · 14 Giugno 2019

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 · 14 Giugno 2019

Si hai ragione.
Comunque complimenti per la compilazione dello script.

solare · 14 Giugno 2019

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

Metodo fortissimo x ambata

Advanced Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<