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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto