Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · 20 Agosto 2025

l'ho modificato con le ultime richieste, quindi lo script del post 1091 è da riprendere fammi sapere se va bene

filippo1963 · 20 Agosto 2025

Ho provato lo script ok ora da estratto vedo che rendimento ha

salvo50 · Giovedì alle 10:46

Ciao a Tutti

Lo script del post 1091 è da riprendere c'era qualche errore

bubù · Lunedì alle 11:31

filippo1963 ha scritto:
Ho provato lo script ok ora da estratto vedo che rendimento ha

salvo50 ha scritto:
Ciao a Tutti

Lo script del post 1091 è da riprendere c'era qualche errore

Buongiorno, con l'autorizzazione di filippo1963 e se il bravissimo salvo50 è disponibile, proporrei una piccola modifica aggiungendo per la sorte dell'AMBO SECCO inserendo il numero che si ripete e un'altro Ambo Secco inserendo il Vertibile dello stesso numero che si ripete nelle 3 ruote. Chiedo scusa per il disturbo ma ho notato che potrebbe regalare qualche piccolo sorriso. Buona giornata a Tutti e un Grazie a salvo50 anche se non potrà accontentarmi nella modifica.

bubù · Lunedì alle 11:50

Se può servire questo era un mio vecchio studio sui numeri che si ripetono nella stessa estrazione in 3 ruote, in passato ha funzionato abbastanza bene pagando anche con qualche terno su ruota. Chiedo scusa in anticipo se c'è qualche errore nello script , qualche numero che si ripete e se non so postarlo correttamente. Se posso rendermi utile quello che faccio lo inserisco volentiere per tutti

'Numero Ripetuto su 3 Ruote x Bubu'
Sub Main()
Dim ruota(10),ruote(10),ruotee(10)
Dim posta(5),poste(5),postee(5)
Dim n(10),nn(10)
posta(1) = 3
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
k = 7 '<-------- numero colpi
ini = 10600 '<---- estrazione di inizio ricerca ( 6877 = 01-01-2000 )
fin = EstrazioneFin
For es = ini To fin '<------------------------------- ciclo estrazioni da controllare
For p = 1 To 5 '<-------------------------------- ciclo posizione estratti prima ruota
For r = 1 To 9 '<---------------------------- ciclo prima ruota
a = Estratto(es,r,p) '<------------------ estratto prima ruota
For rr = r + 1 To 10 '<--------------------- ciclo seconda ruota
For pp = 1 To 5 '<------------------- ciclo posizione estratti seconda ruota
b = Estratto(es,rr,pp) '<------------- estratto secondo ruota
If a = b Then '<--------------------- se trova due estratti uguali cerca anche il terzo
For rrr = rr + 1 To 12 '<------------- ciclo terza ruota
If rrr = 11 Then rrr = 12
For ppp = 1 To 5 ' <------- ciclo posizione estratti terza ruota
c = Estratto(es,rrr,ppp) '<---- estratto terza ruota
If c = a Then '<------------- se trova anche il terzo uguale fà la giocata
am = Diametrale(a)
am1 = Vert(am)
am2 = Fuori90(a*3)
am3 = Fuori90(Vert(a)*3 + 2)

Scrivi "________________________________________________________________",1
Scrivi
Scrivi "Numero: " & a & " ripetuto su " & Left(NomeRuota(r),2) & "-" & Left(NomeRuota(rr),2) & "-" & Left(NomeRuota(rrr),3),1
ruota(1) = r ' <----- prima ruota
ruota(2) = rr ' <----- seconda ruota
ruota(3) = rrr '<----- terza ruota

ruote(1) = r ' <----- prima ruota
ruote(2) = rr ' <----- seconda ruota
ruote(3) = rrr '<----- terza ruota
ruote(4) = 11
ruote(5) = 12

n(1) = am
n(2) = am1
ImpostaGiocata 1,n,ruota,posta,k '<--- imposta la giocata
n(1) = am
n(2) = a
ImpostaGiocata 2,n,ruota,poste,k '<--- imposta la giocata
n(1) = am
n(2) = Vert(a)
ImpostaGiocata 3,n,ruota,poste,k '<--- imposta la giocata
n(1) = am
n(2) = am2
ImpostaGiocata 4,n,ruota,poste,k '<--- imposta la giocata
n(1) = am
n(2) = am3
ImpostaGiocata 5,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = a
ImpostaGiocata 6,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = Vert(a)
ImpostaGiocata 7,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = am2
ImpostaGiocata 8,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = am3
ImpostaGiocata 9,n,ruota,poste,k '<--- imposta la giocata
nn(1) = am
nn(2) = am1
nn(3) = a
nn(4) = Vert(a)
nn(5) = am2
nn(6) = am3
ImpostaGiocata 10,nn,ruote,postee,k '<--- imposta la giocata

Gioca es '<----------------------------- gioca la formazione impostata
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

salvo50 · Lunedì alle 18:40

Ciao a Tutti
Ciao Bubù
Appena posso lo faccio

bubù · Ieri alle 12:53

Grazie salvo80, non c'è nessuna urgenza, inoltre se posso, nello script per filippo1963 manca anche l'ultima previsione data dal 45 isotopo su BARI e FIRENZE in 4^ posizione e del 45 su NAPOLI in 3^ posizione che se non sbaglio dovrebbe dare l'estratto 17 , e secondo il mio consiglio aggiungerei il 45 e il 54 per Ambo e Terno. chi vuole può anche formare la cinquina 09-17-45-54-90

salvo50 · Oggi alle 07:45

Ciao a Tutti

Bubù Scarfacetony
Grazie

Riguardo all'estrazione che lo script non vede quella del 45 a Bari e Firenze, faccio notare che
Filippo a richiesto che le prime 2 ruote devono essere:

Consecutive
Diametrali
Gemelle

Dato che Bari e Firenze non sono ne consecutive, ne diametrali, ne gemelle, quindi è giusto
che lo script non la vede

Ho modificato lo script come da te richiesto nel post 1105, per la cinquina mi devi dire
quali sono gli altri 2 numeri e come ottenerli

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim A,B,C,A1,B1,C1,Som,Sft
   Dim R1,R2,R3,P1,P2,Clp
   Dim xAmba(1),Amba(1),Ambo1(2),Ambo2(2),Ter(3)
   Dim Ruo(1),Posta(1),Poste(2),Postas(3),Ruote(3)
   Posta(1) = 1
   Poste(2) = 1
   Postas(2) = 1
 '  Postas(3) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   Clp = InputBox("Quanti Colpi di Gioco?",Salvo50,14)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & "Numero Uguale in 3 Ruote e Isotopo in 2 Ruote - di Filippo1963 - Script Salvo50",1,,4,,3,,1
   Scrivi Space(1) & "Con modifica di Bubù aggiunto pronostico di ambi e terno                       ",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            If(R2 = R1 + 1)Or(R2 = RuotaGemella(R1)) Then
               For P1 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P1)
                  If A > 0 And A = B Then
                     For R3 = 1 To 10
                        If R3 <> R1 And R3 <> R2 Then
                           P2 = FuoriX(P1 + 1,5)
                           A1 = Estratto(Es,R1,P2)
                           B1 = Estratto(Es,R2,P2)
                           C = Estratto(Es,R3,P2)
                           C1 = Estratto(Es,R3,P1)
                           If C = A Then
                              Som = Fuori90(A1 + B1 + C1 + A)
                              xAmba(1) = Som
                              Ruo(1) = R3
                              Sft = SerieFreqTurbo(Es,Es,xAmba,Ruo,1)
                              If Sft > 0 Then
                                 Amba(1) = ComplAdX(Som)
                              Else
                                 Amba(1) = Som
                              End If
                              Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
                              Ambo1(1) = Amba(1) : Ambo1(2) = A
                              Call Visualizza(A1,B1,C1,A,B,C,Som,Caso,Casi,Es,R1,R2,R3,Amba)
                              ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                              Ambo1(1) = Amba(1) : Ambo1(2) = A
                              ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                              Ambo2(1) = Amba(1) : Ambo2(2) = Vert(A)
                              ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                              Ter(1) = Amba(1) : Ter(2) = A : Ter(3) = Vert(A)
                              ImpostaGiocata 4,Ter,Ruote,Postas,Clp
                              Gioca Es,1,,1
                           End If
                        End If
                        If ScriptInterrotto Then Exit Sub
                     Next
                  End If
               Next
            End If
            If ScriptInterrotto Then Exit Sub
         Next
      Next
      For R1 = 1 To 5
         R2 = RuotaDiametrale(R1)
         If(R1 <> FI_) And(R2 <> RO_) Then
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R2,P1)
               If A > 0 And A = B Then
                  For R3 = 1 To 10
                     If R3 <> R1 And R3 <> R2 Then
                        P2 = FuoriX(P1 + 1,5)
                        A1 = Estratto(Es,R1,P2)
                        B1 = Estratto(Es,R2,P2)
                        C = Estratto(Es,R3,P2)
                        C1 = Estratto(Es,R3,P1)
                        If C = A Then
                           Som = Fuori90(A1 + B1 + C1 + A)
                           xAmba(1) = Som
                           Ruo(1) = R3
                           Sft = SerieFreqTurbo(Es,Es,xAmba,Ruo,1)
                           If Sft > 0 Then
                              Amba(1) = ComplAdX(Som)
                           Else
                              Amba(1) = Som
                           End If
                           Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
                           Call Visualizza(A1,B1,C1,A,B,C,Som,Caso,Casi,Es,R1,R2,R3,Amba)
                           ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                           Ambo1(1) = Amba(1) : Ambo1(2) = A
                           ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                           Ambo2(1) = Amba(1) : Ambo2(2) = Vert(A)
                           ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                           Ter(1) = Amba(1) : Ter(2) = A : Ter(3) = Vert(A)
                           ImpostaGiocata 4,Ter,Ruote,Postas,Clp
                           Gioca Es,1,,1
                        End If
                     End If
                     If ScriptInterrotto Then Exit Sub
                  Next
               End If
            Next
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Visualizza(A1,B1,C1,A,B,C,Som,Caso,Casi,Es,R1,R2,R3,Amba)
   Dim P7,P8,P9,E1,E2,E3
   Caso = Caso + 1
   Casi = Casi + 1
   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
   Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
   If R2 = R1 + 1 Then Scrivi Space(20) & " Ruote Consecutive ",1,,,2
   If R2 = RuotaGemella(R1) Then Scrivi Space(20) & " Ruote Gemelle",1,,,2
   If R2 = RuotaDiametrale(R1) Then Scrivi Space(20) & " Ruote Diametrali ",1,,,2
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R1) & " ",1,0
   For P7 = 1 To 5
      E1 = Estratto(Es,R1,P7)
      If E1 = A Then ColoreTesto 2
      If E1 = A1 Then ColoreTesto 1
      If E1 <> A And E1 <> A1 Then ColoreTesto 0
      Scrivi Format2(E1) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R2) & " ",1,0
   For P8 = 1 To 5
      E2 = Estratto(Es,R2,P8)
      If E2 = B Then ColoreTesto 2
      If E2 = B1 Then ColoreTesto 1
      If E2 <> B And E2 <> B1 Then ColoreTesto 0
      Scrivi Format2(E2) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R3) & " ",1,0
   For P9 = 1 To 5
      E3 = Estratto(Es,R3,P9)
      If E3 = C Then ColoreTesto 2
      If E3 = C1 Then ColoreTesto 1
      If E3 <> C And E3 <> C1 Then ColoreTesto 0
      Scrivi Format2(E3) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi Space(10) & Format2(A1) & " + " & Format2(B1) & " + " & Format2(C1),1,0
   Scrivi " + " & Format2(A) & " =  " & Format2(Som),1
   Scrivi
   Scrivi Space(15) & "Ambata = " & Format2(Amba(1)),1
