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.
Infallibile Byron
- Creatore Discussione Robinson
- Data di inizio
grazie x la sengalazione) Saluti RBNS
Grazie a te x la fiducia
Ermis, capita spesso che l'esito si manifesti sulle ruote vicine, infatti L'ambo 72-11 usci a colpo su Venezia il 6-12 (che è vicina alla Naz.) e sulla naz il solo 45..... , come ieri, su Mi ancora il 45, e sulla vicina Ge 45.11 , e anche nei casi precedenti, succede di sovente.saluti cordiali, e anticipo gli auguri di serene festività a tutti.
RBSN
Ciao Ufolotto ,se qualcuno fosse in grado, e ne avesse voglia ,si sveltirebbe la ricerca dei casi da sviluppare, i metodo è spiegato nelle pagine precedenti, e comunque , il listato dovrebbe selezionare le due cinquine dove una abbia la somma del primo/terzo/ e quinto, che faccia 90 con la somma del secondo e quarto della seconda cinquina, e possibilmente faccia lo sviluppo byron, nei due sensi, invertendo la cinquine nel secondo sviluppo ,servendo spiegazioni, sono a disposizione,
strasalutissimi......RBNS
GioRyuKen72
Advanced Member >PLATINUM PLUS<
Ciao a tutti,
io ho un foglio excel per rilevare i casi in cui si può procedere allo sviluppo ed in automatico mi fa il conteggio.
Purtroppo si verificano tanti casi, per esempio a luglio sono stati 44, ad agosto 26 e a settembre 17.
e poi...... c'è lo script al quale, per avere un risultato mirato alla solo CONDIZIONE RINTRACCIATA, bisogna dare info dirette ossia:
- numero estrazione generale (opzionale)
- numero estrazione mensile
- Ruota 1
- Ruota 2
e poi andare sul caso della condizione.. Qualora si impostasse un largo range di ricerca gli altri casi non avrebbero importanza in quanto non sarebbero nel target richiesto.
Gio.
io ho un foglio excel per rilevare i casi in cui si può procedere allo sviluppo ed in automatico mi fa il conteggio.
Purtroppo si verificano tanti casi, per esempio a luglio sono stati 44, ad agosto 26 e a settembre 17.
e poi...... c'è lo script al quale, per avere un risultato mirato alla solo CONDIZIONE RINTRACCIATA, bisogna dare info dirette ossia:
- numero estrazione generale (opzionale)
- numero estrazione mensile
- Ruota 1
- Ruota 2
e poi andare sul caso della condizione.. Qualora si impostasse un largo range di ricerca gli altri casi non avrebbero importanza in quanto non sarebbero nel target richiesto.
Gio.
GioRyuKen72
Advanced Member >PLATINUM PLUS<
Ultima modifica:
GioRyuKen72
Advanced Member >PLATINUM PLUS<
Codice:
Sub Main
Scrivi " metodo Primo FUTURO ESTRATTO di Lord G.Byron. Listato GioRyuKen72 ",1,,RGB(143,0,255),5,4
Scrivi
Dim N(5),Nn(5),a,b,c,d,e,f,g,h,i,l,m,enne,o,PFE,SFE,SomCol,SomDif,ab,bc,cd,de,ef,fg,Ext
Dim Ambo1(2),Ambo2(2),Ambo3(2),Terzina1(3),Terzina2(3),Ambata1(1),Ini,Fin,es,Quartina1(4)
Dim PostaQ(4),PostaA(2),PostaABT(1),Ruo,Ruo2,RTT(3),PostaT(3),Ruota(2)
Dim n1n2,n2n3,n3n4,n4n5,n5nn1,nn1nn2,im,last,fzgzZPFE
Dim Z(5),Zz(5),az,bz,cz,dz,ez,fz,gz,hz,iz,lz,mz,oz,ZPFE,ZSFE,ZSomCol,ZSomDif,azbz,bzcz,czdz,dzez,ezfz,fzgz,z1z2,z2z3,z3z4,z4z5,z5zz1,zz1zz2
PostaABT(1) = 1
'PostaA(1) = 2
PostaA(2) = 1
PostaT(2) = 1.5
PostaT(3) = 0.5
PostaQ(2) = 2
PostaQ(3) = 0.5
Fin = EstrazioneFin
Ini = InputBox("Da quale estrazione vuoi iniziare?","GioRyuKen72",10110)
Ext = 0
im = CInt(InputBox("IN QUALE ESTRAZIONE MENSILE ? Per ultima del mese si metta 0 ","INSERIRE IL NUMERO ESTRAZIONE MENSILE",0))
Ruo = ScegliRuota
Ruo2 = ScegliRuota
For es = Ini To Fin
AvanzamentoElab Ini,Fin,es
If(((eval(im) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0)))) Then
Caso = 0
AvanzamentoElab Ini,Fin,es
N(1) = 90 : N(2) = Estratto(es - Ext,Ruo,2) : N(3) = 90 : N(4) = Estratto(es - Ext,Ruo,4) : N(5) = 90
Nn(1) = Estratto(es,Ruo2,1) : Nn(2) = 90 : Nn(3) = Estratto(es,Ruo2,3) : Nn(4) = 90 : 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))
fg = Fuori90(f + g)
SFE = 90 -(Fuori90(fg + PFE))
If SFE = 0 Then SFE = SFE + 90
'------------------------------------------------------------------ SCHEMA 2 ------------------------------------------------------------
Z(1) = Estratto(es - Ext,Ruo2,1) : Z(2) = 90 :Z(3) = Estratto(es - Ext,Ruo2,3) :Z(4) = 90 :Z(5) = Estratto(es - Ext,Ruo2,5)' 85-29-78-75-87
Zz(1) = 90 : Zz(2) = Estratto(es,Ruo,2) :Zz(3) = 90 : Zz(4) = Estratto(es,Ruo,4) :Zz(5) = 90 '60-13-71-61-35
'---------------------------------------------------------------------------------------
az = Fuori90(Z(1) + Z(2) + Z(3) + Z(4) + Z(5)) '85+90+78+90+87=70
bz = Fuori90(Zz(1) + Z(2) + Z(3) + Z(4) + Z(5)) '90+90+78+90+87=75
cz = Fuori90(Zz(1) + Zz(2) + Z(3) + Z(4) + Z(5)) '90+13+78+90+87=88
dz = Fuori90(Zz(1) + Zz(2) + Zz(3) + Z(4) + Z(5)) '90+13+90+90+87=10
ez = Fuori90(Zz(1) + Zz(2) + Zz(3) + Zz(4) + Z(5)) '90+13+90+61+87=71
fz = Fuori90(Zz(1) + Zz(2) + Zz(3) + Zz(4) + Zz(5)) '90+13+90+61+90=74
gz = Fuori90(Zz(2) + Zz(3) + Zz(4) + Zz(5)) '13+90+61+90=74
ZSomCol = Fuori90(az + bz + cz + dz + ez + fz) '=28
'----------------------------------------------------------------------------------------
z1z2 = Z(1) - Z(2)
If z1z2 < 0 Then z1z2 = z1z2 + 90 '85
z2z3 = Z(2) - Z(3)
If z2z3 < 0 Then z2z3 = z2z3 + 90
z3z4 = Z(3) - Z(4)
If z3z4 < 0 Then z3z4 = z3z4 + 90
z4z5 = Z(4) - Z(5)
If z4z5 < 0 Then z4z5 = z4z5 + 90
z5zz1 = Z(5) - Zz(1)
If z5zz1 < 0 Then z5zz1 = z5zz1 + 90
zz1zz2 = Zz(1) - Zz(2)
If zz1zz2 < 0 Then zz1zz2 = zz1zz2 + 90
hz = Fuori90(z1z2 + z2z3 + z3z4 + z4z5 + z5zz1 + zz1zz2)
'----------------------------------------------------------------------------------------
azbz = az - bz
If azbz < 0 Then azbz = azbz + 90
bzcz = bz - cz
If bzcz < 0 Then bzcz = bzcz + 90
czdz = cz - dz
If czdz < 0 Then czdz = czdz + 90
dzez = dz - ez
If dzez < 0 Then dzez = dzez + 90
ezfz = ez - fz
If ezfz < 0 Then ezfz = ezfz + 90
iz = Fuori90((azbz) +(bzcz) +(czdz) +(dzez) +(ezfz))
ZSomDif = Fuori90(hz + iz)
'mz = Fuori90(ZSomCol + ZSomDif)
'If mz = 90 Then
ZPFE = Fuori90(ZSomDif + Zz(1))'78
fzgz = Fuori90(fz + gz)' 20
fzgzZPFE = Fuori90(fzgz + ZPFE)'8
ZSFE = 90 - fzgzZPFE' 90-(20+78=8)= 82
If ZSFE = 0 Then ZSFE = ZSFE + 90
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
last = ""
Select Case(im)
Case(0): last = last & "ultim"
Case(1):last = 1
Case(2):last = 2
Case(3):last = 3
Case(4):last = 4
Case(5):last = 5
Case(6):last = 6
Case(7):last = 7
Case(8):last = 8
Case(9):last = 9
Case(10):last = 10
Case(11):last = 11
Case(12):last = 12
Case(13):last = 13
Case(14):last = 14
End Select
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: " & Format2(Ext) & " estrazioni ",1,0
Scrivi
Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(Ruo2) & " " & StringaEstratti(es,Ruo2) & " " & "Ricerca fatta alla " & Format2(last) & "a estrazione ",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
ColoreTesto 0
Scrivi String(100,"-")
Scrivi String(1," ") & "..PRIMO FUTURO ESTRATTO (schema 1 ) " & Format2(SomDif) & " + " & Format2(Fuori90(Nn(1))) & " = " & Format2(PFE),1,,,1,3
Scrivi String(1," ") & "SECONDO FUTURO ESTRATTO (schema 1 ) " & Format2(fg) & " + " & Format2(Fuori90(PFE)) & " = " & Format2(SFE),1,,,1,3
Scrivi String(100,"-")
'-------------------------------------------------------------------
Scrivi String(20," ") & "Somme Differenze: " & Format2(z1z2) & " - " & Format2(z2z3) & " - " & Format2(z3z4) & " - " & Format2(z4z5) & " - " & Format2(z5zz1) & " - " & Format2(zz1zz2) & " ",1,,RGB(204,0,0),5
ColoreTesto 0
Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(Ruo2) & " " & StringaEstratti(es,Ruo2) & " Intervallo di ricerca: " & Format2(Ext) & " estrazioni ",1,0
Scrivi
Scrivi("Estrazione n." & Format2(es - Ext) & " del " & DataEstrazione(es - Ext)),1,0
Scrivi " " & SiglaRuota(Ruo) & " " & StringaEstratti(es-Ext,Ruo) & " " & "Ricerca fatta alla " & Format2(last) & "a estrazione ",1,0
Scrivi
ColoreTesto 2
Scrivi String(21," ") & " Somme Colonne: " & Format2(az) & " - " & Format2(bz) & " - " & Format2(cz) & " - " & Format2(dz) & " - " & Format2(ez) & " - " & Format2(fz) & " >>>>> TOTALE: " & Format2(ZSomCol) & " ",1,,RGB(204,0,0),5
Scrivi String(20," ") & "Somme Differenze: " & Format2(azbz) & " - " & Format2(bzcz) & " - " & Format2(czdz) & " - " & Format2(dzez) & " - " & Format2(ezfz) & " >>>>> TOTALE: " & Format2(ZSomDif) & " ",1,,RGB(204,0,0),5
ColoreTesto 0
Scrivi String(100,"-")
Scrivi String(1," ") & "..PRIMO FUTURO ESTRATTO (schema 2 ) " & Format2(ZSomDif) & " + " & Format2(Fuori90(Zz(1))) & " = " & Format2(ZPFE),1,,,1,3
Scrivi String(1," ") & "SECONDO FUTURO ESTRATTO (schema 2 ) " & Format2(Zz(1)) & " - " & Format2(Fuori90(fzgzZPFE)) & " = " & Format2(ZSFE),1,,,1,3
Scrivi String(100,"-")
RTT(1) = Ruo
RTT(2) = Ruo2
RTT(3) = TT_
Ruota(1) = Ruo
Ruota(2) = Ruo2
'Ru(2) = 7 ' tutte
ColoreTesto 0
Ambata1(1) = PFE
ImpostaGiocata 1,Ambata1,Ruota,PostaABT,13,1
Ambo1(1) = PFE
Ambo1(2) = SFE
ImpostaGiocata 2,Ambo1,RTT,PostaA,13,2
Ambo2(1) = ZPFE
Ambo2(2) = ZSFE
ImpostaGiocata 3,Ambo2,RTT,PostaA,13,2
Terzina1(1) = PFE
Terzina1(2) = SFE
Terzina1(3) = ZPFE
ImpostaGiocata 4,Terzina1,Ruota,PostaT,13,2
Terzina2(1) = PFE
Terzina2(2) = SFE
Terzina2(3) = ZSFE
ImpostaGiocata 5,Terzina2,Ruota,PostaT,13,2
'Quartina1(1) = PFE
'Quartina1(2) = SFE
' Quartina1(3) = ZPFE
'Quartina1(4) = ZSFE
'ImpostaGiocata 5,Quartina1,RTT,PostaQ,13,2
ColoreTesto 0
Gioca es,True,,1
If ScriptInterrotto Then Exit For
'Next
'End If
End If
Next
'Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
TestoInBandaPassante "metodo Primo FUTURO ESTRATTO di Lord G.Byron. Listato GioRyuKen72",1,RGB(143,0,255),5
ColoreTesto 0
ScriviResoconto
End Sub
Ultima modifica:
Ciao Giò, ottimo lavoro , però su L8 versione 6.1 non gira , cosa sbaglio?
Ps. il caso di Bari -Napoli di martedi 13/12 ( quartina 77-90-21-1)
lo escluderei poichè ha dato il terno 1-21-90 su Ba poche estrazioni prima,
così si sfoltiscono le previsioni giocabili._______RBSN
GioRyuKen72
Advanced Member >PLATINUM PLUS<
Ciao Robinson, non posso aiutarti per il programma L8 perché io ho solo Spaziometria.
Il caso di Bari/Napoli ha dato anche il 77 (primo futuro estratto) a Bari al secondo colpo, quindi come dici tu sarebbe meglio escluderlo.
Gio.
SEgnalo l'ambo 90 56 uscito su Roma al 5° colpo di gioco.....(il 29/ 12/ 22 ) e suggerisco una nuova interessante formazione:
03 gennaio ruote di Bari e Palermo
SCHEMA
18 24 66 71 19 63 <-- Diff.
--------------------------------------------------------------------------
18 90 66 90 19 90 27
90 66 90 19 90 27 90
66 90 19 90 27 90 50
90 19 90 27 90 50 90
19 90 27 90 50 90 (17)
--------------------------------------------------------------------------
13 85 22 46 06 77 (04) <-- Som.Col.
18 63 66 40 19 (73) <-- Diff.Somme
Somma delle somme delle prime sei colonne = 69
Somma di tutte le Differenze (Ultima esclusa) = 17
Primo Futuro Estratto = 17
Somma sesta e settima colonna (77+4) = 81
Secondo Futuro Estratto [90-81] = 09
SCHEMA
63 27 40 50 72 18 <-- Diff.
--------------------------------------------------------------------------
90 27 90 50 90 18 90
27 90 50 90 18 90 66
90 50 90 18 90 66 90
50 90 18 90 66 90 19
90 18 90 66 90 19 (82)
--------------------------------------------------------------------------
77 05 68 44 84 13 (77) <-- Som.Col.
72 27 24 50 71 (26) <-- Diff.Somme
Somma delle somme delle prime sei colonne = 21
Somma di tutte le Differenze (Ultima esclusa) = 64
Primo Futuro Estratto = 82
Somma sesta e settima colonna (13+77) = 90
Secondo Futuro Estratto [90-90] = 00
Ba / Ro 82/90 -17/9
90-56 al quinto colpo su Roma , e al decimo 90 75 sempre su Roma, e l'estrazione prima su tutte ancora 75 90 (Ve)
Complimenti per la rilevazione GiòRyuKen
Matematico
Advanced Member >PLATINUM<
Buonasera a tutti ,
13-Tipo non corrispondente:ScriviDistribuzioneEsiti(True)
Linea :211
Colonna :3
Source: Errore di run-time di Microsoft VBScript
Per GioRyuKen72 , io ho Spaziometria 1.6.1 , faccio copia incolla dello script e mi dà il seguente errore :
Errore script!13-Tipo non corrispondente:ScriviDistribuzioneEsiti(True)
Linea :211
Colonna :3
Source: Errore di run-time di Microsoft VBScript
GioRyuKen72
Advanced Member >PLATINUM PLUS<
Ciao Matematico, prova a disabilitare quella riga.. serve solo per avere una statistica sugli esiti.
Gio.
GioRyuKen72
Advanced Member >PLATINUM PLUS<
..ed io che cerco fortuna in altri metodi
Il merito è tuo @Robinson, ho solo seguito le tue indicazioni.
Matematico
Advanced Member >PLATINUM<
Risolto grazie 1000 e complimenti per lo script davvero ben fatto e al grande salvo50
Matematico
Advanced Member >PLATINUM<
Dimenticavo GioRyuKen72 , una cortesia ,potresti mettere il link al metodo in excel ?
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 22 novembre 2024Bari2745811755Cagliari7866450314Firenze1490728855Genova3323828124Milano2579134215Napoli3935650114Palermo2583695036Roma2571221055Torino5930437449Venezia3990770535Nazionale8260626559Estrazione Simbolotto
Torino
4412320613
