Novità

Da bari a Cagliari via Nazionale

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
R

Roby

Guest
salve a tutti

Ecco un metodo che ricava una doppia ambata sulle ruote di Cagliari e Nazionale.
funziona da quando è stata istituita la ruota nazionale.

lo so, sono 2 ambate su sue ruote, fa storcere un po il naso, ma....

Il metodo non è niente di speciale, ma per le prospettive che può dare diventa interessante.

Si ricava facilmemte la previsione ogni mese senza fare calcoli. (visivo a colpo d'occhio).

si svolge in due estrazioni successive.

Alla prima mese si prende in considerazione il 5°estratto di bari.
si aspetta la seconda mese e si prende in considerazione il 1°estratto di cagliari.

Si prende la decina del 1°estratto di cagliari e si accoppia con la cadenza del 5°estratto di bari.
si forma un nuovo numero, che con il suo vertibile saranno le future Ambate.
Se la decina del numero di cagliari e il numero 9, si farà il contrario con bari formando un numero giocabile,
da cui si ricava sempre il suo vertibile.

in caso raro in cui la cadenza di bari è 9 e la decina di cagliari è 9, penso che non si può giocare.
Fino adesso non è ancora mai capitato in tutte le estrazioni interessate dal metodo.


in basso Vi metto lo script per le vostre deduzioni.


ma prima un po di dati :


Sortite a Cagliari circa 97 volte e sulla Nazionale circa 69 volte.


la particolarità la vedete nei colpi di gioco, (è proprio nei primissimi colpi che sortisce la maggior parte).


Tutti i colpi di gioco del metodo, anche quelli che si considerano negativi.


Al 1°colpo = 38 volte
Al 2°colpo = 24 volte
Al 3 colpo = 23 volte
Al 4°colpo = 18 volte
Al 5°colpo = 13 volte
Al 6°colpo = 10 volte
Al 7°colpo = 12 volte
Al 8°colpo = 8 volte
al 9°colpo = 4 volte
al 10°colpo = 6 volte
al 11°colpo = 1 volta
al 14°colpo = 2 volte
al 16°colpo = 1 volta
al 17°colpo = 1 volta
al 18°colpo = 2 volte
al 20°colpo = 1 volta
al 22°colpo = 1 volta
al 23°colpo = 1 volta
----------------------------------------------------------------------------------------

...esiste una versione ambo, pesante da giocare, ma micidiale! (quando esce l'ambata, inesorabilmente esce almeno un ambo.)
ho scritto almeno perchè i casi multipli d'ambo ce ne sono eccome.



Ps : Ringrazio il mio angelo custode...




ecco lo script, fatelo girare senza modificare nulla.


Codice: 
Option Explicit
Sub Main
   Dim es,Ini,Fin,r1,r2,r3,nRic,Clp,ok
   Dim ruota(12)
   Dim ruote(12)
   Dim posta(10)
   Dim am(2)
   Dim a,b,c,d,f,g,h,i,l,m,co
   posta(1) = 1
   r1 = CInt(InputBox(" Scegli la prima ruota ",,"1"))
   r2 = CInt(InputBox(" Scegli la seconda ruota ",,"2"))
   r3 = CInt(InputBox(" Scegli la terza ruota ",,"12"))
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"2038"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"23"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      If IndiceMensile(es) = 2 Then
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(Ini,Fin,es)
         ruota(1) = r1
         ruote(2) = r2
         ruote(1) = r3
         ok = 0
         a = Estratto(es - 1,r1,5)
         b = Estratto(es,r2,1)
         c = Decina(b)
         d = Cadenza(a)
         f =(c * 10)
         g =(f + d)
         h = Vert(g)
         am(1) = g
         am(2) = h
         ok = 1
         If f = 90 Then
            i =(d * 10)
            l =(i + c)
            m = Vert(l)
            am(1) = l
            am(2) = m
            ok = 1
         End If
         If ok = 1 Then
            co = co + 1
            Scrivi String(70,"-")
            Scrivi DataEstrazione(es - 1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " ] trovato in pos 5" & " [ " & Format2(Estratto(es - 1,r1,5)) & " ]",1,,,1
            Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ] trovato in pos 1" & " [ " & Format2(Estratto(es,r2,1)) & " ]",1,,,1
            ImpostaGiocata 1,am,ruote,posta,Clp,1
            Gioca es
            If ScriptInterrotto Then Exit For
         End If
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" D A  U N  I D E A  D I  C E R B E R U S "),1,3,0
   ScriviResoconto,False
End Sub
 
Ultima modifica:
anche se pesante puoi mettere l'aggiunta per ambo? grazie per le ambate, valido indizio per altri metodi o ambetto
io non so usare gli script, quindi se puoi in chiaro come per le ambate
 
Ultima modifica:
vivo;n2117240 ha scritto:
anche se pesante puoi mettere l'aggiunta per ambo? grazie per le ambate, valido indizio per altri metodi o ambetto
io non so usare gli script, quindi se puoi in chiaro come per le ambate
Clicca per espandere...

sono veramente molti gli ambi, e senza script la vedo durissima spiegarlo.
 
vivo;n2117352 ha scritto:
ok grazie, lascia correre
Clicca per espandere...



Ti metto lo script ambi, niente di speciale, non guardare il resoconto.
lo script andrebbe ottimizzato con un piano di interruzione giocata e di una progressione ad hoc.
come è adesso e ancora, diciamo "non maturo", le interruzioni sono necessarie per l'ottimizzazione.
Ti avevo detto che gli ambi sono molti.
trai le conclusioni che vuoi

ciao


Codice: 
Option Explicit
Sub Main
   Dim es,Ini,Fin,r1,r2,r3,nRic,Clp,ok
   Dim ruota(12)
   Dim ruote(12)
   Dim posta(10)
   Dim poste(10)
   Dim am(2)
   Dim nu1(3)
   Dim nu2(3)
   Dim nu3(3)
   Dim nu4(3)
   Dim nu5(3)
   Dim nu6(3)
   Dim nu7(3)
   Dim nu8(3)
   Dim nu9(3)
   Dim nu10(3)
   Dim nu11(3)
   Dim nu12(3)
   Dim nu13(3)
   Dim nu14(3)
   Dim nu15(3)
   Dim nu16(3)
   Dim nu17(3)
   Dim nu18(3)
   Dim nu19(3)
   Dim nu20(3)
   Dim a,b,c,d,f,g,h,i,l,m,co
   posta(1) = 1
   poste(2) = 1
   r1 = CInt(InputBox(" Scegli la prima ruota ",,"1"))
   r2 = CInt(InputBox(" Scegli la seconda ruota ",,"2"))
   r3 = CInt(InputBox(" Scegli la terza ruota ",,"12"))
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"2038"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"23"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      If IndiceMensile(es) = 2 Then
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(Ini,Fin,es)
         ruota(1) = r1
         ruote(2) = r2
         ruote(1) = r3
         ok = 0
         a = Estratto(es - 1,r1,5)
         b = Estratto(es,r2,1)
         c = Decina(b)
         d = Cadenza(a)
         f =(c * 10)
         g =(f + d)
         h = Vert(g)
         am(1) = g
         am(2) = h
         ok = 1
         If f = 90 Then
            i =(d * 10)
            l =(i + c)
            m = Vert(l)
            am(1) = l
            am(2) = m
            ok = 1
         End If
         ' 15-40-52/19-50-80/07-21-23-57-68-89/02-17-44-51-58-64-72-73.
         If ok = 1 Then
            nu1(1) = am(1)
            nu1(2) = am(2)
            nu1(3) = 15
            '----------------
            nu2(1) = am(1)
            nu2(2) = am(2)
            nu2(3) = 40
            '----------------
            nu3(1) = am(1)
            nu3(2) = am(2)
            nu3(3) = 52
            '----------------
            nu4(1) = am(1)
            nu4(2) = am(2)
            nu4(3) = 19
            '----------------
            nu5(1) = am(1)
            nu5(2) = am(2)
            nu5(3) = 50
            '----------------
            nu6(1) = am(1)
            nu6(2) = am(2)
            nu6(3) = 80
            '----------------
            nu7(1) = am(1)
            nu7(2) = am(2)
            nu7(3) = 7
            '----------------
            nu8(1) = am(1)
            nu8(2) = am(2)
            nu8(3) = 21
            '----------------
            nu9(1) = am(1)
            nu9(2) = am(2)
            nu9(3) = 23
            '----------------
            nu10(1) = am(1)
            nu10(2) = am(2)
            nu10(3) = 57
            '----------------
            nu11(1) = am(1)
            nu11(2) = am(2)
            nu11(3) = 68
            '----------------
            nu12(1) = am(1)
            nu12(2) = am(2)
            nu12(3) = 89
            '----------------
            nu13(1) = am(1)
            nu13(2) = am(2)
            nu13(3) = 2
            '----------------
            nu14(1) = am(1)
            nu14(2) = am(2)
            nu14(3) = 17
            '----------------
            nu15(1) = am(1)
            nu15(2) = am(2)
            nu15(3) = 44
            '----------------
            nu16(1) = am(1)
            nu16(2) = am(2)
            nu16(3) = 51
            '----------------
            nu17(1) = am(1)
            nu17(2) = am(2)
            nu17(3) = 58
            '----------------
            nu18(1) = am(1)
            nu18(2) = am(2)
            nu18(3) = 64
            '----------------
            nu19(1) = am(1)
            nu19(2) = am(2)
            nu19(3) = 72
            '----------------
            nu20(1) = am(1)
            nu20(2) = am(2)
            nu20(3) = 73
            '----------------
            co = co + 1
            Scrivi String(70,"-")
            Scrivi DataEstrazione(es - 1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " ] trovato in pos 5" & " [ " & Format2(Estratto(es - 1,r1,5)) & " ]",1,,,1
            Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ] trovato in pos 1" & " [ " & Format2(Estratto(es,r2,1)) & " ]",1,,,1
            ImpostaGiocata 1,am,ruote,posta,Clp,1
            ImpostaGiocata 2,nu1,ruote,poste,Clp,2
            ImpostaGiocata 3,nu2,ruote,poste,Clp,2
            ImpostaGiocata 4,nu3,ruote,poste,Clp,2
            ImpostaGiocata 5,nu4,ruote,poste,Clp,2
            ImpostaGiocata 6,nu5,ruote,poste,Clp,2
            ImpostaGiocata 7,nu6,ruote,poste,Clp,2
            ImpostaGiocata 8,nu7,ruote,poste,Clp,2
            ImpostaGiocata 9,nu8,ruote,poste,Clp,2
            ImpostaGiocata 10,nu9,ruote,poste,Clp,2
            ImpostaGiocata 11,nu10,ruote,poste,Clp,2
            ImpostaGiocata 12,nu11,ruote,poste,Clp,2
            ImpostaGiocata 13,nu12,ruote,poste,Clp,2
            ImpostaGiocata 14,nu13,ruote,poste,Clp,2
            ImpostaGiocata 15,nu14,ruote,poste,Clp,2
            ImpostaGiocata 16,nu15,ruote,poste,Clp,2
            ImpostaGiocata 17,nu16,ruote,poste,Clp,2
            ImpostaGiocata 18,nu17,ruote,poste,Clp,2
            ImpostaGiocata 19,nu18,ruote,poste,Clp,2
            ImpostaGiocata 20,nu19,ruote,poste,Clp,2
            ImpostaGiocata 21,nu20,ruote,poste,Clp,2
            Gioca es
            'manca interruzione giocata e una progressione adeguata
            If ScriptInterrotto Then Exit For
         End If
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" D A  U N  I D E A  D I  C E R B E R U S "),1,3,0
   ScriviResoconto,False
