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ì 30 ottobre 2025
    Bari
    53
    07
    12
    77
    21
    Cagliari
    17
    74
    24
    69
    44
    Firenze
    08
    47
    25
    83
    33
    Genova
    02
    68
    29
    43
    67
    Milano
    84
    90
    75
    45
    72
    Napoli
    49
    06
    09
    12
    20
    Palermo
    13
    65
    34
    86
    07
    Roma
    15
    02
    10
    13
    83
    Torino
    59
    67
    80
    35
    26
    Venezia
    73
    04
    06
    74
    27
    Nazionale
    62
    79
    38
    36
    48
    Estrazione Simbolotto
    07
    01
    28
    12
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto