Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Per salvo50
- Creatore Discussione Matematico
- Data di inizio
GioRyuKen72
Advanced Member >PLATINUM PLUS<
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:
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
Matematico
Advanced Member >PLATINUM<
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.
salvo50
Advanced Member >PLATINUM PLUS<
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.
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.
GioRyuKen72
Advanced Member >PLATINUM PLUS<
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:
I passaggi per il confronto sono;
-Modificate la cifra nella prima finestra in 10,060
-invio per così come è, alla 2a (0)
-torino
-venezia
ciao Gio.
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:
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 Subciao Gio.
Ciao GioRyuKen72
per piacere posta o mandami il tuo file excel che hai creato per questo metodo
apprezzerei il tuo aiuto
GioRyuKen72
Advanced Member >PLATINUM PLUS<
ciao @Mandy335 ,
>>>>>>>>>> clicca qui <<<<<<<<<<<
nel link di sopra avevo caricato un'altra versione con la modifica di Robinson (Byron con diagonale a 90), dove oltre al primo futuro estratto, rintraccia altri 3 numeri.
guarda se ti può andar bene..
Saluti, Gio
>>>>>>>>>> clicca qui <<<<<<<<<<<
nel link di sopra avevo caricato un'altra versione con la modifica di Robinson (Byron con diagonale a 90), dove oltre al primo futuro estratto, rintraccia altri 3 numeri.
guarda se ti può andar bene..
Saluti, Gio
Mille grazie GioRyuKen72 !!!
Se avete altri metodi che producono buoni risultati en excel fatemelo sapere.
Buona giornata
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 25 luglio 2025Bari5375060843Cagliari6252595572Firenze5413561462Genova0784215820Milano2728626104Napoli1643316850Palermo7234604066Roma4672663611Torino7729231148Venezia2477414821Nazionale7083174071Estrazione Simbolotto
Nazionale
0913053803
