BaffoBlù
Advanced Member >PLATINUM<
Miscredenti
8 al 4°colpo e ambo 17-90 al 4 colpo a Firenze
2 volte il 73 a bari e una volta il 17...
stava li li ....
Condizioni Rare
- Creatore Discussione BaffoBlù
- Data di inizio
Miscredenti
8 al 4°colpo e ambo 17-90 al 4 colpo a Firenze
2 volte il 73 a bari e una volta il 17...
stava li li ....
BaffoBlù
Advanced Member >PLATINUM<
OCCHIO ! OCCHIO ! OCCHIO !
Condizioni rare
Esiti Infallibili dal 1871 ad oggi
Nel suo piccolo picchia...ed è affidabile...
Ricercare nel quadro estrazionale questa condizione che può presentarsi in 6 "Sequenze" Diverse.
Ognuno dei 3 elementi di ogni sequenza deve trovarsi in una ruota diversa
Sequenza 1 : 13.13.05
Sequenza 2 : 05.05.13
Sequenza 3 : 13.05.13
Sequenza 4 : 05.13.05
Sequenza 5 : 05.13.13
Sequenza 6 : 13.05.05
Una volta rilevata la condizione abbiamo una Sestina da giocare a tutte (15 ambi secchi integrale)
Nel ristretto ho isolato 9 ambi secchi più prolifici.
Lo script è rudimentale, ma fa il suo lavoro (Salvo Sbagli...) a tal fine chiedo agli scripter (chi vuole...)
Di verificare mie sviste e di creare uno script che comprenda in un colpo solo tutte le sequenze
e lasciarlo per TUTTI. (Utilizzabile alla prossima Condizione Rilevata...)
Il mio script elabora una Sequenza alla volta...
Mostra esiti multipli della Sestina e mostra lo sviluppo dei 9 Ambi Secchi nel corso di 18 colpi
Ad ogni modo ci si ferma al primo esito Raggiunto.
I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede...
Condizioni rare
Esiti Infallibili dal 1871 ad oggi
Nel suo piccolo picchia...ed è affidabile...
Ricercare nel quadro estrazionale questa condizione che può presentarsi in 6 "Sequenze" Diverse.
Ognuno dei 3 elementi di ogni sequenza deve trovarsi in una ruota diversa
Sequenza 1 : 13.13.05
Sequenza 2 : 05.05.13
Sequenza 3 : 13.05.13
Sequenza 4 : 05.13.05
Sequenza 5 : 05.13.13
Sequenza 6 : 13.05.05
Una volta rilevata la condizione abbiamo una Sestina da giocare a tutte (15 ambi secchi integrale)
Nel ristretto ho isolato 9 ambi secchi più prolifici.
Lo script è rudimentale, ma fa il suo lavoro (Salvo Sbagli...) a tal fine chiedo agli scripter (chi vuole...)
Di verificare mie sviste e di creare uno script che comprenda in un colpo solo tutte le sequenze
e lasciarlo per TUTTI. (Utilizzabile alla prossima Condizione Rilevata...)
Il mio script elabora una Sequenza alla volta...
Mostra esiti multipli della Sestina e mostra lo sviluppo dei 9 Ambi Secchi nel corso di 18 colpi
Ad ogni modo ci si ferma al primo esito Raggiunto.
I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede...
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** A T T E N Z I O N E !!! Dalla serie CONDIZIONI RARE, nel suo piccolo, Nessun Esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 100% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
poste(2) = 1
r11 = 11
Seq = CInt(InputBox(" Scegli Una Sequenza da 1 a 6 ",,"1"))' Ricordarsi di Elaborare tutte le Sequenze da 1 a 6.
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
' Ricordarsi di Elaborare tutte le Sequenze da 1 a 6.
If Seq = 1 Then
sp1 = 13
sp2 = 13
sp3 = 05
ok = 1
End If
If Seq = 2 Then
sp1 = 05
sp2 = 05
sp3 = 13
ok = 1
End If
If Seq = 3 Then
sp1 = 13
sp2 = 05
sp3 = 13
ok = 1
End If
If Seq = 4 Then
sp1 = 05
sp2 = 13
sp3 = 05
ok = 1
End If
If Seq = 5 Then
sp1 = 05
sp2 = 13
sp3 = 13
ok = 1
End If
If Seq = 6 Then
sp1 = 13
sp2 = 05
sp3 = 05
ok = 1
End If
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10432"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubCiao Baffo.
Ho modificato il tuo script per effettuare la ricerca con tutte le sequenze. Dai una controllata per verificare se tutto è ok.
Ciao, Maldor
Ho modificato il tuo script per effettuare la ricerca con tutte le sequenze. Dai una controllata per verificare se tutto è ok.
Ciao, Maldor
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** A T T E N Z I O N E !!! Dalla serie CONDIZIONI RARE, nel suo piccolo, Nessun Esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 100% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3)
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
poste(2) = 1
r11 = 11
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
Vet_Seq(1,1) = 13
Vet_Seq(1,2) = 13
Vet_Seq(1,3) = 05
Vet_Seq(2,1) = 05
Vet_Seq(2,2) = 05
Vet_Seq(2,3) = 13
Vet_Seq(3,1) = 13
Vet_Seq(3,2) = 05
Vet_Seq(3,3) = 13
Vet_Seq(4,1) = 05
Vet_Seq(4,2) = 13
Vet_Seq(4,3) = 05
Vet_Seq(5,1) = 05
Vet_Seq(5,2) = 13
Vet_Seq(5,3) = 13
Vet_Seq(6,1) = 13
Vet_Seq(6,2) = 05
Vet_Seq(6,3) = 05
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10432"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubBaffoBlù
Advanced Member >PLATINUM<
Grazie per la modifica
Purtroppo risulta esservi un esito negativo (nel 1800...) nella sequenza 5
Quindi affidabilità al 99.99%
Rimetto lo script con qualche correzione dovuta...
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** Un Solo esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 99,9% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3)
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
poste(2) = 1
r11 = 11
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
Vet_Seq(1,1) = 13
Vet_Seq(1,2) = 13
Vet_Seq(1,3) = 05
Vet_Seq(2,1) = 05
Vet_Seq(2,2) = 05
Vet_Seq(2,3) = 13
Vet_Seq(3,1) = 13
Vet_Seq(3,2) = 05
Vet_Seq(3,3) = 13
Vet_Seq(4,1) = 05
Vet_Seq(4,2) = 13
Vet_Seq(4,3) = 05
Vet_Seq(5,1) = 05
Vet_Seq(5,2) = 13
Vet_Seq(5,3) = 13
Vet_Seq(6,1) = 13
Vet_Seq(6,2) = 05
Vet_Seq(6,3) = 05
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10433"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubUn cordiale saluto a tutti e uno davvero speciale a BaffoBlù.
Per il metodo mi son chiesto " e se invece di puntare all'affidabilità elevatissima, si cercasse l'efficacia in termini economici?".
Potrebbe essere un'idea mettere in gioco i nove ambi sulle sole ruote di origine?
Buona giornata.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
Qualche messaggio fa ho scritto :
"I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede..."
Ma la mia non voleva di certo essere una critica, ci mancherebbe.
E avevo letto e compreso la tua premessa a "livello dimostrativo". Avrei solo voluto vedere cosa potesse venirne fuori in ristretto...
Ripeto, anche qui, non ho confidenza con lo scripting di Spaziometria altrimenti avrei provato io stesso.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
appunto, se fai girare lo script, vedi da te dove vanno a cadere tutti gli esiti..
BaffoBlù
Advanced Member >PLATINUM<
Eccoci con un altra condizione rara
Questa doppia spia verticale vi porta quello che leggerete in seguito:
Ma vediamo prima come nasce il procedimento per i calcoli
il 07/01/1950 il 1°estratto a Bari : "56"
Calcoli fantascientifici :
56 * 56 = 3136
56 * 108 = 6048
eseguiamo le "scissioni"
31...36
60...48
ci siamo capiti?
--------------------------
ritornando a
Abbiamo 5 numeri che per ambata non ha avuto mai
esito negativo da inizio lotto ogni volta che è apparsa
la condizione di cui sopra.
31.36.48.56.60
Uno di questi uscirà a Bari nelle prossime estrazioni
con garanzia del 999,999%
Badate che non è un metodo statistico...
script Ambate
**********************************
Questo script mette in gioco i 5 numeri (10 ambi) a Tutte
ricerca dal 1950 (estrazioni più affidabili...)
***********************************
Allora, fuori convergenze a Bari con 31.36.48.56.60
Questa doppia spia verticale vi porta quello che leggerete in seguito:
Ma vediamo prima come nasce il procedimento per i calcoli
il 07/01/1950 il 1°estratto a Bari : "56"
Calcoli fantascientifici :
56 * 56 = 3136
56 * 108 = 6048
eseguiamo le "scissioni"
31...36
60...48
ci siamo capiti?
--------------------------
ritornando a
Abbiamo 5 numeri che per ambata non ha avuto mai
esito negativo da inizio lotto ogni volta che è apparsa
la condizione di cui sopra.
31.36.48.56.60
Uno di questi uscirà a Bari nelle prossime estrazioni
con garanzia del 999,999%
Badate che non è un metodo statistico...
script Ambate
Codice:
Option Explicit
Sub Main()
Scrivi String(100,"*")
ColoreTesto 1
Scrivi" METODO EMPIRICO MATEMATICO ",1
Scrivi" Calcoli : ",1
Scrivi" 56 * 56 = 3136 (31.36) 1° Coppia",1
Scrivi" 56 * 108 = 6048 (60.48) 2° Coppia ",1
Scrivi" La Cinquina : 31.36.48.56.60 ",1
ColoreTesto 0
Scrivi String(100," * ")
Dim n(5),es,ini,fin,a,b,r,r1,p,k,co,ok
Dim posta(1)
Dim ruota(12)
posta(1) = 1
k = 11
ini = 1
fin = EstrazioneFin
co = 0
For es = ini To fin
For r = 1 To 11
If r = 11 Then r = 12
r1 = 11
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(ini,fin,es)
ruota(1) = r
ok = 0
For p = 1 To 5
a = Estratto(es - 1,r,p)
b = Estratto(es,r,p)
If a = 56 And b = 56 Then
ok = 1
'---------------------
If ok = 1 Then
n(1) = 56
n(2) = 31
n(3) = 36
n(4) = 48
n(5) = 60
ruota(1) = r
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es - 1) & " * " & SiglaRuota(r) & " : " & a,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r) & " : " & b,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,k
'-----------------------------------
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End Sub**********************************
Questo script mette in gioco i 5 numeri (10 ambi) a Tutte
ricerca dal 1950 (estrazioni più affidabili...)
***********************************
Codice:
Option Explicit
Sub Main()
Scrivi String(100,"*")
ColoreTesto 1
Scrivi" METODO EMPIRICO MATEMATICO ",1
Scrivi" Calcoli : ",1
Scrivi" 56 * 56 = 3136 (31.36) 1° Coppia",1
Scrivi" 56 * 108 = 6048 (60.48) 2° Coppia ",1
Scrivi" La Cinquina x Ambo : 31.36.48.56.60 ",1
ColoreTesto 0
Scrivi String(100," * ")
Dim es,ini,fin,a,b,r,r1,p,k,co,ok
Dim am1(2),am2(2),am3(2),am4(2),am5(2),am6(2),am7(2),am8(2),am9(2),am10(2)
Dim poste(2)
Dim ruota(12)
Dim ruote(12)
poste(2) = 1
k = 18
ini = 4120' Inizio Controllo Estrazioni dal 1950
fin = EstrazioneFin
co = 0
For es = ini To fin
For r = 1 To 11
If r = 11 Then r = 12
r1 = 11
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(ini,fin,es)
ruota(1) = r
ruote(2) = r1
ok = 0
For p = 1 To 5
a = Estratto(es - 1,r,p)
b = Estratto(es,r,p)
If a = 56 And b = 56 Then
ok = 1
'---------------
If ok = 1 Then
'-------------
am1(1) = 56
am1(2) = 31
'-------------
am2(1) = 56
am2(2) = 36
'-------------
am3(1) = 56
am3(2) = 48
'-------------
am4(1) = 56
am4(2) = 60
'-------------
am5(1) = 31
am5(2) = 36
'-------------
am6(1) = 48
am6(2) = 60
'-------------
am7(1) = 31
am7(2) = 48
'-------------
am8(1) = 31
am8(2) = 60
'-------------
am9(1) = 36
am9(2) = 48
'-------------
am10(1) = 36
am10(2) = 60
'---------------
ruota(1) = r
ruote(2) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es - 1) & " * " & SiglaRuota(r) & " : " & a,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r) & " : " & b,1
Scrivi String(100,"°"),1
'------------------------------
ImpostaGiocata 1,am1,ruote,poste,k,2,,1
ImpostaGiocata 2,am2,ruote,poste,k,2,,2
ImpostaGiocata 3,am3,ruote,poste,k,2,,3
ImpostaGiocata 4,am4,ruote,poste,k,2,,4
ImpostaGiocata 5,am5,ruote,poste,k,2,,5
ImpostaGiocata 6,am6,ruote,poste,k,2,,6
ImpostaGiocata 7,am7,ruote,poste,k,2,,7
ImpostaGiocata 8,am8,ruote,poste,k,2,,8
ImpostaGiocata 9,am9,ruote,poste,k,2,,9
ImpostaGiocata 10,am10,ruote,poste,k,2,,10
'-----------------------------------
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubAllora, fuori convergenze a Bari con 31.36.48.56.60
*blacklotto*
Super Member >PLATINUM<
Ciao Baffo !
Permetti ?, vediamo ..., velocemente che propongo a mia idea : tolgo il n° 56
dodici ambi per Bari
14.31 14.36 14.48 14.60
22.31 22.36 22.48 22.60
53.31 53.36 53.48 53.60
14.22.31.36.48.53.60 settina per sorti maggiori
👍👍👍
Permetti ?, vediamo ..., velocemente che propongo a mia idea : tolgo il n° 56
dodici ambi per Bari
14.31 14.36 14.48 14.60
22.31 22.36 22.48 22.60
53.31 53.36 53.48 53.60
14.22.31.36.48.53.60 settina per sorti maggiori
👍👍👍
BaffoBlù
Advanced Member >PLATINUM<
Non hai capito, ho scritto che quei 5 numeri sono per ambata
31.36.48.56.60
Mi aspetto l'uscita di uno di questi numeri con un attendibilità molto forte
per quello che chiedevo convergenze.....per restringere...
se poi sono abbinamenti tutti tuoi, ben vengano, ma hai convergenze con i numeri in questione?
BaffoBlù
Advanced Member >PLATINUM<
Non hai capito, ho scritto che quei 5 numeri sono per ambata
31.36.48.56.60
Mi aspetto l'uscita di uno di questi numeri con un attendibilità molto forte
per quello che chiedevo convergenze.....per restringere...
se poi sono abbinamenti tutti tuoi, ben vengano, ma hai convergenze con i numeri in questione?
un estrazione fa il 31...
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 18 maggio 2024Bari7762676004Cagliari8901355438Firenze8458256457Genova5325665923Milano2275481677Napoli8141426739Palermo1963574305Roma0435503323Torino5620461488Venezia7881427436Nazionale4283598634Estrazione Simbolotto
Milano
4129012730