End Function

bubù · Oggi alle 09:04

salvo50 ha scritto:

Ciao a Tutti

Bubù Scarfacetony
Grazie

Riguardo all'estrazione che lo script non vede quella del 45 a Bari e Firenze, faccio notare che
Filippo a richiesto che le prime 2 ruote devono essere:

Consecutive
Diametrali
Gemelle

Dato che Bari e Firenze non sono ne consecutive, ne diametrali, ne gemelle, quindi è giusto
che lo script non la vede

Ho modificato lo script come da te richiesto nel post 1105, per la cinquina mi devi dire
quali sono gli altri 2 numeri e come ottenerli

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim A,B,C,A1,B1,C1,Som,Sft
   Dim R1,R2,R3,P1,P2,Clp
   Dim xAmba(1),Amba(1),Ambo1(2),Ambo2(2),Ter(3)
   Dim Ruo(1),Posta(1),Poste(2),Postas(3),Ruote(3)
   Posta(1) = 1
   Poste(2) = 1
   Postas(2) = 1
 '  Postas(3) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   Clp = InputBox("Quanti Colpi di Gioco?",Salvo50,14)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & "Numero Uguale in 3 Ruote e Isotopo in 2 Ruote - di Filippo1963 - Script Salvo50",1,,4,,3,,1
   Scrivi Space(1) & "Con modifica di Bubù aggiunto pronostico di ambi e terno                       ",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            If(R2 = R1 + 1)Or(R2 = RuotaGemella(R1)) Then
               For P1 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P1)
                  If A > 0 And A = B Then
                     For R3 = 1 To 10
                        If R3 <> R1 And R3 <> R2 Then
                           P2 = FuoriX(P1 + 1,5)
                           A1 = Estratto(Es,R1,P2)
                           B1 = Estratto(Es,R2,P2)
                           C = Estratto(Es,R3,P2)
                           C1 = Estratto(Es,R3,P1)
                           If C = A Then
                              Som = Fuori90(A1 + B1 + C1 + A)
                              xAmba(1) = Som
                              Ruo(1) = R3
                              Sft = SerieFreqTurbo(Es,Es,xAmba,Ruo,1)
                              If Sft > 0 Then
                                 Amba(1) = ComplAdX(Som)
                              Else
                                 Amba(1) = Som
                              End If
                              Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
                              Ambo1(1) = Amba(1) : Ambo1(2) = A
                              Call Visualizza(A1,B1,C1,A,B,C,Som,Caso,Casi,Es,R1,R2,R3,Amba)
                              ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                              Ambo1(1) = Amba(1) : Ambo1(2) = A
                              ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                              Ambo2(1) = Amba(1) : Ambo2(2) = Vert(A)
                              ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                              Ter(1) = Amba(1) : Ter(2) = A : Ter(3) = Vert(A)
                              ImpostaGiocata 4,Ter,Ruote,Postas,Clp
                              Gioca Es,1,,1
                           End If
                        End If
                        If ScriptInterrotto Then Exit Sub
                     Next
                  End If
               Next
            End If
            If ScriptInterrotto Then Exit Sub
         Next
      Next
      For R1 = 1 To 5
         R2 = RuotaDiametrale(R1)
         If(R1 <> FI_) And(R2 <> RO_) Then
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R2,P1)
               If A > 0 And A = B Then
                  For R3 = 1 To 10
                     If R3 <> R1 And R3 <> R2 Then
                        P2 = FuoriX(P1 + 1,5)
                        A1 = Estratto(Es,R1,P2)
                        B1 = Estratto(Es,R2,P2)
                        C = Estratto(Es,R3,P2)
                        C1 = Estratto(Es,R3,P1)
                        If C = A Then
                           Som = Fuori90(A1 + B1 + C1 + A)
                           xAmba(1) = Som
                           Ruo(1) = R3
                           Sft = SerieFreqTurbo(Es,Es,xAmba,Ruo,1)
                           If Sft > 0 Then
                              Amba(1) = ComplAdX(Som)
                           Else
                              Amba(1) = Som
                           End If
                           Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
                           Call Visualizza(A1,B1,C1,A,B,C,Som,Caso,Casi,Es,R1,R2,R3,Amba)
                           ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                           Ambo1(1) = Amba(1) : Ambo1(2) = A
                           ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                           Ambo2(1) = Amba(1) : Ambo2(2) = Vert(A)
                           ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                           Ter(1) = Amba(1) : Ter(2) = A : Ter(3) = Vert(A)
                           ImpostaGiocata 4,Ter,Ruote,Postas,Clp
                           Gioca Es,1,,1
                        End If
                     End If
                     If ScriptInterrotto Then Exit Sub
                  Next
               End If
            Next
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Visualizza(A1,B1,C1,A,B,C,Som,Caso,Casi,Es,R1,R2,R3,Amba)
   Dim P7,P8,P9,E1,E2,E3
   Caso = Caso + 1
   Casi = Casi + 1
   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
   Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
   If R2 = R1 + 1 Then Scrivi Space(20) & " Ruote Consecutive ",1,,,2
   If R2 = RuotaGemella(R1) Then Scrivi Space(20) & " Ruote Gemelle",1,,,2
   If R2 = RuotaDiametrale(R1) Then Scrivi Space(20) & " Ruote Diametrali ",1,,,2
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R1) & " ",1,0
   For P7 = 1 To 5
      E1 = Estratto(Es,R1,P7)
      If E1 = A Then ColoreTesto 2
      If E1 = A1 Then ColoreTesto 1
      If E1 <> A And E1 <> A1 Then ColoreTesto 0
      Scrivi Format2(E1) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R2) & " ",1,0
   For P8 = 1 To 5
      E2 = Estratto(Es,R2,P8)
      If E2 = B Then ColoreTesto 2
      If E2 = B1 Then ColoreTesto 1
      If E2 <> B And E2 <> B1 Then ColoreTesto 0
      Scrivi Format2(E2) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R3) & " ",1,0
   For P9 = 1 To 5
      E3 = Estratto(Es,R3,P9)
      If E3 = C Then ColoreTesto 2
      If E3 = C1 Then ColoreTesto 1
      If E3 <> C And E3 <> C1 Then ColoreTesto 0
      Scrivi Format2(E3) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi Space(10) & Format2(A1) & " + " & Format2(B1) & " + " & Format2(C1),1,0
   Scrivi " + " & Format2(A) & " =  " & Format2(Som),1
   Scrivi
   Scrivi Space(15) & "Ambata = " & Format2(Amba(1)),1
End Function

intanto grazie per la tua disponibilità, il calcolo degli altri 2 numeri è semplice: il numero che si ripete in tre ruote in questo caso era il 45 il Diametrale è il 90 e il suo vertibile 09. penso che sia tutto. Grazie di cuore e Buona giornata a Te

bubù · Oggi alle 10:20

salvo50 volevo chiedere sempre se puoi, puoi togliere l'opizione ruote consecutive o gemelle e lascia tutto il resto.
Un'altra cosa non capisco perchè in alcuni casi l'Ambata si cambia con il Complemento a 90 ? ecco 2 esempi presenti nel listato:

Ruote Gemelle

Estrazione n.10416 del 04.04.2024 CA 59 55 07 75 64

Estrazione n.10416 del 04.04.2024 TO 75 28 07 82 63

Estrazione n.10416 del 04.04.2024 NA 87 79 05 07 11

75 + 82 + 05 + 07 = 79

Ambata = 11 (perché non è 79 ????)

^^^^^^^^^^

Ruote Consecutive

Ruote Gemelle

Estrazione n.10684 del 17.07.2025 MI 75 52 46 34 22

Estrazione n.10684 del 17.07.2025 NA 40 23 71 12 22

Estrazione n.10684 del 17.07.2025 BA 22 33 04 68 47

75 + 40 + 47 + 22 = 04

Ambata = 86 (perché non è 04 ????)

Grazie e scusa per il disturbo

salvo50 · Oggi alle 10:52

bubù ha scritto:
salvo50 volevo chiedere sempre se puoi, puoi togliere l'opizione ruote consecutive o gemelle e lascia tutto il resto.
Un'altra cosa non capisco perchè in alcuni casi l'Ambata si cambia con il Complemento a 90 ? ecco 2 esempi presenti nel listato:

Ruote Gemelle

Estrazione n.10416 del 04.04.2024 CA 59 55 07 75 64

Estrazione n.10416 del 04.04.2024 TO 75 28 07 82 63

Estrazione n.10416 del 04.04.2024 NA 87 79 05 07 11

75 + 82 + 05 + 07 = 79

Ambata = 11 (perché non è 79 ????)

^^^^^^^^^^

Ruote Consecutive

Ruote Gemelle

Estrazione n.10684 del 17.07.2025 MI 75 52 46 34 22

Estrazione n.10684 del 17.07.2025 NA 40 23 71 12 22

Estrazione n.10684 del 17.07.2025 BA 22 33 04 68 47

75 + 40 + 47 + 22 = 04

Ambata = 86 (perché non è 04 ????)
Grazie e scusa per il disturbo

Su richiesta di Filippo del post 1094, specifica che se l'ambata pronosticata si trova nella
ruota di calcolo e di gioco, cioe la terza ruota non isotopa l'ambata viene sostituita con
il suo complemento a 90

Allora riepiloghiamo, la prossima modifica non deve tener conto di ruote Gemelle
Consecutive, e Diametrali, cioè ci devono essere tutte le condizioni isotope
e mettere anche la cinquina.

Il complemento a 90 lo devo togliere o resta comè?

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi