Novità

Per salvo50

Ciao salvo50, si ricordo che me ne avevi fatto più di uno di script su mia richiesta , ti riporto un esempio di una condizione postata del bravo antonio 70 , i punti ignoti sono numeri calcolati ma non presenti nell'estrazione per questo motivo sono chiamati ignoti , io non conosco la formula del calcolo...conosco altre cose ma questa no.

RUOTA FIRENZE
__1^_Estrazione___83_77_79_27_89__=__85

__2^_Estrazione___35_27_78_75_62__=__07 sono i punti ignoti
Ciao @Matematico, premesso che fino ad ora non mi ero mai messo alla ricerca dei metodi di Lord Byron, oggi ho fatto un foglio excel e riportando le 2 estrazioni che hai portato nell'esempio, ho questo output:
1650316775494.png

Tuttavia, essendo profano in materia, non vorrei dire cavolate o cose che già si sanno dicendo che i punti ignoti risultano essere le 2 somme degli estratti (scoperta dell'acqua calda?? ahahah)
La 1a estrazione si riferisce alla ruota di Firenze (ok) del 15/02/2022, ma la 2a (mai uscita dal 1939)?
Anche se fosse fittizia per far capire l'esempio, posso sapere come si ricava il 32?

Grazie. Gio
 
Ciao @Matematico, premesso che fino ad ora non mi ero mai messo alla ricerca dei metodi di Lord Byron, oggi ho fatto un foglio excel e riportando le 2 estrazioni che hai portato nell'esempio, ho questo output:
Vedi l'allegato 2233071

Tuttavia, essendo profano in materia, non vorrei dire cavolate o cose che già si sanno dicendo che i punti ignoti risultano essere le 2 somme degli estratti (scoperta dell'acqua calda?? ahahah)
La 1a estrazione si riferisce alla ruota di Firenze (ok) del 15/02/2022, ma la 2a (mai uscita dal 1939)?
Anche se fosse fittizia per far capire l'esempio, posso sapere come si ricava il 32?

Grazie. Gio
Ciao Gio, come si ricava il 32 e i l resto dei punti ignoti no n saprei davvero dirtelo , per questo chiedevo a salvo50 se avesse uno script che li calcola simili a quelli di antonio 70 perchè è lui l'autore dell'esempio che ho postato su Fi.
 
Ciao a Tutti
Negli script postati da Mr. Byron, c'è il procedimento per trovare questi punti ignoti, si deve controllare se corrispondono a quelli postati da Antonio 70, io per il momento ho da fare altro, appena posso do una controllata.

Però cosa vuol dire punto ignoto, qualsiasi pronostico è ignoto.
 
Ciao a tutti, ho provato a fare lo script del PRIMO FUTURO ESTRATTO di Byron.
Funziona su 2 ruote nella stessa estrazione inserendo zero nella seconda finestra e scegliendo poi 2 ruote diverse, o sulla stessa ruota con intervalli diversi di estrazioni che decidete voi, inserendo il numero a vostro piacimento sempre nella seconda finestra e scegliendo la stessa ruota per 2 volte.
"Dovrebbe" essere corretto, fatemi sapere se trovate qualche falla (di sicuro eheheh).
Per fare la prova del 9, allego output di excel che risultano uguali:
1650388659348.png
I passaggi per il confronto sono;
-Modificate la cifra nella prima finestra in 10,060
-invio per così come è, alla 2a (0)
-torino
-venezia


Codice:
Sub Main
TestoInBandaPassante "metodo Primo FUTURO ESTRATTO di Lord G.Byron. Listato GioRyuKen72",1,RGB(63,134,85),5
Scrivi
   Dim N(5),Nn(5),a,b,c,d,e,f,g,h,i,l,m,enne,o,PFE,SomCol,SomDif,ab,bc,cd,de,ef,fg,Ext
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Terz1(3),Ambata1(1),Ini,Fin,es
   Dim PostaT(3),PostaA(2),PostaABT(1),Ruo,Ruo2,RTT(2)
   Dim n1n2,n2n3,n3n4,n4n5,n5nn1,nn1nn2
   PostaA(1)=2
   PostaA(2) = 1
   PostaT(2) = 3
   PostaT(3) = 0.5
   Fin = EstrazioneFin
   Ini = InputBox("Da quale estrazione vuoi iniziare?","GioRyuKen72",10000)
   Ext = InputBox("Di quante estrazioni a ritroso andare per la ricerca?","GioRyuKen72",0)
   Ruo = ScegliRuota
   Ruo2 = ScegliRuota
   For es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,es
      N(1) = Estratto(es-Ext,Ruo,1) : N(2) = Estratto(es-Ext,Ruo,2) :N(3) = Estratto(es-Ext,Ruo,3) :N(4) = Estratto(es-Ext,Ruo,4) :N(5) = Estratto(es-Ext,Ruo,5)
      Nn(1) = Estratto(es,Ruo2,1) : Nn(2) = Estratto(es,Ruo2,2) :Nn(3) = Estratto(es,Ruo2,3) :Nn(4) = Estratto(es,Ruo2,4) :Nn(5) = Estratto(es,Ruo2,5)
      '---------------------------------------------------------------------------------------
      a = Fuori90(N(1) + N(2) + N(3) + N(4) + N(5))
      b = Fuori90(Nn(1) + N(2) + N(3) + N(4) + N(5))
      c = Fuori90(Nn(1) + Nn(2) + N(3) + N(4) + N(5))
      d = Fuori90(Nn(1) + Nn(2) + Nn(3) + N(4) + N(5))
      e = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4) + N(5))
      f = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4) + Nn(5))
      g = Fuori90(Nn(2) + Nn(3) + Nn(4) + Nn(5))
      SomCol = Fuori90(a + b + c + d + e + f)
      '----------------------------------------------------------------------------------------
      n1n2 = N(1) - N(2)
      If n1n2 < 0 Then n1n2 = n1n2 + 90
      n2n3 = N(2) - N(3)
      If n2n3 < 0 Then n2n3 = n2n3 + 90
      n3n4 = N(3) - N(4)
      If n3n4 < 0 Then n3n4 = n3n4 + 90
      n4n5 = N(4) - N(5)
      If n4n5 < 0 Then n4n5 = n4n5 + 90
      n5nn1 = N(5) - Nn(1)
      If n5nn1 < 0 Then n5nn1 = n5nn1 + 90
      nn1nn2 = Nn(1) - Nn(2)
      If nn1nn2 < 0 Then nn1nn2 = nn1nn2 + 90
      h = Fuori90(n1n2 + n2n3 + n3n4 + n4n5 + n5nn1 + nn1nn2)
      '----------------------------------------------------------------------------------------
      ab = a - b
      If ab < 0 Then ab = ab + 90
      bc = b - c
      If bc < 0 Then bc = bc + 90
      cd = c - d
      If cd < 0 Then cd = cd + 90
      de = d - e
      If de < 0 Then de = de + 90
      ef = e - f
      If ef < 0 Then ef = ef + 90
      i = Fuori90((ab) +(bc) +(cd) +(de) +(ef))
      SomDif = Fuori90(h + i)
      m = Fuori90(SomCol + SomDif)
      If m = 90 Then
      PFE = Fuori90(SomDif + Nn(1))
          Caso = Caso + 1
         Casi=Casi+1
         ColoreTesto 2
         Scrivi String(54,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") & String(47,"*"),1,,,0
         Scrivi String(48,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(Caso,"0000") & String(44,"*"),1,,,1
         Scrivi String(20," ") & "Somme Differenze: "&  Format2(n1n2) & " - " & Format2(n2n3) & " - " & Format2(n3n4) & " - " & Format2(n4n5) & " - " & Format2(n5nn1) & " - " & Format2(nn1nn2) &"                                   ",1,,RGB(204,0,0),5
         ColoreTesto 0
         Scrivi("Estrazione n." & Format2(es-Ext) & " del " & DataEstrazione(es-Ext)),1,0
         Scrivi "  " & SiglaRuota(Ruo) & " " & StringaEstratti(es-Ext,Ruo) & "                 Intervallo di ricerca: ",1,0
         Scrivi
         Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
         Scrivi "  " & SiglaRuota(Ruo2) & " " & StringaEstratti(es,Ruo2) & "                 " & Format2(Ext) & " estrazioni ",1,0
         Scrivi
         ColoreTesto 2
         Scrivi String(21," ") & "  Somme Colonne: " &  Format2(a) & " - " & Format2(b) & " - " & Format2(c) & " - " & Format2(d) & " - " & Format2(e) & " - " & Format2(f) & " >>>>> TOTALE: " & Format2(SomCol) &"                  " ,1,,RGB(204,0,0),5
         Scrivi String(20," ") & "Somme Differenze: " &  Format2(ab) & " - " & Format2(bc) & " - " & Format2(cd) & " - " & Format2(de) & " - " & Format2(ef) & "      >>>>> TOTALE: " & Format2(SomDif) &"                  ",1,,RGB(204,0,0),5
         Scrivi String(36," = ") & " verifica per OK EQUAZIONE  >>>>> " & Format2(SomCol) & " + " & Format2(SomDif) & " = " & Format2(m) & "                  ",1,,1,4,2
         ColoreTesto 0
         Scrivi String(100,"-")
         Scrivi String(1," ") & " PRIMO FUTURO ESTRATTO (PFE)    " & Format2(SomDif) & "  +  " & Format2(Fuori90(Nn(1))) & " = " & Format2(PFE),1,,,1,3
         Scrivi String(100,"-")
         RTT(1) = Ruo
         RTT(2) = Ruo2
         'Ru(2) = 7 ' tutte
         ColoreTesto 0        
         Ambata1(1) = PFE
         'ImpostaGiocata 1,Ambata1,RTT,PostaA,13,1
         Ambo1(1) = PFE
         Ambo1(2) = SFE
          ImpostaGiocata 2,Ambo1,RTT,PostaA,13,1
         Terz1(1) = n1
         Terz1(2) = n2
         Terz1(3) = n3
         ' ImpostaGiocata 4,Terz1,Ru,PostaT,13,2
         ColoreTesto 0
         Gioca es,True,,1
         If ScriptInterrotto Then Exit For
         'Next
      End If
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   TestoInBandaPassante "metodo Primo FUTURO ESTRATTO di Lord G.Byron. Listato GioRyuKen72",1,RGB(63,134,85),5
   ColoreTesto 0
   ScriviResoconto
End Sub

ciao Gio.
 
Ciao a tutti, ho provato a fare lo script del PRIMO FUTURO ESTRATTO di Byron.
Funziona su 2 ruote nella stessa estrazione inserendo zero nella seconda finestra e scegliendo poi 2 ruote diverse, o sulla stessa ruota con intervalli diversi di estrazioni che decidete voi, inserendo il numero a vostro piacimento sempre nella seconda finestra e scegliendo la stessa ruota per 2 volte.
"Dovrebbe" essere corretto, fatemi sapere se trovate qualche falla (di sicuro eheheh).
Per fare la prova del 9, allego output di excel che risultano uguali:
Vedi l'allegato 2233099
I passaggi per il confronto sono;
-Modificate la cifra nella prima finestra in 10,060
-invio per così come è, alla 2a (0)
-torino
-venezia


Codice:
Sub Main
TestoInBandaPassante "metodo Primo FUTURO ESTRATTO di Lord G.Byron. Listato GioRyuKen72",1,RGB(63,134,85),5
Scrivi
   Dim N(5),Nn(5),a,b,c,d,e,f,g,h,i,l,m,enne,o,PFE,SomCol,SomDif,ab,bc,cd,de,ef,fg,Ext
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Terz1(3),Ambata1(1),Ini,Fin,es
   Dim PostaT(3),PostaA(2),PostaABT(1),Ruo,Ruo2,RTT(2)
   Dim n1n2,n2n3,n3n4,n4n5,n5nn1,nn1nn2
   PostaA(1)=2
   PostaA(2) = 1
   PostaT(2) = 3
   PostaT(3) = 0.5
   Fin = EstrazioneFin
   Ini = InputBox("Da quale estrazione vuoi iniziare?","GioRyuKen72",10000)
   Ext = InputBox("Di quante estrazioni a ritroso andare per la ricerca?","GioRyuKen72",0)
   Ruo = ScegliRuota
   Ruo2 = ScegliRuota
   For es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,es
      N(1) = Estratto(es-Ext,Ruo,1) : N(2) = Estratto(es-Ext,Ruo,2) :N(3) = Estratto(es-Ext,Ruo,3) :N(4) = Estratto(es-Ext,Ruo,4) :N(5) = Estratto(es-Ext,Ruo,5)
      Nn(1) = Estratto(es,Ruo2,1) : Nn(2) = Estratto(es,Ruo2,2) :Nn(3) = Estratto(es,Ruo2,3) :Nn(4) = Estratto(es,Ruo2,4) :Nn(5) = Estratto(es,Ruo2,5)
      '---------------------------------------------------------------------------------------
      a = Fuori90(N(1) + N(2) + N(3) + N(4) + N(5))
      b = Fuori90(Nn(1) + N(2) + N(3) + N(4) + N(5))
      c = Fuori90(Nn(1) + Nn(2) + N(3) + N(4) + N(5))
      d = Fuori90(Nn(1) + Nn(2) + Nn(3) + N(4) + N(5))
      e = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4) + N(5))
      f = Fuori90(Nn(1) + Nn(2) + Nn(3) + Nn(4) + Nn(5))
      g = Fuori90(Nn(2) + Nn(3) + Nn(4) + Nn(5))
      SomCol = Fuori90(a + b + c + d + e + f)
      '----------------------------------------------------------------------------------------
      n1n2 = N(1) - N(2)
      If n1n2 < 0 Then n1n2 = n1n2 + 90
      n2n3 = N(2) - N(3)
      If n2n3 < 0 Then n2n3 = n2n3 + 90
      n3n4 = N(3) - N(4)
      If n3n4 < 0 Then n3n4 = n3n4 + 90
      n4n5 = N(4) - N(5)
      If n4n5 < 0 Then n4n5 = n4n5 + 90
      n5nn1 = N(5) - Nn(1)
      If n5nn1 < 0 Then n5nn1 = n5nn1 + 90
      nn1nn2 = Nn(1) - Nn(2)
      If nn1nn2 < 0 Then nn1nn2 = nn1nn2 + 90
      h = Fuori90(n1n2 + n2n3 + n3n4 + n4n5 + n5nn1 + nn1nn2)
      '----------------------------------------------------------------------------------------
      ab = a - b
      If ab < 0 Then ab = ab + 90
      bc = b - c
      If bc < 0 Then bc = bc + 90
      cd = c - d
      If cd < 0 Then cd = cd + 90
      de = d - e
      If de < 0 Then de = de + 90
      ef = e - f
      If ef < 0 Then ef = ef + 90
      i = Fuori90((ab) +(bc) +(cd) +(de) +(ef))
      SomDif = Fuori90(h + i)
      m = Fuori90(SomCol + SomDif)
      If m = 90 Then
      PFE = Fuori90(SomDif + Nn(1))
          Caso = Caso + 1
         Casi=Casi+1
         ColoreTesto 2
         Scrivi String(54,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") & String(47,"*"),1,,,0
         Scrivi String(48,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(Caso,"0000") & String(44,"*"),1,,,1
         Scrivi String(20," ") & "Somme Differenze: "&  Format2(n1n2) & " - " & Format2(n2n3) & " - " & Format2(n3n4) & " - " & Format2(n4n5) & " - " & Format2(n5nn1) & " - " & Format2(nn1nn2) &"                                   ",1,,RGB(204,0,0),5
         ColoreTesto 0
         Scrivi("Estrazione n." & Format2(es-Ext) & " del " & DataEstrazione(es-Ext)),1,0
         Scrivi "  " & SiglaRuota(Ruo) & " " & StringaEstratti(es-Ext,Ruo) & "                 Intervallo di ricerca: ",1,0
         Scrivi
         Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
         Scrivi "  " & SiglaRuota(Ruo2) & " " & StringaEstratti(es,Ruo2) & "                 " & Format2(Ext) & " estrazioni ",1,0
         Scrivi
         ColoreTesto 2
         Scrivi String(21," ") & "  Somme Colonne: " &  Format2(a) & " - " & Format2(b) & " - " & Format2(c) & " - " & Format2(d) & " - " & Format2(e) & " - " & Format2(f) & " >>>>> TOTALE: " & Format2(SomCol) &"                  " ,1,,RGB(204,0,0),5
         Scrivi String(20," ") & "Somme Differenze: " &  Format2(ab) & " - " & Format2(bc) & " - " & Format2(cd) & " - " & Format2(de) & " - " & Format2(ef) & "      >>>>> TOTALE: " & Format2(SomDif) &"                  ",1,,RGB(204,0,0),5
         Scrivi String(36," = ") & " verifica per OK EQUAZIONE  >>>>> " & Format2(SomCol) & " + " & Format2(SomDif) & " = " & Format2(m) & "                  ",1,,1,4,2
         ColoreTesto 0
         Scrivi String(100,"-")
         Scrivi String(1," ") & " PRIMO FUTURO ESTRATTO (PFE)    " & Format2(SomDif) & "  +  " & Format2(Fuori90(Nn(1))) & " = " & Format2(PFE),1,,,1,3
         Scrivi String(100,"-")
         RTT(1) = Ruo
         RTT(2) = Ruo2
         'Ru(2) = 7 ' tutte
         ColoreTesto 0      
         Ambata1(1) = PFE
         'ImpostaGiocata 1,Ambata1,RTT,PostaA,13,1
         Ambo1(1) = PFE
         Ambo1(2) = SFE
          ImpostaGiocata 2,Ambo1,RTT,PostaA,13,1
         Terz1(1) = n1
         Terz1(2) = n2
         Terz1(3) = n3
         ' ImpostaGiocata 4,Terz1,Ru,PostaT,13,2
         ColoreTesto 0
         Gioca es,True,,1
         If ScriptInterrotto Then Exit For
         'Next
      End If
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   TestoInBandaPassante "metodo Primo FUTURO ESTRATTO di Lord G.Byron. Listato GioRyuKen72",1,RGB(63,134,85),5
   ColoreTesto 0
   ScriviResoconto
End Sub

ciao Gio.

Ciao GioRyuKen72

per piacere posta o mandami il tuo file excel che hai creato per questo metodo

apprezzerei il tuo aiuto
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03

Ultimi Messaggi

Indietro
Alto