End Sub
 
Ciao Cerberus, grazie del metodo, volevo chiedere due cose se posso. Premettendo che non sono pratico di script, ho provato ad incollare ed avviare lo script in Visual Lotto 6.2.3 però mi dà diversi errori che sono: Nome "EstrazioneFin" non dichiarato, Nome "IndiceMensile" non dichiarato, Nome "Messaggio" non dichiarato, gli argomenti del metodo devono essere racchiusi tra parentesi. Da che può dipendere? Dallo script o dal programma? E poi vedo, senza avviare lo script, che gli ambi che si vengono a creare sono 21, è giusto?
 
markus39;n2117570 ha scritto:
Ciao Cerberus, grazie del metodo, volevo chiedere due cose se posso. Premettendo che non sono pratico di script, ho provato ad incollare ed avviare lo script in Visual Lotto 6.2.3 però mi dà diversi errori che sono: Nome "EstrazioneFin" non dichiarato, Nome "IndiceMensile" non dichiarato, Nome "Messaggio" non dichiarato, gli argomenti del metodo devono essere racchiusi tra parentesi. Da che può dipendere? Dallo script o dal programma? E poi vedo, senza avviare lo script, che gli ambi che si vengono a creare sono 21, è giusto?
Clicca per espandere...

se vuoi usare lo scriptr devi e ripeto DEVI usare il programma spaziometria.

questi script fatti per spaziometria, non gireranno a meno di sostanziali modifiche, che io non conosco, non conoscendo visual lotto.

gli ambi sono 20, ma diventano molti di più se guardi bene...
lo script è stato messo solo per dimostrazione, non è nulla di che.
 
io non posso seguire, sono fuori con altro pc e non ho nulla su lotto etc..
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 aprile 2026
    Bari
    17
    71
    26
    06
    73
    Cagliari
    35
    72
    04
    61
    78
    Firenze
    22
    30
    46
    57
    81
    Genova
    77
    48
    17
    59
    64
    Milano
    90
    02
    32
    08
    57
    Napoli
    04
    71
    12
    77
    76
    Palermo
    42
    87
    07
    24
    56
    Roma
    32
    67
    03
    44
    38
    Torino
    25
    48
    17
    09
    50
    Venezia
    15
    81
    10
    03
    86
    Nazionale
    76
    20
    38
    59
    80
    Estrazione Simbolotto
    Genova
    28
    04
    02
    41
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto